Question

谁能把VB的这个函数换成DELPHI的

Answer 1

GetVolumeInformation的例子: 请打开Delphi下Source\Vcl\fileCtrl.pas,
看一下函数 function VolumeID(DriveChar: Char): string; 

//下边这段代码是对的 在VB中定义是不对的 因为LONG最大值是2147483647 DWORD的最大值是4294967295 
function GetHDNumber(Drv : String): DWORD; 
var 
VolumeSerialNumber : DWORD; 
MaximumComponentLength : DWORD; 
FileSystemFlags : DWORD; 
begin 
if Drv[Length(Drv)] =':' then Drv := Drv + '\'; 
GetVolumeInformation(pChar(Drv),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0); 
Result:= (VolumeSerialNumber); 
end;