Datei suchen und gleich starten?

[Sharky]

Hai Snyderburn,

anstelle einer TListBox kannst Du auch direkt mit TStrings arbeiten.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  files : TStrings;
  ndx   : Integer;
begin
  files := TStrings.Create;
  try
    GetFilesInDirectory('C:\','*.*',files,False);
    for ndx := 0 to Pred (files.Count) do
    begin
      Mache_Etwas_mit_File (files.Strings[ndx]);
    end;
  finally
    files.Free;
  end;
end;