//　ファイルの作成・更新・最終書込日時を得る
function GetFileTime(fname:string ;var tCreation,tLastAccess, tLastWrite:TdateTime):boolean;
var F: TWin32FindData;
var h:THandle;
begin
　h:=FindFirstFile(PChar(fname),F);
　if h<>INVALID_HANDLE_VALUE then
　begin
　　tCreation := FileTimeToDateTime( F. ftCreationTime );
　　tLastAccess := FileTimeToDateTime( F. ftLastAccessTime );
　　tLastWrite := FileTimeToDateTime( F. ftLastWriteTime );
　　Result:=True;
　　Windows.FindClose(h);
　end;
　Result:=false;
end;