|
var
VolumeSerialNumber :
DWORD;
MaximumComponentLength :
DWORD;
FileSystemFlags :
DWORD;
begin
GetVolumeInformation('C:\',
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
HDD := IntToHex(HiWord(VolumeSerialNumber),
4)+
'-' + IntToHex(LoWord(VolumeSerialNumber),
4);
Hope this helps
Robert Martin
Software Engineer
Wild Software Ltd
----- Original Message -----
Sent: Friday, August 10, 2001 8:42
AM
Subject: Re: [DUG]: Unique Machine
ID....
Dear Robert,
>>Would the HDD ID be acceptable. If
so I can post example code.
Can you post example code?
Thanks
Leigh
----- Original Message -----
Sent: Thursday, August 09, 2001 3:22
PM
Subject: Re: [DUG]: Unique Machine
ID....
Would the HDD ID be acceptable. If so I
can post example code.
Robert Martin
Software Engineer
Wild Software Ltd
----- Original Message -----
Sent: Thursday, August 09, 2001 3:09
PM
Subject: [DUG]: Unique Machine
ID....
G'Day All,
I know this one has been asked ad nauseum
but.....
I need to come up with a unique identifier for a machine.
For my purposes a NIC address would be sufficient. I am willing to wear
the small chance that two network cards would have the same NIC address.
However the concern I do have is for a computer that does not have a NIC
but only a dial up connection. Obviously then there is no NIC address? Can
someone comment on that? Also, if anyone has a relatively simple mechanism
to obtain a unique ID for each machine I would be much
obliged.
--
Donovan
----------------------------------------------------------------------
Donovan J. Edye [www.edye.wattle.id.au]
Namadgi Systems [www.namsys.com.au]
Voice: +61 2 6285-3460
Fax: +61 2 6285-3459
TVisualBasic =
Class(None);
Heard just before the 'Big Bang': "...Uh Oh...."
----------------------------------------------------------------------
GXExplorer [http://www.gxexplorer.org] Freeware Windows Explorer
replacement. Also includes freeware
delphi windows explorer components.
----------------------------------------------------------------------
|
