I've also been using the HD serial number to try and stop people making
illegal copies of my code, and also encountered batches of machines with the
same number.
Does anyone know of a foolproof way of uniquely identifying a machine so
that code can be locked to only work on that machine?
==================================================================
Tom Munro Glass
+----------------------------------------------------------------+
| E-mail: |
| Internet: [EMAIL PROTECTED] |
| Web sites: |
| TMG CONSULTANCY: http://www.tmgcon.com |
| Tewkesbury Web: http://www.tmgcon.com/tewksweb |
+----------------------------------------------------------------+
> -----Original Message-----
> From: Myles Penlington [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, August 31, 1999 12:22 AM
> To: Multiple recipients of list delphi
> Subject: RE: [DUG]: Hard drive serial Number
>
>
> I read just recently that the new Pentium III chips have
> their own unique
> serial numbers.
>
> > -----Original Message-----
> > From: Matthew Comb [SMTP:[EMAIL PROTECTED]]
> > Sent: Tuesday, August 31, 1999 11:04 AM
> > To: Multiple recipients of list delphi
> > Subject: Re: [DUG]: Hard drive serial Number
> >
> > 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
> --------------------------------------------------------------
> -------------
> 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
