Memory

Jow

BOOL WriteProcessMemory(

    HANDLE hProcess,    // handle to process whose memory is written to 
    LPVOID lpBaseAddress,    // address to start writing to
    LPVOID lpBuffer,    // pointer to buffer to write data to
    DWORD nSize,    // number of bytes to write
    LPDWORD lpNumberOfBytesWritten     // actual number of bytes written
  );

du angiver bare hvor mange bytes det du vil sende fylder i nSize

Min kode ser sådan ud:

procedure TForm1.Button1Click(Sender: TObject);
var
WindowName : integer;
ProcessId : integer;
//ThreadId : integer;
buf, buf1 : PChar;
HandleWindow : Integer;
write: cardinal;
b:Byte;
  const
WindowTitle = '3d pinball for windows - space cadet';
Address = $00A00C62;
PokeValue = $c7c7c7c7;
NumberOfBytes = 4;
begin
WindowName := FindWindow(nil,WindowTitle);
If WindowName = 0 then
begin
MessageDlg('Game not running! Please run it and try again!', mtwarning,[mbOK],0);
Exit;
end;
getWindowThreadProcessId(WindowName,@ProcessId);
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
GetMem(buf,4);
buf^ := Chr(PokeValue);
WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
FreeMem(buf);
closehandle(HandleWindow);
end;

Har du nogen ide om hvad der er ivejen.

Jeg har koden fra: http://www.eksperten.dk/spm/200201

navnet er ikke stavet rigtigt, og er case-sensitive

WindowTitle := '3D Pinball til Windows - Space Cadet';

Hvad betyder case-sensitive.

Det virker altså stadig.

Sætningen "buf^=Chr(PoseValue);" er helt hen i skoven. Prøv i stedet med "Buf := @PokeValue" (skal muligvis type-cast'es).

Der står Variable required er det fordi den skal type-cast'es

Ahhhh. Ser først nu at din PokeValue er en Const, og du kan naturligvis kune bruge "@" sammen med en variabel. Prøv i stedet flg:

<SNIP>
procedure TFormDiasTurnoverStatisticClientMain.Button1Click(
  Sender: TObject);
var
  WindowName : integer;
  ProcessId : integer;
  //ThreadId : integer;
  HandleWindow : Integer;
  write: cardinal;
  b:Byte;
  PokeVar: Integer;
const
  WindowTitle = '3d pinball for windows - space cadet';
  Address = $00A00C62;
  NumberOfBytes = 4;
  PokeValue = $c7c7c7c7;
begin
  WindowName := FindWindow(nil,WindowTitle);
  If WindowName = 0 then
  begin
    MessageDlg('Game not running! Please run it and try again!', mtwarning,[mbOK],0);
    Exit;
  end;
  getWindowThreadProcessId(WindowName,@ProcessId);
  HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
  PokeVar := PokeValue;
  WriteProcessMemory(HandleWindow,ptr(Address),@PokeVar,NumberOfBytes,write);
  closehandle(HandleWindow);
end;
</SNIP>

Nu står der: Constant expression violates subrange bounds

Hvilken version af Delphi bruger du / Har du defineret PokeVar som en Integer ?

Det er den kode du har skrevet og jeg bruger Delphi 6

Jeg hruger selv Delphi 6 og kan compile uden problemer ?

I hvilken linie får du fejl ?

PokeVar := PokeValue;

Tror du jeg skal prøve at geninstaller Delphi ?

Nej det kan jeg ikke forestille mig skulle være nødvendig at reinstallere Delphi. Prøv evt. at definere PokeVar som en LongInt og/eller undlad at bruge const'en (PokeVar := $C7C7C7C7;).

Nu virker det, mange tak

Hvad var problemet ?