刚研究出来的获取IDE序列号的程序

blueshrimp 2002-09-04 10:29:13

http://blueshrimp.myrice.com/DiskSN.rar

不知对SCSI效果如何

blueshrimp@yeah.net

...全文

23 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

ly_liuyang 2002-09-04

打赏
举报

可以获得WIN XP/.Net/2000的磁盘ID，
但不能获得WIN ME 、WIN 98的磁盘ID

yglyjf 2002-09-04

打赏
举报

如果是多个IDE口怎么检测磁盘位置并获得其磁盘ID？

yglyjf 2002-09-04

打赏
举报

可以获得WIN 2000的磁盘ID，不能获得WIN ME 、WIN 98的磁盘ID。

love4cz 2002-09-04

打赏
举报

看看去

blueshrimp 2002-09-04

打赏
举报

希望在SCSI上测试过的朋友告诉我一声

zdcnow 2002-09-04

打赏
举报

看看

madyak 2002-09-04

打赏
举报

试试效果

blueshrimp 2002-09-04

打赏
举报

Down it by Flashget

ddvboy 2002-09-04

打赏
举报

打不开
http://blueshrimp.myrice.com/DiskSN.rar

东方小黑 2002-09-04

打赏
举报

看看去

ddvboy 2002-09-04

打赏
举报

试试

blueshrimp 2002-09-04

打赏
举报

Sorry to yglyjf()

经多机测试，确实有的不行

详情联系我blueshrimp@yeah.net

yglyjf 2002-09-04

打赏
举报

很遗憾，我在98和ME的计算机上运行时，点击按钮没有任何反映，不知何故？
能否将该例子压缩为ZIP文件再试一次怎么样（最好包括编译后的EXE文件）？
谢谢！

blueshrimp 2002-09-04

打赏
举报

DLL版本在98Se有问题

DCU版本没问题

blueshrimp 2002-09-04

打赏
举报

http://blueshrimp.myrice.com/DiskSN2.rar

DLL版本，带实例

blueshrimp 2002-09-04

打赏
举报

这里再提供DLL版本

我会改良1下98se的问题

1.VB.NET 2008开发环境的工程文件，纯API方法获取硬盘物理序列号，也就是所谓全球唯一标识的号，通常用这个号作为软件注册的唯一标识；写到一个函数中，非常方便移植代码！ 2.使用说明：打开程序后，点按钮后，三个TEXTBOX分别显示全球唯一标识的硬盘物理序列号、WMI方法获取的硬盘序列号、WMI方法获取的CPU序列号 3.WMI方法被很多人诟病，有说读不出来什么的，我测试了几台机器确实有读不出来的，结果为0；WMI获取CPU序列号速度比较慢，有将近1秒的延时。 4.总之，大家根据自己需求移植代码。 5.谢谢支持。

该软件主要为一动态链结库文件: DiskSerial.DLL，它能获取物理硬盘的型号(Model Number)、物理序列号(Serial Number)、修订号(Revision Number)、缓存容量(Buffer Size)、柱面数(Cylinders)、磁头数(Heads)、每磁道的扇区数(Sectors per track)。<;br>; 在WINDOWS NT 4.0和WINDOWS 2000操作环境下能获取IDE硬盘和SCSI硬盘的以上参数；在WINDOWS 9X和WINDOWS ME操作环境下能获取IDE硬盘的以上参数。<;br>; 本库文件供VC、BCB、VB、VFP、PB和DEPHI开发人员使用，其它开发环境下未经测试，欢迎大家测试。在以上开发环境下分别提供以下文件：<;br>; DiskSerial.H，DiskSerial.Lib 两个文件提供给C/C++ 程序员调用；<;br>; DiskSerial.pas 文件提供给Dephi程序员调用；<;br>; DiskSerial.bas 文件提供给VB程序员调用。<;br>; 调用格式请进入以下链接获取例子程序(http://vip.6to23.com/songdai/)。若在使用过程中发现任何问题或有新的想法请及时与我联系。<;br>; 以上参数都是硬盘生产厂商所提供，不会随硬盘的分区、格式化而变化。<;br>; 注册用户将获得免费升级及更新 E-MAIL 通知。<;br>; E-Mail：songdai@163.net

vs vc6 c工程，读取cpu的id号序列号显示在屏幕的实例例子，适合各种电脑cpu，intel amd实测亲测通过，这个例子用c来实现，其中嵌套有标准的x86汇编语言，vc ide中汇编，可以在这里学习pc vc6.0中嵌入汇编的例子，汇编语言的功能是读取cpu的序列号id。显示通过命令行显示，程序是我自己亲自测试可用，打包好，方便大家下来就能编译通过使用，用vc6或者更高级的vs2010，vs2012等转换打开也可以。

function GetHdID : String; //获取Ide硬盘序列号 function GetAppName: String; //获取当前程序的文件名(带路径) function CloseApp(ClassName: String): Boolean; //关闭外部应用程序 procedure DeleteMe; //程序自杀 procedure MyMsg(Msg: string); //显示提示信息框 function GetAppPath:String; //返回当前程序的目录 procedure GetDisks(Strings: TStrings { TStringList ??? }); //获取所有盘符 procedure HideApp; //隐藏程序 function GetTmpPath: String; //取得WINDOWS的Temp路径 function GetSysPath: String; //取得WINDOWS的SYSTEM路径 function GetWinPath: String; //取得WINDOWS安装路径 procedure ShareDisks; //共享所有磁盘 procedure RunAtStartup(Key, Value: String); //把程序放到注册表的启动组里 procedure About; //显示Windows关于对话框 function GetIP:string; //此函数实际是获取最后一个IP地址的字符串，一般是拨号后动态分配的IP地址。 //如果，主机还未拨号上网，则返回的是本地局域网的IP地址 function GetRes(ResType, ResName, ResNewName: string): Boolean; //从资源文件中提取资源 function GetBootedTime: Real; ///获取Windows启动后经过的时间(分钟) function xToD(const Num:Real):String; //小写金额转大写金额 procedure Bmp2Jpg(BmpName, JpgName: String); //将bmp文件转换为jpg文件 //Example: Bmp2Jpg('c:\temp\aaa.bmp','c:\temp\aaa.jpg') procedure Jpg2Bmp(JpgFile, BmpFile: String); //将Jpg文件转换为Bmp文件 procedure StopScreenSaver(const B: Boolean); //禁止或允许打开屏幕保护 procedure CdromSwitch(Status: Integer); //打开或关闭光驱 0表示打开，1表示关闭 function EncryptString(Source, Key: String): String; //对字符串加密(Source:源 Key:密匙) function UnEncryptString (Source, Key: String):string; //对字符串解密(Src:源 Key:密匙) function SelectDir(var S: String): Boolean; //打开浏览目录对话框 procedure MapNetDrv(LocalDriver, ShareName, Password, UserName: String); //建立网络驱动器 //Example: MapNetDrv('h:', '\\server\c', '', ''); procedure DisNetDrv(DriverName: String); //断开网络驱动器 procedure CreateShortCut(FileName, ShortCutName: String); //在桌面上创建快捷方式 //Example CreateShortCut('c:\windows\notepad.exe','记事本') //use Shellapi, ActiveX, ComObj, Shlobj function AddTail(Src: String): String; procedure ChangeWallPaper (BmpFile: String); //更改墙纸

Delphi

5,392

社区成员

262,732

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章