화일 사이즈 알아내기…. 2가지 입니다.
2가지중 두번째가 속도가 조금 빠릅니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Function Get_FileSize(FileName: String): DWord; var FH: THandle; FI: TByHandleFileInformation; begin Result := 0; FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone); try if FH <> INVALID_HANDLE_VALUE then begin if not GetFileInformationByHandle(FH, FI) then Exit; Result := FI.nFileSizeLow; end; finally CloseHandle(FH); end; end; |
두번째 꺼… 이게 조금 더 빨라요.. 당연한거지마..
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Function Get_FileSize(FileName: String): DWord; Var FH: Integer; Begin Result := 0; FH := FileOpen(FileName, fmOpenRead + fmShareDenyNone); Try if FH <> INVALID_HANDLE_VALUE then Result := GetFileSize(FH, nil); Finally FileClose(FH); End; end; |
최신 댓글