取的是所有的文件，你可以在里面增加文件后缀的判断。取得的最新文件写到LABLE1里了，赋值到image控件上不是问题吧？unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } tmNewest : Integer; fnNewest : string; procedure GetFileList(strPath : string); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin tmNewest :=0; fnNewest :=''; GetFileList('f:/T8'); Label1.Caption :=fnNewest;end;procedure TForm1.GetFileList(strPath : string);var searchRec: TSearchRec; FileAttrs: Integer; tmpStr : string; found : Integer;begin tmpStr := strPath + '/*.*'; found := FindFirst(tmpStr, faAnyFile, searchRec);//第一个文件或目录 while found = 0 do begin if (searchRec.Attr and faDirectory) <> 0 then begin if (searchRec.Name <> '.') and (searchRec.Name <> '..') then begin tmpStr := strPath + '/' + searchRec.Name; GetFileList(tmpStr);//递归调用 end; end else begin if (searchRec.Time> tmNewest) then begin tmNewest :=searchRec.Time; fnNewest :=strPath + '/' + searchRec.Name; end; end; //查找下一个文件或目录 found := FindNext(searchRec); end; //释放资源 FindClose(searchRec);end;end.
