Unicode-Text per ReadProcessMemory auslesen

[infY2k7]

Hi Leutz. Ich bins mal wieder, mit einem readprocessmemory-Problem, was auch sonst :lol:
Folgendes: So liest man für gewöhnlich normale Zahlen wie z.B. 139687 aus dem Speicher:

Delphi-Quellcode:

var p : pointer;
      BytesRead: DWord;
      HandleWindow:longint;

begin
PID:=0;
Wnd := FindWindow(nil,Pchar(windowname));//windowname wurde vorher definiert
GetWindowThreadProcessId(Wnd, @PID); 
HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, PID);
     ReadProcessMemory(HandleWindow,adresse,@ausgabe,4,BytesRead);//adresse auch vorher definiert
end;

Nunja, nun brauch ich nen Unicode-Text aus dem Speicher. Nach stundenlangem googlen stellte ich fest, das ich so ziemlich der einzige Mensch auf dieser Welt mit diesem Problem bin!
Im Bsp. oben ist ausgabe vom typ dword(für normale Zahlen eben)
Wie lese ich nun Unicode aus? Sicher müsste ausgabe ein anderer Typ sein, die Frage ist welcher und wie groß müsste er sein, wie müsste ich die ReadProcessMemory abändern usw...

Danke im Vorraus, mfg infY

[Luckie]

ReadProcessMemory interessiert nicht was die Bytes an der betreffenden Adresse bedeuten. Und im Speicher stehen nur Zahlen. Die Interpretation musst du schon machen.

[infY2k7]

Na.. man kann im Speicher auch Text auslesen! Oder brauch ich dafür ne andere Funktion?? o.O

[Neutral General]

Hast du es nicht verstanden?

ReadProcessMemory liest dir einfach die Bytes der Adresse aus, die du übergeben hast.

Wie diese Bytes zu interpretieren sind (z.B. als unicode text) weiß und interessiert ReadProcessMemory nicht.

Was du mit den erhaltenen Bytes anstellst, ist deine Sache.

[Luckie]

Noch mal, im Speicher stehen nur Zahlen bzw. Werte von Zahlen. Zum Beispiel in Hexadezimalschreibweise:

Code:

6F 62 6A 0D

Das liest du mit ReadProcessMemory aus und nichts anderes. Ob diese vier Byte nun einen Integerwert repräsentieren oder vier ASCII Zeichen codieren, das entscheidet die Software.

[infY2k7]

Ah ok habs anders interpretiert vorhin. Ja die Frage ist nur, wie mach ich aus dem ganzem ein Unicode-String?

[brechi]

Delphi-Quellcode:

var
  buf: array of char;
ws: widestring;
x: char;
begin
  addr := start;
  repeat
   Readprocessmemory(addr,@x)
   inc(addr,2);
  until x = #0;

  setlength(buf, addr-start);

  ReadprocessMemory(@buf, addr-start);

  ws := PWideChar(buf);
end;

pseudocode :) (bzw besser word einlesen)

der 1. Teil schaut nach der Länge des widestrings (#0 als word = ende)
der zweite liest dann das ganze in einen Buffer
und am schluss hast du das als widestring

[infY2k7]

ty, ma schaun ob ichs hinkrieg!