Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Speicherzugriff (https://www.delphipraxis.net/111540-speicherzugriff.html)

XXcD 4. Apr 2008 23:57


Speicherzugriff
 
Hallo,
ich bastel mir gerade ein Programm zusammen um auf meine G15 Tastatur Daten von einem Spiel ausgeben zu lassen.

Mit der Suchfunktion bin ich auf folgendes gestoßen:
Delphi-Quellcode:
procedure TForm6.Button4Click(Sender: TObject);
var
  WindowHandle: Integer;
  Pidi: Integer;
  Read:DWORD ;
  Processhandle: THandle;
  lBuf: integer;
   Wert:DWORD ;
begin
  WindowHandle :=FindWindow(nil,'Fentsertitel');
  if Windowhandle=0 then raise Exception.create('Fenster nicht gefunden');
  GetWindowThreadProcessId(WindowHandle ,@Pidi);
  ProcessHandle :=OpenProcess(PROCESS_VM_READ ,False , pidi);
  if ProcessHandle=0 then raise Exception.create('Kein Zugriff auf Process');
  try
   ReadProcessMemory(Processhandle ,ptr($00400000),@lBuf,4,Wert);
    Edit2.Text :=IntToStr(lbuf);
  finally
    CloseHandle(Processhandle);
  end;
end;
Die Adresse wird so angegeben: $00400000
Die Adresse, die ich habe sieht so aus: 0x00cf097c

Wie kann ich die Adresse benutzen?

Christian Seehase 5. Apr 2008 00:09

Re: Speicherzugriff
 
Dann tausch das 0x mal durch $ aus.

XXcD 5. Apr 2008 00:17

Re: Speicherzugriff
 
klappt nicht das ist ja dann immernoch $00cf097c

Namenloser 5. Apr 2008 00:23

Re: Speicherzugriff
 
Na und? $ ist in Delphi das Präfix für eine Hexadezimalzahl - und genau so eine hast du doch.

XXcD 5. Apr 2008 00:29

Re: Speicherzugriff
 
Ok hab nichts gesagt, es funktioniert einwandfrei.

Vielen Dank.

Christian Seehase 5. Apr 2008 00:43

Re: Speicherzugriff
 
Zitat:

Zitat von NamenLozer
Na und? $ ist in Delphi das Präfix für eine Hexadezimalzahl - und genau so eine hast du doch.

Wobei StrToInt sogar 0x als Präfix akzeptiert ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz