- 博客(6)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 delphi dll 调用
library circle;uses System.SysUtils, System.Classes, math;{$R *.res} function CircleArea(const Radius:double):double;stdcall; begin Result:= Radius*Radius*3.1415926; end; exports Cir...
2018-12-27 20:46:48
603
原创 初识DELPHI DLL 之二
library test;uses System.SysUtils, System.Classes;{$R *.res}function sum(x,y:double):double; stdcall; //stadCALL,表明，//此类函数可在其它VB,VC 等调用 begin Result:=x+y; end;funCtion Minus(x,y:DOUBLE...
2018-12-27 19:35:21
105
原创 初识DLL
在DELPHI XE 10新建DLL;打入以下内容： library SimpleMessageDLL;uses System.SysUtils, System.Classes, VCL.DIALOGS;{$R *.res}procedure DllMessage; export;beginShowMessage('Hello world from a Delphi ...
2018-12-27 18:55:04
67
原创 delphi xe 通过注册表到得硬盘型号与序号 处理字符串 删除多余下划线
注：上篇用delphi xe 通过注册表到得硬盘型号与序号 是在WIN7 64位下通过，WIN10的DISK字符串与WIN7获得的字符串不一致。所以要检测系统版本，根据系统的版本，处理解决之。 以下是解决WIN7时的处理方法： unit Unit4;interfaceuses Winapi.Windows, Winapi.Messages, System.Sys...
2018-12-27 16:29:04
307
原创 delphi xe 通过注册表到得硬盘型号与序号
代码如下var Form5: TForm5;implementation uses registry;{$R *.dfm}procedure TForm5.Button2Click(Sender: TObject);var reg:Tregistry;beginmemo1.clear;reg:=Tregistry.create; //涉入江湖reg.RootKey ...
2018-12-26 11:25:56
750
原创 IOCT_disk取得硬盘分区号和硬盘号，如何求得其物理顺序？ 解决篇
以下只提供思路：并已经测试成功；1、在前篇的基础上继续：2、给所有的分区分配盘符，包括EFI启动时的,EFI分区，MSR分区；（非必要条件）3、取得硬盘数 DriverNum:=Countdisk();//取得硬盘数；4、遍历所有的硬盘：for i:=0 to DriverNum-1 do //硬盘号从0开始计数，分区号从1开始计数 begin Driver:=g...
2018-12-21 10:20:21
428
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人