Kann mit RegQueryValueEx etc. in Delphi nicht umgehen

[Christian Seehase]

Moin Chewie,

hier mal eine komplettes Beispiel, um einen einzelnen Value abzufragen:

Code:

var
  hResult              : HKEY;
  dwValueCount         : DWORD;
  dwMaxValueNameLength : DWORD;
  dwMaxValueLength     : DWORD;
  pValueBuffer         : Pointer;
  dwValueType          : DWORD;
  dwWork               : DWORD;

begin
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,PChar('software\Apple Computer, Inc.\QuickTime'),0,KEY_READ,hResult) = ERROR_SUCCESS then
  begin
    try
      if RegQueryInfoKey(
           hResult,nil,nil,nil,nil,nil,nil,@dwValueCount,@dwMaxValueNameLength,@dwMaxValueLength,nil,nil) = ERROR_SUCCESS then
      begin
        dwWork       := dwMaxValueLength;
        pValueBuffer := AllocMem(dwMaxValueLength);
        try
          RegQueryValueEx(hResult,PChar('InstallDir'),nil,@dwValueType,pValueBuffer,@dwWork);
          ShowMessage(PChar(pValueBuffer));
        finally
          FreeMem(pValueBuffer,dwMaxValueLength);
        end;
      end;
    finally
      RegCloseKey(hResult);
    end;
  end;
end;

Vielleicht hilft Dir das dem Problem auf die Spur zu kommen.