registry: string auslesen

[Pseudemys Nelsoni]

Delphi-Quellcode:

function RegMirc(mWnd, aWnd: HWND; data, parms: PChar; show, nopause: boolean): integer; stdcall;
var
  lpValueName     : PChar;
  KeyH            : HKEY;
  lpDataBuf       : PChar;
  lpcbDataBufSize : DWORD;
begin
  Result := 2;
  if RegOpenKeyEx(
       HKEY_CURRENT_USER,
       'Software\mIRC\UserName',
       0,
       KEY_READ,
       KeyH
     ) = ERROR_SUCCESS then
  Try
    lpValueName := '';
    lpcbDataBufSize := SizeOf(lpDataBuf);
    RegQueryValueEx(
      KeyH,
      @lpValueName,
      nil,
      nil,
      @lpDataBuf,
      @lpcbDataBufSize
    );
    MessageBox(0, PChar(lpDataBuf), '!', 0);
  Finally
    RegCloseKey(KeyH);
  end;
end;

hallo leute,

meine Messagebox gibt mir nichts anderes ausser ein "viereck"-zeichen aus. In der registry steht aber in dem key die value "hallo", wieso bekomme ich den Wert nicht?