function GetHardDiskId: string;
var
VolName,fSysName : Pchar;
MaxLength,fSysFlag: Dword;
SerialNo: Dword;
begin
Result:='';
GetMem(Volname,50);
GetMem(fSysName,50);
GetVolumeInformation('c:\',VolName,30,@SerialNo,MaxLength,
fSysFlag,FsysName,30);
Result :=IntToStr(SerialNo);
end;
------------------------------------------------------------------
请大家看看这段代码是取硬盘的什么号????
为什么机子号会有一样的????
var
VolName,fSysName : Pchar;
MaxLength,fSysFlag: Dword;
SerialNo: Dword;
begin
Result:='';
GetMem(Volname,50);
GetMem(fSysName,50);
GetVolumeInformation('c:\',VolName,30,@SerialNo,MaxLength,
fSysFlag,FsysName,30);
Result :=IntToStr(SerialNo);
end;
------------------------------------------------------------------
请大家看看这段代码是取硬盘的什么号????
为什么机子号会有一样的????
LPTSTR lpVolumeNameBuffer, // address of name of the volume
DWORD nVolumeNameSize, // length of lpVolumeNameBuffer
LPDWORD lpVolumeSerialNumber, // address of volume serial number
LPDWORD lpMaximumComponentLength, // address of system's maximum filename length
LPDWORD lpFileSystemFlags, // address of file system flags
LPTSTR lpFileSystemNameBuffer, // address of name of file system
DWORD nFileSystemNameSize // length of lpFileSystemNameBuffer
);
ParameterslpRootPathNamePoints to a string that contains the root directory of the volume to be described. If this parameter is NULL, the root of the current directory is used. If this parameter is a UNC name, you must follow it with an additional backslash. For example, you would specify \\MyServer\MyShare as \\MyServer\MyShare\.lpVolumeNameBufferPoints to a buffer that receives the name of the specified volume. nVolumeNameSizeSpecifies the length, in characters, of the volume name buffer. This parameter is ignored if the volume name buffer is not supplied. lpVolumeSerialNumberPoints to a variable that receives the volume serial number. This parameter can be NULL if the serial number is not required. lpMaximumComponentLengthPoints to a doubleword value that receives the maximum length, in characters, of a filename component supported by the specified file system. A filename component is that portion of a filename between backslashes.
The value stored in variable pointed to by *lpMaximumComponentLength is used to indicate that long names are supported by the specified file system. For example, for a FAT file system supporting long names, the function stores the value 255, rather than the previous 8.3 indicator. Long names can also be supported on systems that use the New Technology file system.lpFileSystemFlagsPoints to a doubleword that receives flags associated with the specified file system. This parameter can be any combination of the following flags, with one exception: FS_FILE_COMPRESSION and FS_VOL_IS_COMPRESSED are mutually exclusive. Value Meaning
FS_CASE_IS_PRESERVED If this flag is set, the file system preserves the case of filenames when it places a name on disk.
FS_CASE_SENSITIVE If this flag is set, the file system supports case-sensitive filenames.
FS_UNICODE_STORED_ON_DISK If this flag is set, the file system supports Unicode in filenames as they appear on disk.
FS_PERSISTENT_ACLS If this flag is set, the file system preserves and enforces ACLs. For example, NTFS preserves and enforces ACLs, and FAT does not.
FS_FILE_COMPRESSION The file system supports file-based compression.
FS_VOL_IS_COMPRESSED The specified volume is a compressed volume; for example, a DoubleSpace volume.
lpFileSystemNameBufferPoints to a buffer that receives the name of the file system (such as FAT or NTFS). nFileSystemNameSizeSpecifies the length, in characters, of the file system name buffer. This parameter is ignored if the file system name buffer is not supplied. Return ValuesIf all the requested information is retrieved, the return value is nonzero.
If not all the requested information is retrieved, the return value is zero. To get extended error information, call GetLastError. ResIf you are attempting to obtain information about a floppy drive that does not have a floppy disk or a CD-ROM drive that does not have a compact disc, the system displays a message box asking the user to insert a floppy disk or a compact disc, respectively. To prevent the system from displaying this message box, call the SetErrorMode function with SEM_FAILCRITICALERRORS.
The FS_VOL_IS_COMPRESSED flag is the only indicator of volume-based compression. The file system name is not altered to indicate compression. This flag comes back set on a DoubleSpace volume, for example. With volume-based compression, an entire volume is either compressed or not compressed.The FS_FILE_COMPRESSION flag indicates whether a file system supports file-based compression. With file-based compression, individual files can be compressed or not compressed.
The FS_FILE_COMPRESSION and FS_VOL_IS_COMPRESSED flags are mutually exclusive; both bits cannot come back set.
The maximum component length value, stored in the DWORD variable pointed to by lpMaximumComponentLength, is the only indicator that a volume supports longer-than-normal FAT (or other file system) file names. The file system name is not altered to indicate support for long file names.The GetCompressedFileSize function obtains the compressed size of a file. The GetFileAttributes function can determine whether an individual file is compressed.See AlsoGetCompressedFileSize, GetFileAttributes, SetErrorMode, SetVolumeLabel