bcjq072.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            
                        
                          
                        
                      
                    
                  
                  
                    
                      
                        
                          
                            
                              
                                
                  当前位置
     
                    ：
     
                    编程技巧             
                             
                           
                         
                         
                         
                           
                             
                               
                    拷屏代码         
                           
                     
                       
                         
                           
                          注:可在错误显示对话框中加入此代码，可将错误发生时的屏幕写入到文件中以便查错.
      
      TCanvas *dtCanvas = new TCanvas;
 
      dtCanvas->Handle=GetDC(0);
 
      Graphics::TBitmap *bitmap=new Graphics::TBitmap;
 
      bitmap->Width=Width;
 
      bitmap->Height=Height;
 
      int nColors=GetDeviceCaps(Canvas->Handle,SIZEPALETTE);
 
      LOGPALETTE* logPal=(LOGPALETTE*)new  
      Byte[sizeof(LOGPALETTE)+(nColors-1)*sizeof(PALETTEENTRY)];
 
      logPal->palVersion=0x300; logPal->palNumEntries=(Word)nColors;
 
      GetSystemPaletteEntries(Canvas->Handle,0,nColors,logPal->palPalEntry);
 
      bitmap->Palette=CreatePalette(logPal);
 
      delete[] logPal;
 
      TRect src=BoundsRect;
 
      TRect dest=Rect(0,0,Width,Height);
 
      bitmap->Canvas->CopyRect(dest,dtCanvas,src);
 
      bitmap->SaveToFile("Screen.bmp");
 
      delete bitmap;
 
      delete dtCanvas;      
                              
                            
                                
                        
                              
                                
                              
                  if (ad==1) {document.write(''+'');}              
                  if (ad==2) {document.write(''+'');}              
                  if (ad==3) {document.write(''+'');}              
                                                
                              
                            
                          
                        
                   
                    
                      
                        
                      
                      
                          
                      
                    
                       
                     
                   
                 
               
               
                 
                   
                     
                       
            C++ Builder开发者®            
              2000年06月01日 站长：唐朝