首頁 > 資訊科技 > Delphi開發 > 取得登錄碼中網卡GUID編號
2009
07-10

取得登錄碼中網卡GUID編號

要先 uses registery
[delphi]function GateWay:string;
var
Reg :TRegistry;
MyStr : TStrings;
buffer : array[0..1024] of byte;
i:integer;
info:TRegKeyInfo ;
str:string;
begin
Result:='';
Reg :=TRegistry.Create;
Mystr:=Tstringlist.Create;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards',false) then
begin
if reg.GetKeyInfo(info) then
begin
reg.GetKeyNames(mystr);
str:='SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards'+Mystr.Strings[0];
end;
end;
Reg.CloseKey;
Mystr.Free;
Reg.RootKey :=HKEY_LOCAL_MACHINE;
if reg.OpenKey(str,false) then
str:=reg.ReadString('ServiceName');
Reg.CloseKey;
Reg.free;
Result:=Str;
end;[/delphi]
使用範例: showmessage(getNetCardGuid);
執行結果: {10795F51-50BD-4E34-8AF0-004C068B6B06}

最後修改日:
作者:蔡 小翰

常見問題:

  1. 文章可以轉貼嗎?可以,不過請要註明出處並標示本站連結。
  2. 載點可以轉貼嗎?可以,歡迎隨意盜連,無須告知。
  3. 反盜版聲明:本站支持正版軟體,請勿討論破解版、快樂版、註冊碼、註冊機、序號...等違法主題。
  4. 檔案無法解壓縮或解壓縮時發生錯誤?請使用7-Zip解壓縮
  5. 更多細節請參閱使用條款及免責聲明


發表迴響