Dateinamen aus String filtern

[Christian Seehase]

Moin Zusammen,

TRegistry bietet dafür die Methode GetKeyNames. ;-)

[Basic-Master]

Zitat:

Zitat von Christian Seehase

Moin Zusammen,

TRegistry bietet dafür die Methode GetKeyNames. ;-)

du musst aber noch in den uses Registry reinschreiben... hmm und wie könnte man dann sowas anwenden?

[Stanlay Hanks]

Wenn wir unsere Moderatoren nicht hätten! Vielen Dank. Man liest sich :firejump: :firejump: :firejump:

Stanlay

[Christian Seehase]

Moin Basic Master,

Zitat:

Zitat von Basic-Master

hmm ok wo die ganzen "ordner" der reg liegen, wo die endungen drin sind weiss ich... nur da bräuchte man dann sowas wie readsections bei tinifile...

und wo ist jetzt das Problem mit GetKeyNames?

[Basic-Master]

wie kann ich in den "ordner" gehen, wo die ganzen anderen ordner liegen?

[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.

[Basic-Master]

hmm das geht schonmal (thx), jetz muss ich das nur noch zu ner funktion zusammen basteln...