感觉Windows下Process和Thread差别不太大,下例为证:
procedure TForm1.FormCreate(Sender: TObject);
var
ProID: integer;
begin
//这三个值都一样!
ShowMessage(IntToStr(GetWindowThreadProcessId(handle))
+ ' '
+ IntToStr(GetWindowThreadProcessId(Application.handle))
+ ' '
+ IntToStr(GetCurrentThreadId)
);
end;