Hardware id...

how can i detect the BIOS or motherboard serial number ?
(delphi code please)

       thanks!!!
       kort77
kort77Asked:
Who is Participating?
 
ZifNabConnect With a Mentor Commented:
Hi kort77,

I don't know what you want to do with it but I guess it's for some sort of copy-protection, well, you can't make something 'water-profed' copy protected. For instance if you use the BIOS number. What if the user updates his BIOS. Poof, program doesn't work anymore...
So I would be very causios using such things for serial numbers. Think thoroughly before you use them!

Here is a component doing it : www.bhnet.com.br/~simonet (ASPowertools)

Another usefull method :

Get serial ID of drive :

function GetSerialIDEx: string;
                              var
                                VolumeSerialNumber : DWORD;
                                MaximumComponentLength : DWORD;
                                FileSystemFlags : DWORD;
                                SerialNumber : string;
                              begin
                                GetVolumeInformation('C:',
                                                     nil,
                                                     0,
                                                     @VolumeSerialNumber,
                                                     MaximumComponentLength,
                                                     FileSystemFlags,
                                                     nil,
                                                     0);
                                SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
                                                '-' +
                                                IntToHex(LoWord(VolumeSerialNumber), 4);
                                Result:=SerialNumber;
                              end;

Regards, Zif.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.