Datei suchen und gleich starten?

[Snyderburn]

Hallo Leute,

das mit dem Datei suchen habe ich schon hinbekommen und er schreibt die Infos gleich in ein Listbox. Gibt es eine möglichkeit, diese Datei gleich zu öffnen, ohne die vorher in ein Listbox zu schreiben?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  GetFilesInDirectory('C:\','*.*',Listbox1.Items,False); 
end;

Gruß
Snyderburn

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

[F.W.]

Du könntest auch mit FindFirst und FindNext (in der OH ist n gutes Beispiel oder suchst hier mal danach) arbeiten und dann mit ShellExecute die Dateien öffnen, da sparst du dir die TStrings ganz.
Deine Methode kenn ich noch garnicht, gleichmal ausprobieren! Sieht nach weniger arbeit aus!

[EDIT]Die Procedure ist wohl selbst geschrieben, kann sie garnich finden![/EDIT]