Delphi Problem mit OpenProcess

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit OpenProcess

Ein Thema von T3rm1n4T0r · begonnen am 30. Sep 2005 · letzter Beitrag vom 30. Sep 2005

Vorheriger Beitrag

Nächster Beitrag

T3rm1n4T0r

Registriert seit: 10. Sep 2004
38 Beiträge

Turbo Delphi für Win32

Problem mit OpenProcess

30. Sep 2005, 13:46

Hi!

markieren

Delphi-Quellcode:

			function OpenMinesweeper : boolean;

var PID : cardinal;

    Window : cardinal;

begin

  Window := FindWindow(nil,'MineSweeper');

  GetWindowThreadProcessId(Window,@PID);

  myHandle := OpenProcess(PROCESS_VM_READ,false,PID);

  if (myHandle <> 0) then result := true else result := false;

end;

Warum funcktioniert dieser Code nicht?

myHandle isn cardinal.
Window hat einen Wert <> 0;
PID hat einen Wert <> 0;
myHandle ist 0!!
GetlastError sagt Invalid Parameter.

Ich versteh das nicht.