>> function GetHDSerialNumber: LongInt;
> Description : Get the Serial Number of the Hard Disk where the Key File
lives.
> Input : none
> Output : Returns Serial Number of disk where is fKeyFileName
if success or -1 on error.
> Notes : This only returns SerialNumber under Win 95/NT, for
: win 3.1, I am using GetWinFlags which returns a LongInt
: that contains CPU and Mode information. Not as good, but
: far more reliable than trying to query the HD information
: from Win 3.1
==============================}
function GetHDSerialNumber: LongInt;
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation(nil,nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;
试试吧
