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.