××××opendialog中多选，怎么得到多选的文件信息×××××

Question

HELP

Answer 1

Var
  I: Integer;
  sFile: String;
Begin
  For I:=0 To OpenDialog1.Files.Count-1 Do
   Begin
     sFile:= OpenDialog1.Files.String[I];
     ...
   End;
End;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    ListBox1.Clear;
    for i := 0 to OpenDialog1.Files.Count - 1 do
      ListBox1.Items.Add(OpenDialog1.Files[i]);
  end;end;

Answer 3

找到后可用api函数 GetFileSize(HANDLE hFile, LPDWORD lpdwFileSizeHigh)
GetFileTime(HANDLE hFile, LPFILETIME lpftCreation, LPFILETIME lpftLastAccess, LPFILETIME lpftLastWrite)