🚀 go-pugleaf

On Thu, 17 Jun 2004 18:23:03 +0100, john blackburn wrote:

> Fabi� wrote:
> 
>> is there any component to get a serial number to identify a pc?
> 
> I don't think so; Dell for one (and probably others) has a readable asset
> tag but it is proprietary.  
> 
> There are several things you can do, however, like register its MAC address;
> this is probably the most straight forward.  Nothing will be perfect but
> this works.

another option is to get hard disk serial number.
Try 

void __fastcall TForm1::GetVolumeInfo(AnsiString Volume)
{
  char VolName[80];
  DWORD SerialNum;
  char SerialNumStr[20];
  DWORD maxCompLen;
  DWORD FileSysFlags;
  char FileSysName[20];

  if (GetVolumeInformation( Volume.c_str(), VolName, sizeof(VolName),
&SerialNum, &maxCompLen, &FileSysFlags, FileSysName,
    sizeof(FileSysName))){
    Memo1->Lines->Add(Volume + " " + VolName);
    AnsiString a;
    a.sprintf(SerialNumStr, "%08x", SerialNum);
    Memo1->Lines->Add("Volume Serial Number is : " + a.UpperCase());
  }
}

Hope it helps,
Dave