Einzelnen Beitrag anzeigen

chkdsk
(Gast)

n/a Beiträge
 
#8

Re: Verschachtelte Funktionen: Variablen übergeben

  Alt 11. Mär 2005, 18:46
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.
  Mit Zitat antworten Zitat