Vielleicht möchtest du dir mal die Komponente FileListBox in der Palette "Win 3.1" ansehen?
Grüße vom marabu
Da hätte ich noch was:
Delphi-Quellcode:
procedure TDemoForm.InitButtonClick(Sender: TObject);
var
i: integer;
s: string;
begin
s := '*.pas';
if InputQuery('select files', 'mask', s) then begin
FileListBox.Mask := s;
ComboBox.Clear;
for i := 0 to FileListBox.Items.Count - 1 do
ComboBox.Items.Add(FileListBox.Items[i]);
end;
end;