Yes I have found this also. However the purpose of our protection was to
stop people form outside the company using our software. The chances that
their hard disk has the same serial number as tha machine that they copied
from is still pretty slim.
Matt.
----- Original Message -----
From: Wilfred Verkley <[EMAIL PROTECTED]>
To: Multiple recipients of list delphi <[EMAIL PROTECTED]>
Sent: Tuesday, August 31, 1999 10:53 AM
Subject: RE: [DUG]: Hard drive serial Number
> 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
>
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
