Verschachtelte Funktionen: Variablen übergeben

[chkdsk]

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.