zoukankan
html css js c++ java
delphi 中DLL的建立
Dll的创建与调用
File ->New->Other->Dll Wizard
DLL的创建
//可以将本代码复制粘贴到项目中 library Project1; uses SysUtils, Classes, Windows, Forms; {$R *.res} function Min(x,y:Integer):Integer;stdcall; begin if (x<y) then Result:=x else Result:=y; end; procedure MsgBox(Msg:string;Title:string;uType:LongInt=MB_OK);stdcall; begin Application.MessageBox(PAnsiChar(Msg),PAnsiChar(Title),uType); end; exports Min, MsgBox; begin end.
DLL的调用1
//将Project1.dll文件复制到本项目中 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; function Min(x,y:Integer):Integer;stdcall;external 'project1.dll'; procedure MsgBox(Msg:string;Title:string;uType:LongInt=MB_OK);stdcall;external 'project1.dll'; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(IntToStr(Min(3,2))); end; procedure TForm1.Button2Click(Sender: TObject); begin MsgBox('Hello','Tips',MB_OK+MB_ICONINFORMATION); end; end.
来自为知笔记(Wiz)
附件列表
查看全文
相关阅读:
React初识整理(二)--生命周期的方法
React初识整理(一)
前后端分离浅析
url地址数据参数转化JSON对象(js三种方法实现)
js和JQuery中的获取宽、高、位置等方法整理
游民轮播图效果实现
焦点轮播图效果实现
iOS开发debug集锦
实现一个 RESTful API 服务器
从iOS的图片圆角想到渲染
原文地址:https://www.cnblogs.com/xe2011/p/3876090.html
最新文章
Object Relational Mapping(ORM)
Django模板系统
Django的View(视图)
django 路由系统
HTTP协议
MySql练习题参考答案
MySql练习题
mac终端下修改MySQL的编码格式--找不到my-default.cnf及my.cnf
Mac OS下面安装mysql以及mysql常用命令
Learn English
热门文章
Cisco switch commonly used command
flash,Rom,RAM,nvram 的区别 (思科设备)
win10家庭版启用Administrator
Windows 10:设置应用程序无法打开或闪退
CCNA_8
【转】TCP/IP 系列之 TCP 流控与拥塞控制(一)
CCNA_6
React初识整理(五)--Redux和Flux(解决状态传递问题)
React初识整理(四)--React Router(路由)
React初识整理(三)--受控组件解决方法
Copyright © 2011-2022 走看看