文件名称：Delphi7.0 读取硬盘驱动器序列号程序范例.rar
文件大小：65KB
文件格式：RAR
更新时间：2022-07-30 11:05:22
Delphi源码-界面编程
Delphi读取硬盘驱动器序列号的源代码范例， 一个读取硬盘驱动器序列号的功能的 DLL Delphi 调用端. 一个简单的查看 硬盘驱动器信息。还有一个导出函数 读取硬盘序列号。相关代码参考如下： const PDLL = 'HardDriveNumber.dll'; type THardDriveNumber = record SerialNumber: array[0..128-1] of AnsiChar; ModelNumber: array[0..128-1] of AnsiChar; end; PHardDriveNumber = ^THardDriveNumber; procedure GetHardDriveNumber(var hdNumber: THardDriveNumber); stdcall; external PDLL Name 'GetHardDriveNumber@4'; procedure ShowHardDriveNumber(hWndParent: HWND);stdcall; external PDLL Name 'ShowHardDriveNumber@4'; implementation end.
【文件预览】：
srcfans.com
----HardDriveNumber()
--------Main.dfm(800B)
--------Win32()
--------Main.pas(765B)
--------HardDriveNumber.pas(901B)
--------HardDriveNumber_EXE.res(58KB)
--------HardDriveNumber_EXE.dproj(29KB)
--------HardDriveNumber_EXE.dproj.local(2KB)
--------HardDriveNumber_EXE.stat(170B)
--------HardDriveNumber_EXE.identcache(204B)
--------HardDriveNumber.dll(14KB)
--------HardDriveNumber_EXE.dpr(288B)