请问如何获得一个文件的大小

[amartapple]

已经知道文件的路径和文件名，如何获得文件大小，文件类型任意

[amartapple]

up

[hlddg]

var
f:Longint;
FSize:integer;
FDateTime:TDateTime;

f:=FileOpen(FileName,fmOpenRead);
FSize:=FileSeek(PFile,0,2);
FileClose(f);

[李_军]

function GetMyFileSize(const AFilename: string): DWORD;
var
HFILE: THandle;
begin
HFILE := CreateFile(PChar(AFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if HFILE <> INVALID_HANDLE_VALUE then
begin
Result := GetFileSize(HFILE, nil);
CloseHandle(HFILE);
end
else
Result := 0;
end;