文件名称：获取电脑信息.zip
文件大小：252KB
文件格式：ZIP
更新时间：2023-08-03 09:50:21
DELPHI 电脑硬件信息 cpu 硬盘
label5.caption := '你的网卡地址是：'+Format('%2.2x-%2.2x-%2.2x-%2.2x-%2.2x-%2.2x', [MACAddress[0], MACAddress[1], MACAddress[2], MACAddress[3], MACAddress[4], MACAddress[5]]); end; finally Dispose(MACAddress); end; i:=255; getmem(users,255); getusername(users,i); //获得Windows用户名 label6.caption:='你登录windows的用户名是 :'+users; freemem(users); fulldrive:='c:'; strpcopy(tmp_drive,fulldrive); GetVolumeInformation(tmp_drive, VolName, 255, @SerialN, MaxCLength,FileSysFlag, FileSysName, 255); label7.caption:='你的硬盘卷标是：'+VolName; label8.caption:='你的硬盘序列号是：'+DecToHex(SerialN); label9.caption:='你的计算机名是：'+getcomputername; //IF getbios(1)<>'' then //label10.caption:='你的BIOS版本号是：'+getbios(1) //else //label10.caption:='未取得BIOS版本号'; //if getbios(2)<>'' then //label11.caption:='你的BIOS序列号是：'+getbios(4) //else //label11.caption:='未取得BIOS序列号'; if getsystemtime<>'' then label12.caption:='你的系统时间是：'+getsystemtime else label12.Caption:='未取得系统时间'; if getlocaltime<>'' then label13.caption:='你的本地时间是：'+getlocaltime else label13.caption:='未取得本地时间'; if inttostr(DiskSize(3) div 1024)<>'' then label14.caption:='你的系统硬盘空间是：'+inttostr(DiskSize(3) div 1024) else label14.caption:='未取得系统硬盘间';
【文件预览】：
Main.pas
Project1.exe
Project1.res
Main.dcu
Unit1.dfm
Project1.cfg
ApplicationHardWareInfo.pas
Unit1.pas
MemoryCpuUtils.pas
Project1.bdsproj.local
Main.dfm
Project1.identcache
Project1.dpr
MemoryCpuUtils.dcu
Unit1.dcu
Project1.bdsproj
ApplicationHardWareInfo.dcu