请问，怎样屏幕截图？

Question

过去的贴子都没有了，只能再问一遍了:(
而且我也真没分了，大家行行好吧

Answer 1

你说在程序里还是用WINDOWS呀？
如果用WNIDOWS的话就用F12后面的那个!

Answer 2

沾一段bcb的，自己改成delphi吧        TCanvas * desktop;
        desktop=new TCanvas;
        desktop->Handle=GetDC(0);
        Graphics::TBitmap * bitmap=new Graphics::TBitmap;
        bitmap->Width=Screen->Width;
        bitmap->Height=Screen->Height;
        TRect s_rect=Rect(0,0,Screen->Width,Screen->Height);
        TRect d_rect=Rect(0,0,s_rect.Right-s_rect.Left, s_rect.Bottom-s_rect.Top);
       // bitmap->Canvas->CopyMode=cmSrcCopy;
        bitmap->Canvas->CopyRect(d_rect,desktop,s_rect);
        bitmap->SaveToFile("c:\\a.bmp");
        Image1->Picture->Assign(bitmap);
       // Image1->Picture->SaveToFile("c:\\a.bmp");
        delete bitmap;
        delete desktop;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  fullscreen:tbitmap;
  dc:hdc;
  fullscreencanvas:tcanvas;
begin
  fullscreen:=tbitmap.Create;
    fullscreen.Width:=screen.Width;
    fullscreen.Height:=screen.Height;
    dc:=getdc(0);
    fullscreencanvas:=tcanvas.Create;
    fullscreencanvas.Handle:=dc;
    fullscreen.Canvas.CopyRect(rect(0,0,screen.width,screen.height),fullscreencanvas,rect(0,0,screen.width,screen.height));
    fullscreencanvas.Free;
    releasedc(0,dc);
    if fileexists('.\mybmp.bmp') then deletefile('.\mybmp.bom') ;
    fullscreen.savetofile('.\mybmp.bmp');
    image1.Picture.LoadFromFile('.\mybmp.bmp');
    fullscreen.Free;
end;