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.

[Assarbad]

Moin, ich weiß ... viel zu späte Antwort und so. Ich bitte also auch um Nachsicht ;)

Schau mal bei Windows Integrity Mechanism.

Da du nicht prüfst, ob OpenProcess erfolgreich war und bei Zugriff auf einen Prozeß mit höherem Integritätsniveau ("integrity level") der Zugriff verweigert würde, erscheint mir das die wahrscheinlichste Möglichkeit. Es gibt noch andere, aber vielleicht kannst du mit Process Explorer oder Task Manager (der ja ab Vista "gepimpt" wurde) ermitteln welche Integritätsniveau die fraglichen Prozesse haben - also deiner und der jeweils andere. Wenn das noch nicht reicht, können wir weiterrätseln ;)