unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; public end;var Form1: TForm1;implementation{$R *.dfm}uses pngimage; //png 支持var HotKeyId: array[0..1] of Integer; //热键列表//捕捉当前窗口, 保存为 bmp 或 pngprocedure GetPicture(png: Boolean = false);var r: TRect; bmp: TBitmap;begin GetWindowRect(GetForegroundWindow, r); bmp := TBitmap.Create; bmp.SetSize(r.Right - r.Left, r.Bottom - r.Top); BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, GetDC(0), r.Left, r.Top, SRCCOPY); if png then TPngImage(bmp).SaveToFile('c:\temp\001.png') else bmp.SaveToFile('c:\temp\001.bmp'); bmp.Free;end;//注册系统热键 F8、F9procedure TForm1.FormCreate(Sender: TObject);var i: Integer;begin for i := Low(HotKeyId) to High(HotKeyId) do HotKeyId[i] := GlobalAddAtom(PChar(IntToStr(i))); RegisterHotKey(Handle,HotKeyId[0],0,VK_F8); //F8 RegisterHotKey(Handle,HotKeyId[1],0,VK_F9); //F9end;//处理系统热键procedure TForm1.WMHotKey(var Msg: TWMHotKey);begin if Msg.HotKey = HotKeyId[0] then GetPicture; //存 bmp if Msg.HotKey = HotKeyId[1] then GetPicture(true); //存 pngend;//销毁系统热键procedure TForm1.FormDestroy(Sender: TObject);var i: Integer;begin for i := Low(HotKeyId) to High(HotKeyId) do begin UnRegisterHotKey(handle,HotKeyId[i]); GlobalDeleteAtom(HotKeyId[i]); end;end;end.
联系客服