为什么我使用GUID获取网卡地址,每次得到的结果都不一样?
procedure TForm1.Button3Click(Sender: TObject);
var
GUID:TGUID;
WCLID:array[0..127] of WideChar;
Start:integer;
begin
coCreateGUID(GUID);
StringFromGuid2(GUID,WCLID,SizeOf(WCLID) div 2);
edit1.Text:=WideCharToString(WCLID);
start:=Length(edit1.Text)-12;
edit2.Text:=copy(edit1.text,start,12);
end;