totodog您好:
試試看下面的source Code    unit Unit1;
 
interface
 
uses
  SysUtils,
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);
var
  openDialog : TOpenDialog;    // Open dialog variable
  i : Integer;
begin
  // Create the open dialog object - assign to our open dialog variable
  openDialog := TOpenDialog.Create(self);      // Set up the starting directory to be the current one
  openDialog.InitialDir := GetCurrentDir;      // Allow multiple files to be selected - of any type
  openDialog.Options := [ofAllowMultiSelect];      // Display the open file dialog
  if not openDialog.Execute
  then ShowMessage('Open file was cancelled')
  else
  begin
    // Display the selected file names
    for i := 0 to openDialog.Files.Count-1 do
      ShowMessage(openDialog.Files);
  end;      // Free up the dialog
  openDialog.Free;
end;
 
end.