Delphi-Quellcode:
function GetWHandleByPID(const PID: Integer): Integer;
function IsProcWndw(const AhWindow: DWORD; const Exch: PDWORD): longbool; stdcall;
var
procpid, currpid: Integer;
begin
procpid := Exch^;
Result := true;
//Hier wurde gekürzt
Exch^ := AhWindow;
end;
var
tmp: DWORD;
begin
tmp := PID;
EnumWindows(@IsProcWndw, DWORD(@tmp));
Result := Integer(tmp);
end;
Hier nochmal die ganze funktioniertende Funktion. Ich hab alle Kommentare entfernt, genau wie den wesentlichen Code. Aber hier seht Ihr, wie ich es gemeint hab. Erst wird der Wert aus Exch eingelesen, dann an Exch ausgegeben.