Problem mit OpenProcess

[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