Ey bei mir ist sitzt hier Problem auf Problem...
Möchte erreichen, dass ich die Listbox zuerst leere, bevor da was draufgeschrieben wird. (Listbox1.Clear
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
i, ii, Anzahl, Er : Integer;
NextScan: array [0..10000] of String;
Processhandle: THandle;
WindowHandle, Pidi,
EndMemHex,
Sets : Integer;
Wert :DWORD ;
NextInt: array [0..10000] of Integer;
NextInt_: array [0..10000] of Integer;
lbuf: array [0..10000] of Integer;
begin
WindowHandle :=FindWindow(nil,'Guild Wars');
Anzahl:= Listbox1.Items.Count;
For i:= 0 to Anzahl -1 do
begin
NextScan[i]:= '$' + Listbox1.Items[i];
NextInt[i]:= StrToInt(NextScan[i]);
GetWindowThreadProcessId(WindowHandle ,@Pidi);
ProcessHandle :=OpenProcess(PROCESS_VM_READ ,False , pidi);
ReadProcessMemory(Processhandle ,ptr(NextInt[i]),@lBuf[i],4,Wert);
//Listbox1.Clear; soll mir die Listbox leeren wo soll ich das reinschreiben?
If lbuf[i] = SuchS Then
Listbox1.Items.Add(IntToHex(NextInt[i],8));
end;
end;
Listenindex wird überschritten(Fehlermeldung), falls ich es da reinschreib.