hdc:=getdc(handle);
HDC=Handle of Device Context
DC和Handle 都是32位整数,不过说法不一而已,DC 的 Handle 叫 HDC, Window 的 Handle叫 HWnd。
procedure TForm1.Button1Click(Sender: TObject);
var
hDesktop,hDesktopDC: THandle;
FBmp: TBitmap;
begin
FBmp := TBmp.Create;
hDeskTop := FindWindow('Progman', nil); // 得到桌面窗口句柄
try
hDesktopDC := GetDC(0); // 得到桌面窗口 DC 句柄
FBmp.Width := 100; FBmp.Height := 100;
BitBlt(FBmp.Canvas.Handle,0,0,100,100,HDesktopDC,0,0,SRCCOPY); // 这样可以把 DC 的内容保存到 TBitmap 对象中
FBmp.SaveToFile(...);
finally
ReleaseDC(hDesktop, hDesktopDC);
FBmp.Free;
end;
end;