GetFileSize

← →
Bober (2006-08-08 21:33) [0]

Есть ли в зале люди, которые могли бы подсказать как использовать функцию GetFileSize?

← →
Джо © (2006-08-08 21:47) [1]

Есть.

← →
Bober (2006-08-08 21:53) [2]

Если есть, то не могли бы они помочь мне в этом пикантном вопросе?

← →
Ketmar © (2006-08-08 22:24) [3]

наверное, могли бы.

← →
Джо © (2006-08-08 22:56) [4]

Sz: record case Boolean of True: (L,H: DWord); False: (Value: Int64); end; ... Sz.L := GetFileSize (H,@Sz.H); if Sz.L = INVALID_FILE_SIZE then RaiseLastOSError; ShowMessage (IntToStr(Sz.Value));

Но я не рекоммендую использовать эту функцию. Взамен предлагаю такой, вполне универсальный подход:

var Sz: record case Boolean of True: (L,H: DWord); False: (Value: Int64); end; Sr: TSearchRec; ... if FindFirst(FileName,faAnyFile, SR) = 0 then begin Sz.L := SR.FindData.nFileSizeLow; Sz.H := SR.FindData.nFileSizeHigh; end; FindClose (SR); ShowMessage (IntToStr(Sz.Value));

Это даже лучше, чем GetFileSizeEx, ибо для нее требуется платформа не ниже Win2k.

← →
guav © (2006-08-09 00:21) [5]

Джо © (08.08.06 22:56) [4]

> if Sz.L = INVALID_FILE_SIZE then
> RaiseLastOSError;

"Note that if the return value is INVALID_FILE_SIZE, an application must call GetLastError to determine whether the function has succeeded or failed. The reason the function may appear to fail when it has not is that lpFileSizeHigh could be non-NULL or the file size could be 0xffffffff. In this case, GetLastError will return NO_ERROR upon success."

if (Sz.L = INVALID_FILE_SIZE) and (GetLastError = 0) then RaiseLastOSError;

> if (Sz.L = INVALID_FILE_SIZE) and (GetLastError = 0) then
> RaiseLastOSError;

if (Sz.L = INVALID_FILE_SIZE) and (GetLastError <> 0) then RaiseLastOSError;

GetFileSize Найти похожие ветки