本文整理自网络,侵删。
function GetScreenAll: TBitmap; // 截取全屏
var
C: TCanvas;
begin
C := TCanvas.Create;
result := TBitmap.Create;
result.Width := Screen.Width;
result.Height := Screen.Height;
C.Handle := GetDC(0); // 获取屏幕的设备上下文句柄,并拷贝
result.Canvas.CopyRect(Rect(0, 0, screen.Width, screen.Height), C, Rect(0, 0, Screen.Width, SCreen.Height));
ReleaseDC(0, C.Handle);
C.Free;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
B: TBitmap;
begin
B := TBitmap.Create;
B := GetScreenAll();
B.SaveToFile('d:\test2.bmp');
b.Free;
end;
相关阅读 >>
Delphi shellexecute调用系统命令关闭计算机
Delphi中调用api函数exitwindowsex可以实现系统的关机,注销,和重启
Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值
Delphi 十六进制字符串转化成字符串输出hextostr strtohex(Delphi版、c#版)
更多相关阅读请进入《Delphi》频道 >>