Probleme beim Speicher lesen unter Win7

[Seren200018]

Ich versuche den Speicher eines Fremdprogramms an einer bestimmten stelle auszulesen das in mehreren Instanzen geöffnet werden kann.
Da ich mit WinXP arbeite habe ich selbst keine Probleme mit dieser Funktion allerdings kommt es bei einer Freundin immer zu einem Fehler.
Bei Win7 z.B. tritt eine art Afterimage auf. Wenn man das Programm schließt wird trotzdem ein Fenster des Programms gefunden aber es kommt zu sinnlosen werten beim lesen.

Delphi-Quellcode:

TThreaddata = record
    windowname    : integer;
    Processid     : integer;
    threadid      : integer;
    windowhandle  : thandle;
    end;

procedure Sucherofenster ;

var
  windownumb  : integer;
  vorhanden   : boolean;
  window,PID  : integer;
  i,l         : integer;
begin
vorhanden   := false;
windownumb  := length(chardata);
PID         := 0;
Window      := 0;


{Nachsehen ob es das Ro Fenster schon gibt!
 nur wenn es Ro überhaupt gibt soll er arbeiten
 }
if findwindow(nil, 'Ragnarok') > 0 then
  begin
  Window := findwindow(nil,'Ragnarok');
  getwindowthreadprocessid(window, @PID);

  for i := 0 to length(chardata)-1 do
    if PID = chardata[i].threaddata.processid then vorhanden := true;

  if not vorhanden then
    begin
    setlength(chardata,length(chardata)+1);
    with chardata[windowswindownumb].Threaddata do
      begin
      windowname := Findwindow(nil,'Ragnarok');
      GetWindowThreadProcessId(windowname,@processid);
      rofenster := rofenster + 1;
      end;
    end;
  end;
//Falls ein Fenster geschlossen wird aus den Daten Entfernen
for i := 0 to length(chardata)-1  do
  begin
  chardata[i].Threaddata.Processid := 0;
  GetWindowThreadProcessId(chardata[i].Threaddata.windowname,@(chardata[i].Threaddata.processid));
  if (chardata[i].Threaddata.Processid = 0) and (i < high(chardata)+1) then
    begin
    for l := i to high(chardata)-1 do
      chardata[l] := chardata[l+1];
    setlength(chardata,length(chardata)-1);
    end;
  end;

if roinfocus > high(chardata) then roinfocus := high(chardata);
if roinfocus < 0 then roinfocus := 0;

end;

Der Lesecode sieht auszugsweise so aus

Delphi-Quellcode:

 try
    chardata[i].Threaddata.windowhandle :=
      OpenProcess(  PROCESS_VM_READ,
                    False,
                    chardata[i].Threaddata.Processid);
  except
    showmessage('An Error Ocured while accessing Ro!');
    end;
   
  Error := not ReadProcessMemory(  chardata[i].Threaddata.windowhandle,
                           Pointer(addresses.Baselvl + addresses.AJob),
                           @jobcls,
                           4,
                           dwRead);

Hier ist Error jedesmal true bei manchen Vista Versionen.


Da ich nur Hobbyprogrammierer bin bitte ich um etwas Nachsicht.
Der Fehler tritt nur bei einigen Win7 und/oder Vista Versionen auf. Ich weiß leider nicht woran es liegen könnte.

Danke schon mal für eure Hilfe.