[Delphi 2010] RegQueryValueEx-Problem

**RWarnecke**

Hallo zusammen,

so langsam hasse ich diesen Kram mit Unicode. Ich stehe vor folgendem Problem :

Delphi-Quellcode:

			var

  FAccess : Cardinal;

  Key     : HKEY;

  dwType  : DWORD;

  dwLen   : DWORD;

{...}

  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\Microsoft\Windows NT\CurrentVersion'), 0, FAccess, Key) = 0 then

  begin

    try

      dwType := REG_NONE;               // Typ muss ermittelt werden

      dwLen  := 0;                      // Puffergröße auf Null

      if RegQueryValueEx(key, 'DigitalProductId', nil, @dwType, nil, @dwLen) = ERROR_SUCCESS then

        if (dwType = REG_BINARY) and (dwLen > 0) then

        begin

          SetLength(HexBuf,dwLen);

          RegQueryValueEx(key, 'DigitalProductId', nil, @dwType, @HexBuf[0], @dwLen);

        end;

      Result.ProduktKey := DecodeProductKey(HexBuf);

    finally

      RegCloseKey(key);

    end;

  end;

Dieser Sourcecode hat unter Delphi 2006 noch wunderbar funktioniert. Nur leider schmeißt mir RegQueryValueEx in der ersten IF-Abfrage unter Delphi 2010 den Fehlercode 2 (File not found) zurück. Warum passiert das ? Ich kann mir da leider keinen Reim drauf machen ausser das es mal wieder mit Unicode zu tun hat. Vermute ich das richtig ? Wenn ja, was muss ich ändern, damit es funktioniert ?

[Delphi 2010] RegQueryValueEx-Problem

[Delphi 2010] RegQueryValueEx-Problem

Forumregeln