registry und Subkey

[EWeiss]

Zitat von Rakshasa:

Code:

var
x: Integer;
sl: TStringlist;

begin

sl := TStringlist.Create;

With TRegistry.Create do begin
 RootKey := HKEY_LOCAL_MACHINE;
 If OpenKey('\Software\Microsoft\Windows', false) then begin
  GetKeynames(sl);

  For x := 0 to sl.count -1 do begin
   Showmessage(sl[x]);
  end;

  CloseKey;
 end;

 free;
end;

sl.free;

Danke für die hilfe

Delphi-Quellcode:

function BASS_WMPVIS_FindPlugins(): PChar; stdcall;
Var
  IntI: integer;

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);
      for IntI := 0 to subKeyNames.Count -1 do
        begin
          Showmessage(subKeyNames[IntI]);
        end;

  finally
   subKeyNames.free;
   PRegKey.CloseKey;
  end;
  Result := FindPluginsPtr; // kommt noch ;)

end;

So gehts ..

Gruss Emil