如何获得WINDOWS未知类型的文件的大小？ (100分)

lee_xl · 2002-02-22

例如： var   Security: TSecurityAttributes;           hFile: Integer;                         FileInfo: TByHandleFileInformation;     Intermediate: TFileTime;                 SystemTime: TSystemTime;                 FileType: DWORD;                                                 begin   Security.nLength:=SizeOf(TSecurityAttributes);   Security.bInheritHandle:=FALSE;   hFile:=CreateFile(PChar(FileListBox1.FileName), GENERIC_READ, 0, @Security,                     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);   if (hFile <> INVALID_HANDLE_VALUE) then   begin     GetFileInformationByHandle(hFile,FileInfo);     Label1.Caption := ExtractFileName('SQLServer200DataBase.mdf');     FileTimeToLocalFileTime(FileInfo.ftLastWriteTime, Intermediate);    FileTimeToSystemTime(Intermediate, SystemTime);      {display the volume serial number}     Label8.Caption:=IntToStr(FileInfo.dwVolumeSerialNumber);     {display the file size}     Label4.Caption:=IntToStr(GetFileSize(hFile, nil))+ ' bytes';     FileType:=GetFileType(hFile);       CloseHandle(hFile);   end; 但是windows判断不出文件类型，得出的文件大小为0!!! 请大家赐教！

wyh919 · 2002-02-22

可以这样做： procedure TForm1.Button1Click(Sender: TObject); var   fs: TFileStream; begin   fs:= TFileStream.Create('c:/temp/test.123',fmOpenRead);   try     ShowMessage(IntToStr(fs.Size)+' Bytes');   finally     fs.Free;   end; end;

lee_xl · 2002-02-22

不灵！ 提示不能打开sql server的数据库文件，即*.mdf格式的

yzhshi · 2002-02-22

这样就可以了，不过方法不是特别好。其实得到文件大小的方法很多。 后面列了一个摘自HUbdog的葵花宝典的例子，得到目录所有文件信息，当然可以摘捡一下。 procedure TForm1.Button1Click(Sender: TObject); var   fs: TFileStream; begin   fs := TFileStream.Create('C:/1.doc', fmOpenRead or fmShareDenyNone);   try     ShowMessage(IntToStr(fs.Size) + ' Bytes');   finally     fs.Free;   end; end; －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 获取目录下全部文件大小 function GetDirectorySize(const ADirectory: string): Integer; var   Dir: TSearchRec;   Ret: integer;   Path: string; begin   Result := 0;   Path := ExtractFilePath(ADirectory);   Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);   if Ret = NO_ERROR then     exit;   try     while ret = NO_ERROR do     begin       inc(Result, Dir.Size);       if (Dir.Attr in [faDirectory]) and (Dir.Name[1]?? '.') then         Inc(Result, GetDirectorySize(Path + Dir.Name + '/*.*'));       Ret := Sysutils.FindNext(Dir);     end;   finally     Sysutils.FindClose(Dir);   end; end;

kkyy · 2002-02-22

Ret := Sysutils.FindFirst(ADirectory, faAnyFile, Dir);   if Ret = NO_ERROR then     exit;   try     while ret = NO_ERROR do     begin       inc(Result, Dir.Size);       if (Dir.Attr in [faDirectory]) and (Dir.Name[1]?? '.') then         Inc(Result, GetDirectorySize(Path + Dir.Name + '/*.*'));       Ret := Sysutils.FindNext(Dir);     end;   finally     Sysutils.FindClose(Dir);   end;

如何获得WINDOWS未知类型的文件的大小？ (100分)

lee_xl

Unregistered / Unconfirmed

wyh919

Unregistered / Unconfirmed

lee_xl

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

kkyy

Unregistered / Unconfirmed

Similar threads