Hola _F3R_
Podés hacer lo siguiente:
Agrega al Form
. Un TDirectoryListBox.
. Un TFileListBox.
Código Delphi
[-]
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls, FileCtrl;
type
TForm1 = class(TForm)
DirectoryListBox1: TDirectoryListBox;
FileListBox1: TFileListBox;
procedure FormCreate(Sender: TObject);
procedure DirectoryListBox1Change(Sender: TObject);
procedure FileListBox1DblClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation {$R *.dfm}
uses ShellApi;
procedure TForm1.FormCreate(Sender: TObject);
begin
DirectoryListBox1.Directory:= 'C:\'; FileListBox1.Mask:= '*.exe'; end;
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox1.Directory:= DirectoryListBox1.Directory; end;
procedure TForm1.FileListBox1DblClick(Sender: TObject); begin SellExecute(Handle, nil, PChar(FileListBox1.FileName), '', '', SW_SHOWNORMAL);
end;
end.
Saludos.