Delphi - Combobox Inhalt eines Ordners

[Sharky]

Hai michJack,

da gibt es verschiedene Lösungen
Hier mal die Links zu den Lösungengrundlagen im Forum:

sakuras Eintrag in der Code-Library

Code von marabu zum Zählen von Dateien bis D7
Code von marabu zum zählen von Dateien (ab D2005)

Ich benutze hier mal den Code von marabu (D2006) in leicht veränderter Form (ich möchte ja nicht die Dateien zählen).

Delphi-Quellcode:

uses FileCtrl;

procedure GetFileList(aMask : string;aList : TStrings);
begin
  aList.Clear;
  with TFileListBox.CreateParented(HWND(-3)) do
  begin
    try
      Mask := ExtractFileName(aMask);
      Directory := ExtractFilePath(aMask);
      FileType := [ftArchive];
      aList.Assign(items);
    finally
      Free;
    end
  end;
end;

procedure TDemoForm.Button1Click(Sender: TObject);
var
  apppath : string;   // Pfad zum Anwendungesverzeichniss
  mask : string;
begin
  apppath := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
  mask := '*.txt';
  GetFileList(apppath + mask,ComboBox1.Items);
end;