Problem mit OpenProcess

[T3rm1n4T0r]

Hi!

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.

[brechi]

Delphi-Quellcode:

function OpenMinesweeper : cardinal;
var PID : cardinal;
    Window : cardinal;
begin
  Window := FindWindow(nil,'MineSweeper');
  GetWindowThreadProcessId(Window,PID);
  result := OpenProcess(PROCESS_VM_READ,false,PID);
end;

geht ohne probleme

[T3rm1n4T0r]

Nein, bei mir nicht.

Edit: Hat sich erledigt. Close pls

[Luckie]

Zitat:

Zitat von T3rm1n4T0r

Nein, bei mir nicht.

Edit: Hat sich erledigt. Close pls

Verrätst du uns auch warum?

[T3rm1n4T0r]

Hab die Funktion aus der dll direkt importiert und ein stdcall; vergessen :/

[Christian Seehase]

Moin T3rm1n4T0r,

kleiner (Verbesserungs?)-Vorschlag:

Delphi-Quellcode:

result := (myHandle <> 0);