DBR Delphi-Ecke

// Hiermit ermitteln sie die ID des Prozesses, welcher ein bestimmtes
// Fenster erstellt hat.

// Getestet mit D4 unter WinME


function ProcessID(h: THandle): Cardinal; 
begin 
  GetWindowThreadProcessID(h, @result); 
end; 
 
 
// Beispielaufruf 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  showmessage(inttostr(ProcessID(Form1.handle))); 
end;