小编Ana*_*laa的帖子

我正在尝试制作delphi程序服务器和客户端,以便保护我的应用程序并确保所有用户都在控制之下我应该给他们一个独特的密钥,不能改变不丢失他们处理,所以我认为它应该是硬盘驱动器序列号+ Bios SN,但我记得Bios可以更换当移除主板电池,所以它将无法正常工作.所以我现在选择的是HDD Real序列号我试试下面的代码来获取它,但它没有工作

    unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,WbemScripting_TLB,ActiveX;

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

function GetWMIstring (wmiHost, wmiClass, wmiProperty : string):string;
var  // These are all needed for the WMI querying process
  Locator:  ISWbemLocator;
  Services: ISWbemServices;
  SObject:  ISWbemObject;
  ObjSet:   ISWbemObjectSet;
  SProp:    ISWbemProperty;
  Enum:     IEnumVariant;
  Value:    Cardinal;
  TempObj:  OleVariant;
  SN: string; …