bcjq077.txt

c++ builder 的一些txt文档

C++ Builder开发者：程序员之家
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec % how_many_ads;
ad +=1;
 
  
  
    
      
        
          
            首页   
              | 控件天堂 | 控件使用                    
              | 编程技巧                     
              |  源代码 |  编程工具 |         
               系统补丁 |  电子书籍 | 技术论坛                     
              |  相关链接                  
                            
                          
                        
                      
                      
                        
                          
                            
                              
                            
                  
       if (ad==1) {document.write(''+'');}                
       if (ad==2) {document.write(''+'');}                
       if (ad==3) {document.write(''+'');}                
                               
                            
                         
                                     
                         
                       
                     
                   
                   
                     
                       
                         
                           
                        
                      
var marqueecontents=''+scroll_text+''            
if (document.all)            
document.write(''+marqueecontents+'')            
function regenerate(){            
window.location.reload()            
}            
function regenerate2(){            
if (document.layers){            
setTimeout("window.onresize=regenerate",450)            
intializemarquee()            
}            
}            
function intializemarquee(){            
document.cmarquee01.document.cmarquee02.document.write(marqueecontents)            
document.cmarquee01.document.cmarquee02.document.close()            
thelength=document.cmarquee01.document.cmarquee02.document.height            
scrollit()            
}            
function scrollit(){            
if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){            
document.cmarquee01.document.cmarquee02.top-=speed            
setTimeout("scrollit()",100)            
}            
else{            
document.cmarquee01.document.cmarquee02.top=marqueeheight            
scrollit()            
}            
}            
window.onload=regenerate2            
                        
                          
                        
                      
                    
                  
                  
                    
                      
                        
                          
                            
                              
                                
                  当前位置
     
                    ：
     
                    编程技巧             
                             
                           
                         
                         
                         
                           
                             
                               
                    程序中检测并调用缺省浏览器(VC)         
                           
                     
                       
                         
                           
                          HINSTANCE CEasyHyperLink::GotoURL(LPCTSTR url, int showcmd)
 
        {
 
         TCHAR key[MAX_PATH + MAX_PATH];
 
         // First try ShellExecute()
 
         HINSTANCE result = ShellExecute(NULL,  
        _T("open"), url, NULL,NULL, showcmd);
 
         // If it failed, get the .htm regkey and lookup the  
        program
 
         if ((UINT)result <= HINSTANCE_ERROR) {
 
         if  
        (GetRegKey(HKEY_CLASSES_ROOT, _T(".htm"), key) ==  
        ERROR_SUCCESS) {
 
          
        lstrcat(key, _T("\\shell\\open\\command"));
 
         if  
        (GetRegKey(HKEY_CLASSES_ROOT,key,key) == ERROR_SUCCESS) {
 
          
        TCHAR *pos;
 
          
        pos = _tcsstr(key, _T("\"%1\""));
 
          
        if (pos == NULL) {  
        // No quotes found
 
          
        pos = strstr(key, _T("%1")); //  
        Check for %1, without quotes
 
          
        if (pos == NULL)  
        // No parameter at all...
 
          
        pos = key+lstrlen(key)-1;
 
          
        else
 
          
        *pos = '\0';  
        // Remove the parameter
 
          
        }
 
          
        else
 
          
        *pos = '\0';  
        // Remove the parameter
 
        
 
          
        lstrcat(pos, _T(" "));
 
          
        lstrcat(pos, url);
 
          
        result = (HINSTANCE) WinExec(key,showcmd);
 
         }
 
         }
 
         }
 
        
 
         return result;
 
        }
 
        
 
        
 
        LONG CEasyHyperLink::GetRegKey(HKEY key, LPCTSTR subkey, LPTSTR retdata)
 
        {
 
         HKEY hkey;
 
         LONG retval = RegOpenKeyEx(key, subkey, 0,  
        KEY_QUERY_VALUE, &hkey);
 
         if (retval == ERROR_SUCCESS) {
 
         long datasize = MAX_PATH;
 
         TCHAR data[MAX_PATH];
 
         RegQueryValue(hkey, NULL,  
        data, &datasize);
 
         lstrcpy(retdata,data);
 
         RegCloseKey(hkey);
 
         }
 
         return retval;
 
        }      
                              
                            
                                
                        
                              
                                
                              
                  if (ad==1) {document.write(''+'');}              
                  if (ad==2) {document.write(''+'');}              
                  if (ad==3) {document.write(''+'');}              
                                                
                              
                            
                          
                        
                   
                    
                      
                        
                      
                      
                          
                      
                    
                       
                     
                   
                 
               
               
                 
                   
                     
                       
            C++ Builder开发者®            
              2000年06月01日 站长：唐朝