摘要： 在不能使用FindWindow等函数的前提下。var g_hwin:THandle;function EnumWindowsProc(H:HWND;lParam:LPARAM):Boolean;stdcall;var PID:DWORD;begin Result:=True; GetWindowThreadProcessId(H,PID); if PID=GetCurrentProcessId then begin g_hwin:=H; Result:=False; end;end;procedure TForm1.btn4Click(Sender: TObject);begin EnumWi 阅读全文

摘要： function PrintWindow(SourceWindow: hwnd; Destination: hdc; nFlags: cardinal): bool; stdcall; external 'user32.dll' name 'PrintWindow'; procedure TForm1.btn3Click(Sender: TObject);var bmp : TBitmap; wnd : cardinal; rec : TRect;begin wnd := FindWindow(nil, '计算器'); GetWindowRect 阅读全文