文件名:procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin if not(OpenPictureDialog1.Execute) then Exit; for I := 0 to OpenPictureDialog1.Files.Count - 1 do ShowMessage(OpenPictureDialog1.Files.Strings[I]); end;
包含了路径,分离文件名用ExtractFileNameprocedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin if not(OpenPictureDialog1.Execute) then Exit; for I := 0 to OpenPictureDialog1.Files.Count - 1 do ShowMessage(ExtractFileName(OpenPictureDialog1.Files.Strings[I])); end;
修改日期:procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin if not(OpenPictureDialog1.Execute) then Exit; for I := 0 to OpenPictureDialog1.Files.Count - 1 do ShowMessage(DateToStr(FileDateToDateTime(FileAge(ExtractFileName(OpenPictureDialog1.Files.Strings[I]))))); end;
var
I: Integer;
begin
if not(OpenPictureDialog1.Execute) then Exit;
for I := 0 to OpenPictureDialog1.Files.Count - 1 do
ShowMessage(OpenPictureDialog1.Files.Strings[I]);
end;
var
I: Integer;
begin
if not(OpenPictureDialog1.Execute) then Exit;
for I := 0 to OpenPictureDialog1.Files.Count - 1 do
ShowMessage(ExtractFileName(OpenPictureDialog1.Files.Strings[I]));
end;
var
I: Integer;
begin
if not(OpenPictureDialog1.Execute) then Exit;
for I := 0 to OpenPictureDialog1.Files.Count - 1 do
ShowMessage(DateToStr(FileDateToDateTime(FileAge(ExtractFileName(OpenPictureDialog1.Files.Strings[I])))));
end;