急,请问如何为设计的程序编写序列号?

解决方案 »

  1.   

    最简单的方法:产生若干GUID,保存在你的应用程序中,直接当作序列号用就行了呗。
      

  2.   


    取CPU系列号再自己去算!!
    var stepping,model,family:Byte;
    procedure GetCpuID;
    asm
      Push eax
      mov eax,1
      dw $A20F
      MOV STEPPING,AL
      AND STEPPING,OFH
      AND AL,0F0H
      SHR AL,4
      MOV MODEL,AL
      SHR AX,8
      AND AL,0FH
      MOV FAMILY,AL
      POP EAX
    end