registry und Subkey

[EWeiss]

So ist es OK und kommt alles an.

Delphi-Quellcode:

function BASS_WMPVIS_FindPlugins(): PChar; stdcall;
begin

  PRegKey := TRegistry.Create;
  subKeyNames := TStringList.Create;
  try
    PRegKey.RootKey := HKEY_LOCAL_MACHINE;
    PRegKey.Access := KEY_READ;
    PRegKey.OpenKey('SOFTWARE\Microsoft\MediaPlayer\Objects\Effects', false);
    if PRegKey.HasSubKeys then
      PRegKey.GetKeyNames(subKeyNames);
      if subKeyNames.Count <> 0 then
      begin
          FindPluginsPtr := StrAlloc(Length(subKeyNames.CommaText) + 1);
          StrPCopy(FindPluginsPtr, subKeyNames.CommaText);
      end;
      subKeyNames.free;
      PRegKey.CloseKey;
  except
   subKeyNames.free;
   PRegKey.CloseKey;
  end;
  Result := FindPluginsPtr;

end;

Danke nochmal

Grus Emil