اندازه یک فایل

[فریدی]

برای بدست آوردن اندازه یک فایل از چه دستوری باید استفاده کرد :گیج:

[فرزاد دلفی باز]

یک جستجو بکن....

[saeed_d]

با تابع filesize

[vcldeveloper]

File_Size := GetCompressedFileSize(PAnsiChar(FileName),nil);

[فریدی]

ممنون آقای کشاورز :D

[فریدی]

این دستور در XP مشکلی ندارد ولی در ویندوز 98 و ME جواب نمیدهد. مشکل چیست؟

[vcldeveloper]

توی ویندوز 98 و Me می تونید از تابع GetFileSize استفاده کنید که در تمام ویندوزها کار میکنه.

[فریدی]

آقای کشاورز من نتونستم از این دستور استفاده کنم اگه لطف کنید طریقه استفاده از این دستور رو بنویسید ممنونم. ::نوشتن::

[vcldeveloper]

function SizeOfFile(FileName: string): integer;
var
hFile : THandle;

begin
//Find files handle and open it for query its attributes
hFile := CreateFile(PAnsiChar(FileName), //File name
0, //Access mode = query device access
FILE_SHARE_READ, //Share mode = just cuncurrent read is allowed
nil, //Security attribute = none
OPEN_EXISTING, //Creation mode= Open existing file
FILE_ATTRIBUTE_NORMAL,//Use normal attributes for the file
0); //Do not use any template file.
try
//Get file size. (-1) = error
Result := GetFileSize(hFile,nil);
finally
//If file handle is valid
if hFile > 0 then
//Close handle which had been opened by CreateFile()
CloseHandle(hFile);
end; //try-finally

end;

[فریدی]

از جوابتون واقعا متشکرم :sunglass: