物理计算机用户名,delphi 获取硬件信息的delphi源码（CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名）...

最新推荐文章于 2023-02-05 09:37:45 发布
最新推荐文章于 2023-02-05 09:37:45 发布
阅读量399 收藏
点赞数
文章标签： 物理计算机用户名

{-----------------------------------------------------------------------------

作者：sushengmiyan 2013.01.26

备注：

功能：硬件信息获取单元

-----------------------------------------------------------------------------}

unit ApplicationHardWareInfo;

interface

uses

Windows, SysUtils, Classes, Registry, Nb30, WinSock;

type

TCPUID = array[1..4] of Longint;

function GetCPUID: TCPUID; assembler; register;

type

//CPUID信息类

TCPUIDInfo = class

private

FCPUID: TCPUID;

FCPUIDStr: string;

procedure SetCPU(AHandle: THandle; CpuNo: Integer);

function CPUIDTostr(ACPUID: TCPUID): string;

function GetComputerBasicFrequency: string;

function GetCPUType: string;

public

function GetCPUIDstr: string;

property CPUFrequency: string read GetComputerBasicFrequency;

property ProcessorType: string read GetCPUType;

constructor Create;

end;

//mac地址信息类

TMacAdressInfo = class

private

FMacAdress: string;

function GetMacPhysicalAddress(Alana: Integer = 0): string;

function GetMacAddress: string;

public

property MacAdrress: string read GetMacAddress;

constructor Create;

end;

//用户信息类

TPCUserInfo = class

private

function GetUserName: string;

function GetHostIP: string;

function GetWindowsVertion: string;

public

property UserName: string read GetUserName;

property HostIP: string read GetHostIP;

property WindowsVertion: string read GetWindowsVertion;

constructor Create;

end;

implementation

{ TCPUIDInfo }

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：TCPUID

功能：汇编方式获取CPUID

\-----------------------------------------------------------------------------}

function GetCPUID: TCPUID;

asm

PUSH    EBX         {Save affected register}

PUSH    EDI

MOV     EDI,EAX     {@Resukt}

MOV     EAX,1

DW      $A20F       {CPUID Command}

STOSD                {CPUID[1]}

MOV     EAX,EBX

STOSD               {CPUID[2]}

MOV     EAX,ECX

STOSD               {CPUID[3]}

MOV     EAX,EDX

STOSD               {CPUID[4]}

POP     EDI         {Restore registers}

POP     EBX

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：ACPUID: TCPUID

返回：string

功能：将十六进制的CPUID转换为字符串

\-----------------------------------------------------------------------------}

function TCPUIDInfo.CPUIDTostr(ACPUID: TCPUID): string;

begin

Result := '';

Result := IntToHex(ACPUID[1] , 8) + IntToHex(ACPUID[2] , 8) + IntToHex(ACPUID[3]

, 8) + IntToHex(ACPUID[4] , 8);

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string

功能：处理器类型

\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetCPUType: string;

var

systeminfo: SYSTEM_INFO;

begin

//获得CPU型号

GetSystemInfo(systeminfo);

Result := IntToStr(systeminfo.dwProcessorType)

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string

功能：CPU频率

\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetComputerBasicFrequency: string;

const

DelayTime = 500;

var

TimerHi, TimerLo: DWORD;

PriorityClass, Priority: Integer;

dSpeed: Double;

begin

PriorityClass := GetPriorityClass(GetCurrentProcess);

Priority := GetThreadPriority(GetCurrentThread);

SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);

SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);

Sleep(10);

asm

dw 310Fh // RDTSC指令

mov TimerLo, eax

mov TimerHi, edx

end;

Sleep(DelayTime);

asm

dw 310Fh // rdtsc

sub eax, TimerLo

sbb edx, TimerHi

mov TimerLo, eax

mov TimerHi, edx

end;

SetThreadPriority(GetCurrentThread, Priority);

SetPriorityClass(GetCurrentProcess, PriorityClass);

dSpeed := TimerLo / (1000.0 * DelayTime);

Result := FormatFloat('0.00' , dSpeed / 1024) + ' GHz';

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：AOwner: TComponent

返回：None

功能：初始化

\-----------------------------------------------------------------------------}

constructor TCPUIDInfo.Create;

begin

FCPUID := GetCPUID;

FCPUIDStr := CPUIDTostr(FCPUID);

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string    CPUID字符串

功能：对外函数，调用这个方法就能得到CPUID

\-----------------------------------------------------------------------------}

function TCPUIDInfo.GetCPUIDstr: string;

begin

SetCPU(GetCurrentProcess , 1);

Result := CPUIDTostr(GetCPUID);

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：AHandle: THandle; CpuNo: Integer

返回：None

功能：设置使用哪个cpu默认是第一个(推荐)

\-----------------------------------------------------------------------------}

procedure TCPUIDInfo.SetCPU(AHandle: THandle; CpuNo: Integer);

var

ProcessAffinity: Cardinal;

_SystemAffinity: Cardinal;

begin

//通过设置进程或线程的亲缘性(affinity)，使进程或线程在指定的CPU(核)上运行

GetProcessAffinityMask(AHandle , ProcessAffinity, _SystemAffinity) ;

ProcessAffinity := CpuNo;

SetProcessAffinityMask(AHandle , ProcessAffinity);

end;

{ TMacAdressInfo }

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：None

功能：初始化

\-----------------------------------------------------------------------------}

constructor TMacAdressInfo.Create;

begin

FMacAdress := GetMacPhysicalAddress;

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string

功能：返回Mac地址

\-----------------------------------------------------------------------------}

function TMacAdressInfo.GetMacAddress: string;

begin

Result := FMacAdress;

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：Alana: Integer = 0

返回：string

功能：通过LANA号获取Mac物理地址 (内存方式获取)，整体步骤如下：

一、枚举系统上可用的所有LANA编号

二、重置计划使用的每个LANA编号

三、适配器命令获取网卡地址

\-----------------------------------------------------------------------------}

function TMacAdressInfo.GetMacPhysicalAddress(Alana: Integer = 0): string;

var

NCB: TNCB;//Netbios控制块

AdapterStatus: TAdapterStatus;//取网卡状态

LanaEnum: TLanaEnum; //LANA枚举值

I: Integer;

begin

Result := '';

Try

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

一、枚举LANA值

①.申请分配一个TNCB结构           NCB: TNCB；

②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBENUM                NCB.ncb_Command := chr(NCBENUM);

④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM;

⑤.为NCB_length制定长度           NCB.NCB_length := Sizeof(LANAENUM);

⑥.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);

⑦.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET)

}

ZeroMemory(@NCB , SizeOf(NCB));

NCB.ncb_Command := Chr(NCBENUM);

NCB.ncb_buffer := @LANAENUM;

NCB.NCB_length := Sizeof(LANAENUM);

NetBios(@NCB);

if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

二、重置计划使用的每个LANA编号

①.申请分配一个TNCB结构           NCB: TNCB；

②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBRESET               NCB.ncb_Command := chr(NCBRESET);

④.给命令设置LANA编号             NCB.ncb_lana_num := LanaEnum.lana[Alana];

⑤.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);

⑥.返回值NRC_GOODRET表示成功      NCB.ncb_retcode = Chr(NRC_GOODRET)

}

ZeroMemory(@NCB , SizeOf(NCB));

NCb.ncb_Command := Chr(NCBRESET);

NCB.ncb_lana_num := LanaEnum.lana[Alana];

Netbios(@NCB);

if not (NCB.ncb_retcode = Chr(NRC_GOODRET)) then Exit;

{ http://blog.csdn.net/sushengmiyan/article/details/8543811

三、使用TAdapterStatus结构获取网卡地址

①.申请分配一个TNCB结构           NCB: TNCB；

②.将TNCB结构变量初始化成O        ZeroMemory(@NCB , SizeOf(NCB));

③.置命令为NCBASTAT               NCB.ncb_Command := chr(NCBASTAT);

④.为ncb_buffer分配LANA_ENUM      NCB.ncb_buffer := @LANAENUM;

⑤.设置ncb_callname               NCB.ncb_callname := '* ' + #0;

⑥.为ncb_buffer分配AdapterStatus  NCB.ncb_buffer := @AdapterStatus;

⑦.为NCB_length制定长度           NCB.NCB_length := Sizeof(AdapterStatus);

⑧.调用Netbios函数获取Netbios     CRC := NetBios(@NCB);

}

ZeroMemory(@NCB , SizeOf(NCB));

NCb.ncb_Command := chr(NCBASTAT);

NCB.ncb_lana_num := LANAENUM.lana[Alana];

NCB.ncb_callname[0] := '*';

//不明白为何如此设置，*代表啥子？

//有懂的可以邮件分享 429119108@qq.com   O(∩_∩)O谢谢

NCB.ncb_buffer := @AdapterStatus;

NCB.ncb_length := SizeOf(AdapterStatus);

NetBios(@NCB);

//获取形如AA-BB-CC-DD-EE-FF形式的mac物理地址字符串

Result := '';

for I := 0 to 5 do

if SameStr(Result , '') then

Result := Result + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2)

else

Result := Result + '-' + IntToHex(Integer(AdapterStatus.adapter_address[I]) , 2);

Finally

End;

end;

{ TPCUserInfo }

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：None

功能：创建

\-----------------------------------------------------------------------------}

constructor TPCUserInfo.Create;

begin

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string

功能：得到主机IP

\-----------------------------------------------------------------------------}

function TPCUserInfo.GetHostIP: string;

var

sHostName: string;

WSAData: TWSAData;

HostEnt: PHostEnt;

begin

sHostName := UserName;

Result := '';

WSAStartup(2 , WSAData);

HostEnt := GetHostByName(PChar(sHostName));

if HostEnt <> nil then

begin

with HostEnt^ do

Result:= Format('%d.%d.%d.%d' , [Byte(h_addr^[0]) , Byte(h_addr^[1])

, Byte(h_addr^[2]) , Byte(h_addr^[3])]);

end;

WSACleanup;

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：None

功能：获取用户名

\-----------------------------------------------------------------------------}

function TPCUserInfo.GetUserName;

var

Name: PChar;

Size: DWORD;

begin

GetMem(Name , 255);//申请内存

Size := 255;

GetComputerName(Name , Size);

Result := Name;

FreeMem(Name); //记得释放内存

end;

{----------------------------------------------------------------------------\-

作者：sushengmiyan 2013.01.26

参数：None

返回：string

功能：返回操作系统类型

\-----------------------------------------------------------------------------}

function TPCUserInfo.GetWindowsVertion: string;

function GetWindowsVersionString: string;

var

oSVersion: TOSVersionInfoA;

begin

Result := '';

oSversion.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA);

if GetVersionExA(oSVersion) then

with oSVersion do

Result := Trim(Format('%s', [szCSDVersion]));

end;

var

AWin32Version: Extended;

sWin: string;

begin

sWin := 'Windows';

AWin32Version := StrToFloat(Format('%d.%d', [Win32MajorVersion, Win32MinorVersion]));

case Win32Platform of

VER_PLATFORM_WIN32s:

Result := sWin + '32';

VER_PLATFORM_WIN32_WINDOWS:

begin

if AWin32Version = 4.0 then

Result := sWin + '95'

else if AWin32Version = 4.1 then

Result := sWin + '98'

else if AWin32Version = 4.9 then

Result := sWin + 'Me'

else

Result := sWin + '9x';

end;

VER_PLATFORM_WIN32_NT:

begin

if AWin32Version = 3.51 then

Result := sWin + 'NT 3.51'

else if AWin32Version = 4.0 then

Result := sWin + 'NT 4.0'

else if AWin32Version = 5.0 then

Result := sWin + '2000'

else if AWin32Version = 5.1 then

Result := sWin + 'XP'

else if AWin32Version = 5.2 then

Result := sWin + '2003'

else if AWin32Version = 6.0 then

Result := sWin + 'Vista'

else if AWin32Version = 6.1 then

Result := sWin + '7'

else

Result := sWin;

end

else

Result := sWin;

end;

Result := Result + '  ' + GetWindowsVersionString;

end;

end.

极兔
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
获取硬件信息的delphi源码（CPUID、操作系统、Mac物理地址、计算机名称、IP地址、用户名）
苏生-苏米沿的专栏
01-26 1万+
转载请保留本文链接地址：http://blog.csdn.net/sushengmiyan/article/details/8545673 {----------------------------------------------------------------------------- 作者：sushengmiyan 2013.01.26 备注： 功能：硬件信息获取单元 -----
使用Delphi获取系统信息
badmichael的专栏
04-24 691
 l       使用Delphi获取系列信息 　　Delphi以其优良的可视化编程，灵活的Windows API接口，丰富的底层操作越来越受到编程爱好者的青睐。　　在Delphi中，通过调用Windows API，可以很方便地获取系统信息，这有助于我们编写出更好的Windows应用程序。以下程序在Delphi3.0 For Windows 9x下编译通过。　　一、 用GetD
DELPHI获取电脑硬件信息
11-29
DELHI获取电脑硬件主板、CPU、网卡等信息
Delphi获取电脑硬件信息(DLL方式)，BIOS、CPU、网卡、硬盘序列号
04-02
Delphi获取电脑硬件信息(DLL方式)，BIOS、CPU、网卡、硬盘序列号 DLL方式直接调用，包含DLL工程源代码
delphi获得笔记本cpu的信息
Winfredzhang的博客
02-05 481
【代码】delphi获得笔记本cpu的信息。
在DELPHI中通过获取计算机一系列硬件信息
wanjichun的专栏
11-12 2195
 在DELPHI中通过获取计算机一系列硬件信息  Delphi获取硬件信息 Delphi的硬件信息算法
delphi获取Mac物理地址以及计算机名用户名IP地址CPUID等源代码分享
01-26
在IT领域，编程时常需要获取计算机的硬件和系统信息，以进行各种定制化操作或诊断。这个分享的Delphi源代码文件着重于获取Mac物理地址、计算机名、用户名以及IP地址和CPU ID等关键信息。Delphi是一种强大的面向对象...
WMI获取硬件信息封装函数方法(联想台式机出厂编号 CPUID BIOS序列号 硬盘信息 显卡信息 MAC地址)
09-04
在本文中，我们将探讨如何封装WMI查询函数来获取联想台式机的特定硬件信息，如出厂编号、CPUID、BIOS序列号、硬盘信息、显卡信息以及MAC地址。 首先，我们来看两个关键的封装函数： 1. `identifier(string wmi...
C语言获取硬件信息（CPU序列号，硬盘序列号，网卡IP、MAC地址、是否插入网线）.zip
06-24
本文将详细讲解如何使用C语言在Linux和Windows操作系统下获取CPU序列号、硬盘序列号以及网卡的相关信息，如网卡名称、IP地址、MAC地址和网络连接状态。 首先，让我们关注CPU序列号的获取。在Windows系统中，可以...
CPUID.ZIP_cpuid delphi_delphi cpuid_zip
09-22
4. **硬件接口**：掌握如何通过软件直接与计算机硬件交互，特别是通过系统调用来获取硬件信息。 5. **程序打包与发布**：学习如何将源代码编译成可执行文件，并可能涉及到Delphi的项目构建和配置过程。 总的来说，...
DELPHI 从注册表中读取各类硬件信息
03-14
DELPHI 从注册表中读取各类硬件信息
Delphi真正获取CPU硬件信息的类..rar
04-24
Delphi真正获取CPU硬件信息的类..rar`
Delphi硬件信息获取代码
12-16
HardwareInfo代码： 列出机器CPU、硬盘序物理列号，网卡序列号 For Delphi7，在Delphi2009上未测试。
delphi获取硬件信息
04-06
获取硬件信息，支持win7 uac下只要应该是权限问题，只要提升权限运行可以获取
JavaScript 获取客户端计算机硬件及系统信息
11-11
* 系统信息：使用 `Win32_ComputerSystem` 获取系统信息，如操作系统版本、用户名、计算机名称等。 * 键盘信息：使用 `Win32_Keyboard` 获取键盘信息，如键盘类型、键盘布局等。 * 鼠标信息：使用 `Win32_...
DELPHI 硬件信息 收集程序
masterjames的专栏
09-24 2527
{************************************************                                              **                                              **      这个模块是用来获取CPU、硬盘序列号，CPU的  **            
Delphi 获取系统信息（1）
流年~~
04-10 5186
1. DELPHI获得系统信息 1. 获得系统本地信息 Windows API中有一个函数GetLocaleInfo可以用来获得系统信息比如系统语言, 货币符号等代码如下： function TForm1.GetLocaleInformation(Flag: Integer): String; var pcLCA: Array[0..20] of Char; begin
Delphi 获取硬盘和系统信息(1)
流年~~
04-12 4614
1.GetComputerName - 获取计算机名称 var  arr:array[0..MAX_COMPUTERNAME_LENGTH]of char;   d: DWORD; begin    d := SizeOf(arr);    GetComputerName(arr, d);    ShowMessage(arr); end;   2.GetCursorPos
c语言获取本机cpuid及mac地址
最新发布
07-30
C语言可以通过使用Windows和Linux操作系统提供的相关 API 来获取本机的 CPUID 和 MAC 地址。 首先，我们可以通过Windows API函数`GetSystemInfo()`获取CPUID。示例代码如下： ```c #include <stdio.h> #include <windows.h> void main() { SYSTEM_INFO sys_info; GetSystemInfo(&sys_info); printf("CPU ID: %x %x %x %x\n", sys_info.dwProcessorType, sys_info.dwPageSize, sys_info.dwActiveProcessorMask, sys_info.dwNumberOfProcessors); } ``` 然后，我们可以通过使用Windows API函数`GetAdaptersInfo()`来获取本机的 MAC 地址。示例代码如下： ```c #include <stdio.h> #include <windows.h> #include <iphlpapi.h> #pragma comment(lib, "iphlpapi.lib") void main() { IP_ADAPTER_INFO adapter_info[16]; DWORD buf_len = sizeof(adapter_info); if (GetAdaptersInfo(adapter_info, &buf_len) == ERROR_SUCCESS) { PIP_ADAPTER_INFO curr_adapter = adapter_info; while (curr_adapter != NULL) { printf("MAC Address: %02x:%02x:%02x:%02x:%02x:%02x\n", curr_adapter->Address[0], curr_adapter->Address[1], curr_adapter->Address[2], curr_adapter->Address[3], curr_adapter->Address[4], curr_adapter->Address[5]); curr_adapter = curr_adapter->Next; } } } ``` 对于Linux操作系统，我们可以使用`sys/sysinfo.h`和`ifaddrs.h`头文件来获取 CPUID 和 MAC 地址。示例代码如下： ```c #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <sys/sysinfo.h> #include <ifaddrs.h> #include <netinet/in.h> #include <arpa/inet.h> #include <net/if.h> #include <string.h> void main() { struct sysinfo sys_info; if (sysinfo(&sys_info) == 0) { printf("CPU ID: %08x\n", (unsigned int)sys_info.processor_id[0]); } struct ifaddrs* ifaddr, *ifa; if (getifaddrs(&ifaddr) == 0) { for (ifa = ifaddr; ifa != NULL; ifa = ifa->ifa_next) { if (ifa->ifa_addr == NULL || ifa->ifa_addr->sa_family != AF_PACKET) continue; struct sockaddr_ll* s = (struct sockaddr_ll*)ifa->ifa_addr; unsigned char mac[6]; memcpy(mac, s->sll_addr, 6); printf("MAC Address: %02x:%02x:%02x:%02x:%02x:%02x\n", mac[0], mac[1], mac[2], mac[3], mac[4], mac[5]); } freeifaddrs(ifaddr); } } ``` 需要注意的是，在使用这些API函数时，可能需要添加某些特定的库文件或在编译选项中指定相关的库文件，具体需要根据不同的操作系统和编译环境来进行调整。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值