HD Serial numbers arnt always unique I think. Batches of hard-drives may
have the same number, you may discover this when you buy a batch of
computers from a supplier. This caused problems with a copy-protection
scheme I developed once. One registration key would work on several
machines.
-----Original Message-----
From: Matthew Comb [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, 31 August 1999 10:36
To: Multiple recipients of list delphi
Subject: Re: [DUG]: Hard drive serial Number
Just as an add to the HD Serial topic.
I used this with great success in making sure that our software was only run
on our machines. I doctored around with the serial number and recorded it in
the registry and then when the software runs I ran the same algorithm and
compared it to the value in the registry, Shutting the machine down if it
was not the same value.
The only problem I came across was that I found one machine with a hard disk
that had a hyphen '-' in the serial number and thus was not reported as an
integer - screwed my algorithm up (Very sloppy programming). Just thought
you might want to be aware of this.
Matt.
----- Original Message -----
From: Chris Crowe <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, August 31, 1999 10:20 AM
Subject: RE: [DUG]: Hard drive serial Number
> 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;
>
> Chris
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, August 31, 1999 9:33 AM
> To: Multiple recipients of list delphi
> Subject: [DUG]: Hard drive serial Number
>
>
>
> Anyone know off the top of there head the function for getting the hard
> drive serial number of a win9x computer?
>
> James
>
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
