Dateien (videos) wie sortiert hintereinander laden /aufrufen

[taktaky]

Zitat von Die Muhkuh:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Mask:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename)) + '*.*';
end;

nun funktioniert, sowohl mit meinem Code, was Deddy vorgeschalgen hat, als auch von Muhkuh

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FileListBox1.Directory := ExtractFilePath(ParamStr(0)); // und in mask auch "Ordnername\*.*"  eingeben

// oder so:
  FileListBox2.Mask:= IncludeTrailingPathDelimiter(ExtractFilePath(Application.Exename)) + 'Ordnername\*.*'; 
end;

Danke für beide

<>