ReadProcessMemory

[SleepyMaster]

Was mach ich falsch???

Die erstellte exe (C:\AusRam.exe) ist immer 421.888 Bytes groß doch funzt ned! Warum???

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  data :            array[1..1024] of char;
  Bytesread,a,z :   DWORD;
  XPosition:        int64;
  F:                file;
begin
AssignFile(f, 'C:\AusRam.exe');
rewrite(f,1);
XPosition:=0;
Z:=GetCurrentProcess;
Bytesread:=1;
while Bytesread <> 0 do
  begin
  ReadProcessMemory(z,Pointer($400000+XPosition),@data[1],length(data),Bytesread);
  blockwrite(f,data[1],Bytesread);
  XPosition:=XPosition+Bytesread;
  end;
CloseFile(f);
end;