Delphi获取Mac
来源:互联网 发布:贾宝玉 知乎 编辑:程序博客网 时间:2024/05/21 23:00
function MacAddress: string;
var
Lib: Cardinal;
Func: function(GUID: PGUID): Longint; stdcall;
GUID1, GUID2: TGUID;
begin
Result := ';
Lib := LoadLibrary('rpcrt4.dll');
if Lib <> 0 then
begin
if Win32Platform <>VER_PLATFORM_WIN32_NT then
@Func := GetProcAddress(Lib, 'UuidCreate')
else @Func := GetProcAddress(Lib, 'UuidCreateSequential');
if Assigned(Func) then
begin
if (Func(@GUID1) = 0) and
(Func(@GUID2) = 0) and
(GUID1.D4[2] = GUID2.D4[2]) and
(GUID1.D4[3] = GUID2.D4[3]) and
(GUID1.D4[4] = GUID2.D4[4]) and
(GUID1.D4[5] = GUID2.D4[5]) and
(GUID1.D4[6] = GUID2.D4[6]) and
(GUID1.D4[7] = GUID2.D4[7]) then
begin
Result :=
IntToHex(GUID1.D4[2], 2) + '-' +
IntToHex(GUID1.D4[3], 2) + '-' +
IntToHex(GUID1.D4[4], 2) + '-' +
IntToHex(GUID1.D4[5], 2) + '-' +
IntToHex(GUID1.D4[6], 2) + '-' +
IntToHex(GUID1.D4[7], 2);
end;
end;
FreeLibrary(Lib);
end;
end;
- Delphi获取Mac
- Delphi 获取Mac地址
- delphi 获取MAC地址
- Delphi获取Mac地址方法
- DELPHI获取网卡MAC地址
- Delphi自定义获取网卡MAC地址过程
- Delphi 获取Computer,Ip,工作组,MAC
- DELPHI获取网卡MAC地址 转
- delphi获取MAC地址的function()
- Delphi获取本机的MAC地址
- [Delphi]获取机器的Mac地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取多网卡IP地址列表和Mac地址
- delphi获取
- delphi得到MAC地址
- mac ansi99 delphi版
- Frequently oral english sentence!
- bladeproject正式启动
- 探亲购物大行动
- Pettern 基础
- Java的异常机制详解
- Delphi获取Mac
- Microsoft Visual Basic 2005 我的新选择!
- ADO.NET 2.0 中的新增 DataSet 功能--性能提高44倍?(GridView VS Datagrid)
- 找回IIS帮助文档的树状目录
- GLSL基础教程(一)
- 千万不要死于无知——几条健康忠告
- 《程序员》06年8期:[管理&实践]软件开发过程中的测试管理
- Css处理IE和FIREFOX下兼容问题。。。
- 儒家文化是万恶之源