Mendapatkan serialnumber harddisk atau drive dengan powerbuilder

Title : Get Drive Volume Serial Number

Jenis object : Function
Tujuan : Mengambil nomor seri volume drive









Global External Function for PB 9 and underFUNCTION long GetVolumeInformation (string lpRootPathName, REF string lpVolumeNameBuffer, long nVolumeNameSize, REF long lpVolumeSerialNumber, REF long lpMaximumComponentLength, REF long lpFileSystemFlags, REF string lpFileSystemNameBuffer, long nFileSystemNameSize) LIBRARY "KERNEL32.dll" ALIAS FOR "GetVolumeInformationA"

Global External Function for PB 10 and 11Function ulong GetVolumeInformation(Ref string lpRootPathName, Ref string lpVolumeNameBuffer,long nVolumeNameSize, Ref string lpVolumeSerialNumber, long lpMaximumComponentLength, long lpFileSystemFlags, Ref string lpFileSystemNameBuffer, long nFileSystemNameSize) Library "KERNEL32.DLL" Alias For "GetVolumeInformationW"

Global External Function for PB 11.5 to 12.5FUNCTION boolean GetVolumeInformation(string lpRootPathName, ref string lpVolumeNameBuffer, ulong nVolumeNameSize, ref ulong lpVolumeSerialNumber, ref ulong lpMaximumComponentLength, ref ulong lpFileSystemFlags, ref string lpFileSystemNameBuffer, ulong nFileSystemNameSize) Library "KERNEL32.DLL" Alias for "GetVolumeInformationA;Ansi"


String f_getdrivesn(as_drive) string lpRootPathName // address of root directory of the file system string lpVolumeNameBuffer // address of name of the volume ulong nVolumeNameSize // length of lpVolumeNameBuffer ulong lpVolumeSerialNumber // address of volume serial number ulong lpMaximumComponentLength // address of system's maximum filename length ulong lpFileSystemFlags // address of file system flags string lpFileSystemNameBuffer // address of name of file system ulong nFileSystemNameSize // length of lpFileSystemN lpRootPathName = as_drive lpVolumeNameBuffer = space(255) nVolumeNameSize = 255 SetNull(lpFileSystemNameBuffer) GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer, nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLength, lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize) return string(lpVolumeSerialNumber)