file size Archives

화일 사이즈 알아내기…. 2가지…

화일 사이즈 알아내기…. 2가지 입니다. 2가지중 두번째가 속도가 조금 빠릅니다.

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;

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;

두번째 꺼… 이게 조금 더 빨라요.. 당연한거지마..

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;

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;

EagleSoft

[태그:] file size

화일 사이즈 알아내기…. 2가지…

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글