nun Hab ich ein Ähnliches Problem beim Schreiben
fehler sind unter
Windows7
Nur ein Teil der ReadProcessMemory- oder WriteProcessMemory-Anforderung wurde abgeschlossen
WinXP
Falscher Parameter
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
dwBytes, Buf: DWord;
dwEngineBase, dwClientBase: DWord;
dwProcID: Integer;
hProcess: THandle;
begin
dwEngineBase := 0;
dwClientBase := 0;
hProcess := 0;
dwProcID := GetProcessID('
calc.exe');
if dwProcID <> 0
then
begin
hProcess := OpenProcess(PROCESS_ALL_ACCESS, false, dwProcID);
if (hProcess = INVALID_HANDLE_VALUE)
then
begin
Showmessage('
Ungültiges Handle :' + Inttostr(hProcess));
exit;
end;
//if not ReadProcessMemory(hProcess, Pointer($2c3ca4), @Buf, 4, dwBytes) then
// ShowMessage(SysErrorMessage(GetLastError)+ ' : '+Inttostr(hProcess))
// else
// caption := (inttostr(Buf));
//end;
if not WriteProcessMemory(hProcess,Pointer($002C3C84),Pointer($55), 1,dwBytes)
then
ShowMessage(SysErrorMessage(GetLastError))
else
caption := (inttostr(dwBytes));
end;
end;
hab mir schon einige Delphi und C++ Sourcecodes angeschaut wegen dieser DebugPrivileges welche dort aber nie verwendet werden