Mira esto, espero te sirva. un Saludo
FunctionResult is boolean // C Type:BOOL lpRootPathName is system int // C Type:LPCSTR, is a string address, you can also specify a string directly lpVolumeNameBuffer is system int // C Type:LPSTR, is a string address, you can also specify a string directly nVolumeNameSize is int // C Type:DWORD lpVolumeSerialNumber is system int // C Type:LPDWORD lpMaximumComponentLength is system int // C Type:LPDWORD lpFileSystemFlags is system int// C Type:LPDWORD lpFileSystemNameBuffer is system int // C Type:LPSTR, is a string address, you can also specify a string directly nFileSystemNameSize is int // C Type:DWORD
FunctionResult=API("KERNEL32","GetVolumeInformationA","C:\",lpVolumeNameBuffer,nVolumeNameSize,&lpVolumeSerialNumber,lpMaximumComponentLength,lpFileSystemFlags,lpFileSystemNameBuffer,nFileSystemNameSize) Edit1..Value = lpVolumeSerialNumber |