- 注册时间
- 2011-3-6
- 最后登录
- 1970-1-1
该用户从未签到
|
在不能使用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
EnumWindows(@EnumWindowsProc,0);
Caption:=IntToStr(g_hwin);
end; |
|