وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/٢۸
function GetFileSize(FName: string): Int64;
var
  ch: File;
  OldMode: Integer;
begin
  OldMode := FileMode;
  Result := -1;
  if not FileExists(FName) then Exit;
  try
    AssignFile(ch, FName);
    FileMode := 0;
    Reset(ch,1);
    Result := FileSize(ch);
  finally
    CloseFile(ch);
    FileMode := OldMode;
  end;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :