unit1.pas

来自「GetMACAddress 用于获取网卡地址」· PAS 代码 · 共 51 行

unit Unit1;

interface

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

type
  TfrmMain = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    edtGUID: TEdit;
    edtMAC: TEdit;
    GroupBox2: TGroupBox;
    btnExit: TButton;
    btnRun: TButton;
    procedure btnRunClick(Sender: TObject);
    procedure btnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.DFM}
procedure TfrmMain.btnExitClick(Sender: TObject);
begin
  frmMain.Close;
end;

procedure TfrmMain.btnRunClick(Sender: TObject);
var
  GUID: TGUID;
  WCLID: array[0..127] of WideChar;
  Start:Integer;
begin
  CoCreateGUID(GUID);
  StringFromGuid2(GUID,WCLID,SizeOf(WCLID) div 2);
  edtGUID.Text:=WideCharToString(WCLID);
  Start:=Length(edtGUID.Text)-12;
  edtMAC.Text:=Copy(edtGUID.Text,Start,12);
end;
end.