delphi获取进程ID的简单方法

delphi获取进程ID的简单方法，主需要两个api就可以完成，首先findwindow,然后 GetWindowThreadprocessID就OK拉.

procedure TForm1.Button1Click(Sender: TObject);
var
Hprocess:HWND;
PidWORD;
begin
  Hprocess:=findwindow(nil,'程序本身');//这里以delphi7为例！
  GetWindowThreadprocessID(Hprocess,Pid);
  edit1.text:=inttostr(pid);
end;