FileExists()------------Function File_Get_Size(Const afile: String): Int64; //取得指定文件大小Var FileInfo: TWin32FindData; FileHandle: THandle;Begin Result := -1; FileHandle := FindFirstFile(PChar(afile), FileInfo); If FileHandle <> INVALID_HANDLE_VALUE Then Begin Windows.FindClose(FileHandle); Int64Rec(Result).Lo := FileInfo.nFileSizeLow; Int64Rec(Result).Hi := FileInfo.nFileSizeHigh; End;End;