如何取得系统的唯一标识 GUID

Question

MS Windows系统。每台机应该有不同的GUID值。

Answer 1

能生成（理论上）不重复的GUID，而不是每台机器都有一个唯一的GUID

Answer 2

uses activex;var
  guid:TGUID;CoCreateGUID(guid);
ShowMessage(GuidToString(guid));

Answer 3

每次生成的GUID都不用的啊,用些硬件序号信息组合或者网卡MAC地址

Answer 4

cpuid 
  type
    TCPUIDResult = record
      eax : dword;
      ebx : dword;
      ecx : dword;
      edx : dword;
    end;
  function CPUID(EAX:DWord): TCPUIDResult;
    var s1,s2,s3,s4:DWord;
  begin
    asm
      push eax
      push ebx
      push ecx
      push edx
      mov  eax,EAX
      cpuid
      mov s1,EAX
      mov s2,EBX
      mov s3,EcX
      mov s4,Edx
      pop edx
      pop ecx
      pop ebx
      pop eax
  end;
    Result.EAX:=s1;
    Result.EBX:=s2;
    Result.EcX:=s3;
    Result.EdX:=s4;
  end;

Answer 5

CPU序号肯定不行。有几个CPU有序号的？

Answer 6

说句实话，要是每个CPU都有序号，对软件加密来说，那真是天大的好事。

Answer 7

快捷键 ctrl + shift + G