取得/设置磁盘卷标(50分)

&nbsp; &nbsp;1 如题；<br>&nbsp; &nbsp; 2 取得文件全部属性（象对文件用右键得到那些全部属性）。

1.讨论的问题里有<br>&nbsp; 帮你贴过来!<br>&nbsp; GetVolumeInformation的例子: 请打开Delphi下Source/Vcl/fileCtrl.pas, <br>&nbsp; &nbsp;看一下函数 function VolumeID(DriveChar: Char): string;<br>&nbsp; SetVolumeLabel(不是SetVolume):<br>function VolumeLabel(DriveChar: Char; NewLabel: String): boolean;var<br>&nbsp; OldErrorMode: Integer;begin &nbsp;//<br>&nbsp; OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS); &nbsp;try<br>&nbsp; &nbsp; result:=SetVolumeLabel(PChar(DriveChar + ':/'), PChar(NewLabel)); &nbsp;finally<br>&nbsp; &nbsp; SetErrorMode(OldErrorMode); &nbsp;end;end;<br>2.文件大小本论坛讨论过了<br>&nbsp; 文件版本可以用API GETFILEVERSIONINFO<br>

1.同上，用GetVolumeInformation 和SetVolumeLabel<br>2.用ShGetFileInfo,具体用法见HLP.

&nbsp; &nbsp;Thanks!

&nbsp; &nbsp;Thanks!