{得到文件的大小 KB}//调用 返回值:=GetFileSize(application.ExeName);
function GetFileSize(const FileName: string): string;
var
SR: TSearchRec;
begin
Result := '-1';
if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then
try
Result := format('%d KB',[SR.Size div 1024]);
finally
FindClose(SR);
end;
end;