Dateinamen aus String filtern

[Christian Seehase]

Moin Basic Master,

mit GetKeyNames könnte man das so machen:

Delphi-Quellcode:

var
  R : TRegistry;
  i : integer;

begin
  R := TRegistry.Create;
  try
    R.RootKey := HKEY_CLASSES_ROOT;
    if R.OpenKey('',true) then
    begin
      try
        Memo1.Lines.BeginUpdate;
        try
          Memo1.Lines.Clear;
          R.GetKeyNames(Memo1.Lines);
          for i := Memo1.Lines.Count-1 downto 0 do
          begin
            if pos('.',Memo1.Lines[i]) <> 1 then
            begin
              Memo1.Lines.Delete(i);
            end;
          end;
        finally
          Memo1.Lines.EndUpdate;
        end;
      finally
        R.CloseKey;
      end;
    end;
  finally
    FreeAndNil(R);
  end;
end;

Anschliessend würden alle registrierten Dateiendungen im Memo stehen.