如何查看计算机硬盘序列号-阿里云资讯网
如何查看计算机硬盘序列号
发布时间：
更新时间：
来源：网络
上传者：用户
硬盘序列号，英文名为Hard Disk Serial Number，该号是出厂时生产厂家为区别产品而设置的，如同每个人的身份证编号一样，具有唯一性，不能修改。在单位、学校等办公的地方，会要求查看计算机硬盘序列号，进行统计。或者，自己感兴趣的也可以查看着玩玩。计算机硬盘序列号是计算机信息重要的一项，此外还有硬盘空间，内存等。
百度搜索硬盘序列号查询工具，进行下载，如图所示：
双击序列号查看器，下载安装，如图所示：
双击压缩包，进行解压，如图所示：
打开解压后的文件，双击硬盘序列号查看工具，进行查看，如图所示：
本文内容由互联网用户自发贡献自行上传，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任。如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件至：zixun-group@service.aliyun.com 进行举报，并提供相关证据，工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。
windows修复
windos启动引导修复的工具可以更深层次的修复启动引导项，特别是在使用其它工具无法修复启动引导项的情况下，bootice引导管理工具就可以解决这样的问题，登录不了系统等问题 插上U启动U盘，在开机界面里快速按f12进入高级BIOS界面 进入高级BIOS界面选择：USB HDD:KINGSTOM DT 101 G2 按方向键选择02回车进入W8PE界面 进入PE界面选择程序bootice引导...
不管是在工作还是生活中，我们都已经越来越无法离开网络了。设置宽带的自动连接，可以简单而有效的提高工作学习效率，免去开机后再次进入网络和共享中心拨号上网的不必要操作。不过，最近有不少用户反馈自己的win10系统电脑每次开机后，都需要手动点击一下宽带连接才能联网，感觉十分麻烦。那么，我们要怎样在win10系统下设置开机自动连接宽带呢？下面，就随小编看看Win10系统设置开机自动连接宽带的详细教程...
截图工具怎么打开
win10截图工具
在windows10中，可以从键盘中按Print键来截图，然后粘贴到画图板工具或者其他地方去，这种方式比较原始且不太方便。windows10也提供自带的截图工具，可以方便的截取图片的区域和做一些简单的编辑，本文介绍如何在win10中打开自带的截图工具。 点击开始菜单按钮，然后点击“所有应用” 在所有应用列表中找到&windows 附件&文件夹，然后截图工具就在这个文件夹中...
win10组策略
win10家庭版
相信很多人 都遇到过这样的问题：买来的电脑，预装的是windows 10 家庭版系统，家庭版系统有很多高级功能(比如本地组策略设置)是被阉割了的。但是呢，大家都希望一劳永逸的解决垃圾流氓软件的问题。于是很多人都想到了用组策略，通过添加证书规则来阻止流满软件安装。那么，对于win10 家庭版用户来说，怎么办呢?这里提供一个简单的方法哦。不用去使用什么升级系统，还要破解这么麻烦。这里列出的方法是...
小编来教你如何查看你的win10是否激活，状态如何！ 首先右键开始菜单选择运行，或者win+R 然后输入第一个命令 &slmgr.vbs&-xpr& 这个命令是查看你的win10系统是否被永久激活 然后输入第二个命令 &slmgr.vbs&-dlv& 这个命令可以查看你的win10激活状态的详尽信息，非常实用 第三个是 &...
右键菜单设置
在Win10系统中，打开右键菜单，已经没有了熟悉的“复制到文件夹”菜单了，那么我们该怎么添加这个菜单项目呢？欢迎大家速来围观我的经验啦。 首先，请大家在桌面上按下Windows徽标键+R键，在弹出的运行菜单命令中输入“regedit”选项，打开注册表编辑器页面。 打开注册表编辑器页面之后，我们双击左侧栏目，将子项定位至： HKEY_CLASSES_ROOT\AllFilesystemObje...
若您要投稿、删除文章请联系邮箱：zixun-group@service.aliyun.com，工作人员会在5个工作日内回复。
售前咨询热线
支持与服务
资源和社区
关注阿里云
International读取硬盘序列号，SSD除外 - LabVIEW论坛 -
中国电子技术论坛 -
最好最受欢迎电子论坛!
后使用快捷导航没有帐号？
林超文手把手教你学！
教你1000种电路设计思路
张飞硬件电路之PFC全集
参与免费送VIP+原创视频
运放、ADC、电磁兼容
读取硬盘序列号，SSD除外
09:49:49　　
读取硬盘序列号，SSD除外
09:48 上传
点击文件名下载附件
下载积分: 积分 -1 分
191.66 KB, 下载次数: 501, 下载积分: 积分 -1 分
14:54:32　　
谢谢分享& && && && && && && && && && && && && &&&
17:12:40　　
学习学习！谢谢分享！
07:58:55　　
谢谢分享&&下载留有
助理工程师
08:49:21　　
最近也想做类似的& & 感谢
09:40:14　　
谢谢分享，找了好久
08:55:24　　
需要获取序列号，参考的好资料，亲，三颗药
15:50:26　　
俺的版本低&&没法看& && && && && && && &&&
等待验证会员
18:08:18　　
学习& && && &&&一下
14:36:35　　
学习学习！谢谢分享！
09:17:10　　
学习一下。。。。。。。。。。。
13:56:20　　
谢谢分享& && && && && && && && && && && && && && && && && && && && && && &&&
15:23:00　　
学习一下啊，多谢
18:28:26　　
22:45:40　　
& && && && && && && && && && && && && && &&&7
22:55:20　　
学习学习！谢谢分享！
12:39:01　　
偶就胳膊is额奇偶ijilgh看偶就评价
等待验证会员
10:02:47　　
学习。。。。。。。。。。。。
10:49:58　　
下载了，学习下，谢了
18:49:32　　
谢谢分享！！！
林超文手把手教你学！
教你1000种电路设计思路
张飞硬件电路之PFC全集
参与免费送VIP+原创视频
运放、ADC、电磁兼容
Powered by
供应链服务
版权所有 (C) 深圳华强聚丰电子科技有限公司PHP获取通过windows系统命令wmic获取MAC地址、cpu序列号、主板序列号
PHP获取通过windows系统命令wmic获取MAC地址、cpu序列号、主板序列号
源码如下：
class HardwareInfo
//获取MAC地址
function getMacAddress()
$return_arry = array();
@exec("wmic nicconfig get macaddress", $return_arry);
$mac_addr = $return_arry[1];
$mac_addr = str_replace(":", "", $mac_addr);//去除字符串中的字符“:”
return $mac_
//获取CPU序列号
function getCpuSN()
$return_arry = array();
@exec("wmic cpu get processorid", $return_arry);
$cpu_sn = $return_arry[1];
return $cpu_
//获取主板序列号
function getBaseboardSN()
$return_arry = array();
@exec("wmic baseboard get serialnumber", $return_arry);
$baseboard_sn = $return_arry[1];
$baseboard_sn = str_replace("-", "", $baseboard_sn);//去除字符串中的字符“-”
return $baseboard_
使用示例：
include 'HardwareInfo.php';
$hw_addr = new HardwareInfo();
$mac_addr = $hw_addr-&getMacAddress();
$cpu_sn = $hw_addr-&getCpuSN();
$baseboard_sn = $hw_addr-&getBaseboardSN();
echo 'MAC地址：'.$mac_addr.'&br&';
echo 'CPU序列号：：'.$cpu_sn.'&br&';
echo '主板地址：：'.$baseboard_sn.'&br&';
补充：wmic命令的使用可参考：http://blog.csdn.net/hnllc2012/article/details/
没有更多推荐了，
加入CSDN，享受更精准的内容推荐，与500万程序员共同成长！dos下通过wmic命令查看硬盘和内存/CPU信息(windows自带命令查看硬件信息)
转载 &更新时间：日 00:26:16 & 投稿：mdxy-dxy
这篇文章主要介绍了windows系统自带命令查看硬件信息，怎样dos命令查看硬盘和内存/CPU信息的方法,需要的朋友可以参考下
如何在windows系统自带命令查看硬件信息，怎样dos命令查看硬盘和内存/CPU信息？最直接的是：开始→运行→CMD打开命令提示符，在该窗口下输入systeminfo执行，即可看到几乎所有想知道的系统信息，甚至包括机器上已安装的网卡及其IP。
问题描述: 如何从系统中 查看主板上内存条的数量。
最佳答案: 在cmd命令下 输入：wmic memorychip list brief 或者 wmic MEMPHYSICAL list brief 就会看到内存条的数量
rem 查看cpu
wmic cpu list brief
rem 查看物理内存
wmic memphysical list brief
rem 查看逻辑内存
wmic memlogical list brief
rem 查看缓存内存
wmic memcache list brief
rem 查看虚拟内存
wmic pagefile list brief
rem 查看网卡
wmic nic list brief
rem 查看网络协议
wmic netprotocal list brief
如何在windows系统自带命令查看硬件信息？
对于在windows下查看系统信息大家一定不陌生了，我现在说几个最常用的方法，对命令感兴趣的朋友看看，（给菜鸟看的，老手就不要笑话我了，大家都是从那个时候过来的，^_^）。
一．图新Shell下：
1.&&& 最直观的：（在运行里面输入CMD，以下命令都是在CMD下输入的：）
输入 sysdm.cpl, 系统属性.
2.&&& 输入dxdiag
3.输入 start msinfo32，winmsd系统信息
3.&&& 输入 devmgmt.msc，设备管理：
4.&&& 输入 taskmgr （或按Ctrl+Alt+Esc） 在性能选项卡看物理内存和pagefile
5.&&& 输入 winver 也可以查看内存大小&
怎样dos命令（cmd命令）查看硬盘和内存/CPU信息？
1.查看磁盘信息：freedisk 可以查看每一个盘的剩余空间
wmic diskdrive
可以看出来牌子和大小.
Wmic logicaldisk
可以看到有几个盘，每一个盘的文件系统和剩余空间
wmic volume
每个盘的剩余空间量，其实上一个命令也可以查看的
fsutil volume diskfree c:
这个命令查看每一个卷的容量信息是很方便
上面显示的有位宽，最大始终频率， 生产厂商，二级缓存等信息
3.内存信息
&&& wmic memorychip
可以显示出来三条内存，两条256，一条1G的，速度400MHz
4.BIOS信息
&&& wmic bios
某台服务器的 systeminfo 命令结果
Host Name:&&&&&&&&&&&&&&&& WIN669
OS Name:&&&&&&&&&&&&&&&&&& Microsoft(R) Windows(R) Server 2003, Standard Edition
OS Version:&&&&&&&&&&&&&&& 5.2.3790 Service Pack 2 Build 3790
OS Manufacturer:&&&&&&&&&& Microsoft Corporation
OS Configuration:&&&&&&&&& Standalone Server
OS Build Type:&&&&&&&&&&&& Multiprocessor Free
Registered Owner:&&&&&&&&& www.ctohome.com
Registered Organization:&& www.ctohome.com
Product ID:&&&&&&&&&&&&&&&
Original Install Date:&&&& 2/21/:25 PM
System Up Time:&&&&&&&&&&& N/A
System Manufacturer:&&&&&& RackableSystems
System Model:&&&&&&&&&&&&& 99-02-08062
System Type:&&&&&&&&&&&&&& X86-based PC
Processor(s):&&&&&&&&&&&&& 4 Processor(s) Installed.
&&&&&&&&&&&&&&&&&&&&&&&&&& [01]: x86 Family 6 Model 15 Stepping 11 GenuineIntel~2327 Mhz
&&&&&&&&&&&&&&&&&&&&&&&&&& [02]: x86 Family 6 Model 15 Stepping 11 GenuineIntel~2327 Mhz
&&&&&&&&&&&&&&&&&&&&&&&&&& [03]: x86 Family 6 Model 15 Stepping 11 GenuineIntel~2327 Mhz
&&&&&&&&&&&&&&&&&&&&&&&&&& [04]: x86 Family 6 Model 15 Stepping 11 GenuineIntel~2327 Mhz
BIOS Version:&&&&&&&&&&&&& INTEL& - 0
Windows Directory:&&&&&&&& C:\WINDOWS
System Directory:&&&&&&&&& C:\WINDOWS\system32
Boot Device:&&&&&&&&&&&&&& \Device\HarddiskVolume1
System Locale:&&&&&&&&&&&& en-English (United States)
Input Locale:&&&&&&&&&&&&& en-English (United States)
Time Zone:&&&&&&&&&&&&&&&& (GMT-08:00) Pacific Time (US & Canada)
Total Physical Memory:&&&& 4,096 MB
Available Physical Memory: 3,790 MB
Page File: Max Size:&&&&&& 5,968 MB
Page File: Available:&&&&& 5,844 MB
Page File: In Use:&&&&&&&& 124 MB
Page File Location(s):&&&& C:\pagefile.sys
Domain:&&&&&&&&&&&&&&&&&&& WORKGROUP
Logon Server:&&&&&&&&&&&&& \\WIN669
Hotfix(s):&&&&&&&&&&&&&&&& 309 Hotfix(s) Installed.
&&&&&&&&&&&&&&&&&&&&&&&&&& [01]: File 1
&&&&&&&&&&&&&&&&&&&&&&&&&& [02]: File 1
&&&&&&&&&&&&&&&&&&&&&&&&&& [03]: File 1
Network Card(s):&&&&&&&&&& 1 NIC(s) Installed.
&&&&&&&&&&&&&&&&&&&&&&&&&& [01]: Intel(R) PRO/1000 EB Network Connection with I/O Acceleration
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Connection Name: Local Area Connection 4
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& DHCP Enabled:&&& No
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& IP address(es)
从任务列表中找到需要的进程
tasklist | findstr /s /i e.*
tasklist | findstr /s /i "python"
start D盘中的文件夹即可打开文件夹
tasklist/svc 就可以看到计算机当前正在运行程序
您可能感兴趣的文章:
大家感兴趣的内容
12345678910
最近更新的内容
常用在线小工具[delphi]&&
unit&Unit1;&&
interface&&
&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,&&
&&Dialogs,&StdC&&
&&TForm1&=&class(TForm)&&
&&&&Button1:&TB&&
&&&&Button2:&TB&&
&&&&procedure&Button1Click(Sender:&TObject);&&
&&&&procedure&Button2Click(Sender:&TObject);&&
&&private&&
&&public&&
&&TFileItem&=&class(TCollectionItem)&&
&&public&&
&&&&FileName:&WideS&&
&&&&FileSize:&Int64;&&
&&&&IsDirectory:&B&&
&&Form1:&TForm1;&&
implementation&&
{$R&*.dfm}&&
function&GetCPUID:&&&
&&procedure&SetCPU(Handle:&TH&CPUNO:&Integer);&&
&&&&ProcessAffinity:&C&&
&&&&_SystemAffinity:&C&&
&&&&GetProcessAffinityMask(handle,&ProcessAffinity,&_SystemAffinity);&&
&&&&ProcessAffinity&:=&CPUNO;&&
&&&&SetProcessAffinityMask(handle,&ProcessAffinity);&&
&&CPUINFO&=&'%.8x-%.8x-%.8x-%.8x';&&
&&iEax:&I&&
&&iEbx:&I&&
&&iEcx:&I&&
&&iEdx:&I&&
&&SetCPU(GetCurrentProcess,&1);&&
&&&&push&ebx&&
&&&&push&ecx&&
&&&&push&edx&&
&&&&mov&&&eax,&1&&
&&&&DW&$A20F
&&&&mov&&&iEax,&eax&&
&&&&mov&&&iEbx,&ebx&&
&&&&mov&&&iEcx,&ecx&&
&&&&mov&&&iEdx,&edx&&
&&&&pop&edx&&
&&&&pop&ecx&&
&&&&pop&ebx&&
&&Result&:=&Format(CPUINFO,&[iEax,&iEbx,&iEcx,&iEdx]);&&
function&MacAddress:&&&
&Func&:&function(GUID:&PGUID):&L&&&
&GUID1,&GUID2:&TGUID;&&
&Result&:=&'';&&
&Lib&:=&LoadLibrary('rpcrt4.dll');&&
&if&Lib&&&&0&then&&
&&&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);&&
&&&FreeLibrary(Lib);&&
function&GetIdeSerialNumber:&P&
const&IDENTIFY_BUFFER_SIZE&=&512;&&
&&TIDERegs&=&packed&record&&
&&bFeaturesReg:&BYTE;&&
&&bSectorCountReg:&BYTE;&&
&&bSectorNumberReg:&BYTE;&&
&&bCylLowReg:&BYTE;&&
&&bCylHighReg:&BYTE;&&
&&bDriveHeadReg:&BYTE;&&
&&bCommandReg:&BYTE;&&
&&bReserved:&BYTE;&&
&&TSendCmdInParams&=&packed&record&&
&&cBufferSize:&DWORD;&&
&&irDriveRegs:&TIDER&&
&&bDriveNumber:&BYTE;&&
&&bReserved:&array[0..2]&of&B&&
&&dwReserved:&array[0..3]&of&DWORD;&&
&&bBuffer:&array[0..0]&of&B&&
&&TIdSector&=&packed&record&&
&&wGenConfig:&W&&
&&wNumCyls:&W&&
&&wReserved:&W&&
&&wNumHeads:&W&&
&&wBytesPerTrack:&W&&
&&wBytesPerSector:&W&&
&&wSectorsPerTrack:&W&&
&&wVendorUnique:&array[0..2]&of&W&&
&&sSerialNumber:&array[0..19]&of&CHAR;&&
&&wBufferType:&W&&
&&wBufferSize:&W&&
&&wECCSize:&W&&
&&sFirmwareRev:&array[0..7]&of&C&&
&&sModelNumber:&array[0..39]&of&C&&
&&wMoreVendorUnique:&W&&
&&wDoubleWordIO:&W&&
&&wCapabilities:&W&&
&&wReserved1:&W&&
&&wPIOTiming:&W&&
&&wDMATiming:&W&&
&&wBS:&W&&
&&wNumCurrentCyls:&W&&
&&wNumCurrentHeads:&W&&
&&wNumCurrentSectorsPerTrack:&W&&
&&ulCurrentSectorCapacity:&DWORD;&&
&&wMultSectorStuff:&W&&
&&ulTotalAddressableSectors:&DWORD;&&
&&wSingleWordDMA:&W&&
&&wMultiWordDMA:&W&&
&&bReserved:&array[0..127]&of&BYTE;&&
&&PIdSector&=&^TIdS&&
&&TDriverStatus&=&packed&record&&
&&bDriverError:&B&&
&&bIDEStatus:&B&&
&&bReserved:&array[0..1]&of&B&&
&&dwReserved:&array[0..1]&of&DWORD;&&
&&TSendCmdOutParams&=&packed&record&&
&&cBufferSize:&DWORD;&&
&&DriverStatus:&TDriverS&&
&&bBuffer:&array[0..0]&of&BYTE;&&
&&hDevice:&T&&
&&cbBytesReturned:&DWORD;&&
&&SCIP:&TSendCmdInP&&
&&aIdOutCmd:&array[0..(SizeOf(TSendCmdOutParams)&+&IDENTIFY_BUFFER_SIZE-1)-1]&of&B&&
&&IdOutCmd:&TSendCmdOutParams&absolute&aIdOutC&&
procedure&ChangeByteOrder(var&D&Size:&Integer);
&&ptr:&P&&
&&ptr&:=&@D&&
&&for&I&:=&0&to&(Size&shr&1)&-&1&do&begin&&
&&c&:=&ptr^;&&
&&ptr^&:=&(ptr&+&1)^;&&
&&(ptr&+&1)^&:=&c;&&
&&Inc(ptr,&2);&&
&&Result&:=&'';&&
&&if&SysUtils.Win32Platform&=&VER_PLATFORM_WIN32_NT&then&&
&&hDevice&:=&CreateFile('\\.\PhysicalDrive0',&GENERIC_READ&or&GENERIC_WRITE,&&
&&FILE_SHARE_READ&or&FILE_SHARE_WRITE,&nil,&OPEN_EXISTING,&0,&0);&&
&&hDevice&:=&CreateFile('\\.\SMARTVSD',&0,&0,&nil,&CREATE_NEW,&0,&0);&&
&&if&hDevice&=&INVALID_HANDLE_VALUE&then&E&&
&&FillChar(SCIP,&SizeOf(TSendCmdInParams)&-&1,&#0);&&
&&FillChar(aIdOutCmd,&SizeOf(aIdOutCmd),&#0);&&
&&cbBytesReturned&:=&0;&&
&&with&SCIP&do&&
&&cBufferSize&:=&IDENTIFY_BUFFER_SIZE;&&
&&with&irDriveRegs&do&&
&&bSectorCountReg&:=&1;&&
&&bSectorNumberReg&:=&1;&&
&&bDriveHeadReg&:=&$A0;&&
&&bCommandReg&:=&$EC;&&
&&if&not&DeviceIoControl(hDevice,&$,&@SCIP,&SizeOf(TSendCmdInParams)&-&1,@aIdOutCmd,&SizeOf(aIdOutCmd),&cbBytesReturned,&nil)&then&E&&
&&finally&&
&&CloseHandle(hDevice);&&
&&with&PIdSector(@IdOutCmd.bBuffer)^&do&&
&&ChangeByteOrder(sSerialNumber,&SizeOf(sSerialNumber));&&
&&(Pchar(@sSerialNumber)&+&SizeOf(sSerialNumber))^:=�&&
&&Result&:=&PAnsichar(@sSerialNumber);&&
procedure&FindAllFiles(APath:&WideS&AFiles:&TC&&
&&var&AFileSize:&Int64);&&
&&strSearchPath:&WideS&&
&&strSafePath:&WideS&&
&&FindData:&WIN32_FIND_DATAW;&&
&&hFind:&TH&&
&&objItem:&TFileI&&
&&strSafePath&:=&Trim(APath);&&
&&if&strSafePath[Length(strSafePath)]&&&&'\'&then&strSafePath&:=&strSafePath&+&'\';&&
&&strSearchPath&:=&strSafePath&+&'*.*';&&
&&hFind&:=&FindFirstFileW(PWideChar(strSearchPath),&FindData);&&
&&if&(INVALID_HANDLE_VALUE&=&hFind)&then&E&&
&&while&True&do&&
&&&&if&(FindData.dwFileAttributes&and&FILE_ATTRIBUTE_DIRECTORY)&=&FILE_ATTRIBUTE_DIRECTORY&then&&
&&&&begin&&
&&&&&&if(FindData.cFileName[0]&&&&'.')&then&&
&&&&&&begin&&
&&&&&&&&objItem&:=&TFileItem(AFiles.Add());&&
&&&&&&&&objItem.FileName&:=&strSafePath&+&FindData.cFileN&&
&&&&&&&&objItem.FileSize&:=&0;&&
&&&&&&&&objItem.IsDirectory&:=&T&&
&&&&&&&&FindAllFiles(strSafePath&+&FindData.cFileName,&AFiles,&AFileSize);&&
&&&&else&&
&&&&begin&&
&&&&&&objItem&:=&TFileItem(AFiles.Add());&&
&&&&&&objItem.FileName&:=&strSafePath&+&FindData.cFileN&&
&&&&&&objItem.FileSize&:=&FindData.nFileSizeLow&or&FindData.nFileSizeHigh&shl&SizeOf(FindData.nFileSizeHigh);&&
&&&&&&objItem.IsDirectory&:=&F&&
&&&&&&AFileSize&:=&AFileSize&+&objItem.FileS&&
&&&&if&(not&FindNextFileW(hFind,&FindData))&then&B&&
&&Windows.FindClose(hFind);&&
function&ForceToRemoveDir(ADir:&string):&B&&
&&pDir:&PC&&
&&SR:&TSearchR&&
&&Result&:=&F&&
&&pDir&:=&PChar(ADir);&&
&&if&not&DirectoryExists(pDir)&then&E&&
&&&&if&Copy(pDir,&Length(pDir),&1)&&&&'\'&then&&
&&&&&&pDir&:=&PChar(pDir&+&'\');&&
&&&&FR&:=&FindFirst(pDir&+&'*.*',&FaAnyfile,&SR);&&
&&&&while&FR&=&0&do&&
&&&&begin&&
&&&&&&if&((SR.Attr&and&FaDirectory)&=&FaDirectory)&and&&
&&&&&&&&(SR.Name&&&&'.')&and&(SR.Name&&&&'..')&then&&
&&&&&&begin&&
&&&&&&&&if&not&ForceToRemoveDir(StrPas(pDir)&+&SR.Name)&then&B&&
&&&&&&if&((SR.Attr&and&FaDirectory&&&&FaDirectory)&and&&
&&&&&&&&(SR.Attr&and&FaVolumeID&&&&FaVolumeID))&then&&
&&&&&&begin&&
&&&&&&&&SysUtils.FileSetAttr(pDir&+&SR.Name,&&
&&&&&&&&&&SysUtils.FileGetAttr(pDir&+&SR.Name)&and&(not&&
&&&&&&&&&&SysUtils.faReadOnly));&
&&&&&&&&if&not&DeleteFile(PChar(pDir&+&SR.Name))&then&&
&&&&&&&&&&B&&
&&&&&&FR&:=&FindNext(SR);&&
&&&&SysUtils.FindClose(SR);&&
&&&&RemoveDirectory(pDir);&&
&&&&Result&:=&T&&
&&except&&
function&GetWindowsVersion:&&&
&&AWin32Version:&E&&
&&os&:=&'Windows&';&&
&&AWin32Version&:=&StrtoFloat(format('%d.%d'&,[Win32MajorVersion,&Win32MinorVersion]));&&
&&if&Win32Platform&=&VER_PLATFORM_WIN32s&then&&
&&&&Result&:=&os&+&'32'&&
&&else&if&Win32Platform=VER_PLATFORM_WIN32_WINDOWS&then&&
&&&&if&AWin32Version=4.0&then&&
&&&&&&Result&:=&os&+&'95'&&
&&&&else&if&AWin32Version=4.1&then&&
&&&&&&Result&:=&os&+&'98'&&
&&&&else&if&AWin32Version=4.9&then&&
&&&&&&Result&:=&os&+&'Me'&&
&&&&else&&
&&&&&&Result&:=&os&+&'9x'&&
&&else&if&Win32Platform&=&VER_PLATFORM_WIN32_NT&then&&
&&&&if&AWin32Version=3.51&then&&
&&&&&&Result&:=&os&+&'NT&3.51'&&
&&&&else&if&AWin32Version=4.0&then&&
&&&&&&Result&:=&os&+&'NT&4.0'&&
&&&&else&if&AWin32Version=5.0&then&&
&&&&&&Result&:=&os&+&'2000'&&
&&&&else&if&AWin32Version=5.1&then&&
&&&&&&Result&:=&os&+&'XP'&&
&&&&else&if&AWin32Version=5.2&then&&
&&&&&&Result&:=&os&+&'2003'&&
&&&&else&if&AWin32Version=6.0&then&&
&&&&&&Result&:=&os&+&'Vista'&&
&&&&else&if&AWin32Version=6.1&then&&
&&&&&&Result&:=&os&+&'7'&&
&&&&else&&
&&&&&&Result&:=&os&;&&
&&&&Result&:=&os&+&'??';&&
procedure&TForm1.Button1Click(Sender:&TObject);&&
&&showmessage(MacAddress());&&
&&showmessage(GetCPUID());&&
&&showmessage(GetIdeSerialNumber());&&
&&showmessage(GetWindowsVersion());&&
procedure&TForm1.Button2Click(Sender:&TObject);&&
&&aFiles:&TC&&
&&aFileSize:&Int64;&&
&&ForceToRemoveDir('C:\apache-tomcat-6.0.32');&&
&&showmessage('删除目录成功！');&&
http://blog.csdn.net/earbao/article/details/
Views(...) Comments()