Thema: Delphi Wert von RegSetValueEx

Einzelnen Beitrag anzeigen

me2u
(Gast)

n/a Beiträge
 
#1

Wert von RegSetValueEx

  Alt 4. Apr 2007, 13:56
Hallo,

ich versuche mich gerade daran RegSetValueEx zu hooken. Dabei möchte ich den Wert (Parameter "lpValue"), der gesetzt wird als string an meine LogApplication senden. Allerdings weiß ich nicht, wie ich an den Inhalt von "lpValue" (Typ: PByte) kommen kann. Erstmal ist es ja immer ein unterschiedlicher Datentyp, d.h. ich mache eine Fallunterscheidung (case) nach dem Parameter "dwType".

Code:
 
  function ValueToStr(lpData: PByte): string;
  case dwType of
    REG_DWORD : Str(lpData^, Result);
    REG_SZ   : Result := lpData^;
    ...
und zweitens komme ich über den zeiger lpData immer nur an das erste Byte heran. Also meine Strings die ich übermittle bestehen immer nur aus dem ersten Character und meine Zahlen bewegen sich nur im Intervall 0 .. 255. Der Funktion RegSetValueEx wird aber auch noch der Parameter "cbData" (Typ: DWORD) übergeben, der der Grösse von "lpData" in Byte entspricht.
Habe schon versucht ihn mit an ValueToStr zu übergeben und ihn einzusetzen... nur ich weiß nicht wie.
Also wie kann ich einer Variablen den Speicherinhalt (referenziert durch "lpData") zuweisen?

MfG
Markus
  Mit Zitat antworten Zitat