RSS订阅 | 匿名投稿
您的位置:网站首页 > 函数 > 正文

delphi GetWindowHandle

作者:admin 来源: 日期:2018/2/20 21:44:07 人气: 标签:

function GetWindowHandle(ProcessId: Cardinal): THandle;
var
  hFound: THandle;

function EnumWindowsProcMy(_hwnd: HWND; ProcessId: Cardinal): BOOL; stdcall;
var
  dwPid: Cardinal;
begin
  GetWindowThreadProcessId(_hwnd, @dwPid);

  if ProcessId = dwPid then
  begin
    hFound := _hwnd;
    Result := False;
  end
  else
    Result := True;
end;

begin
  EnumWindows(@EnumWindowsProcMy, LPARAM(ProcessId));
  Result := hFound;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Caption:=inttostr(GetWindowHandle(2888));
end;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料