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.