Delphi中dll的创建和调用
很久没有回来了，流浪了太多的地方，以后还会继续流浪吗？
记性不好，留下点自己的成长，希望能够坚持下去。。。。
诚肯接受批评
记性不好，留下点自己的成长，希望能够坚持下去。。。。
诚肯接受批评
1
{这是DLL}
2library Project1;
3
4uses
5 SysUtils,
6 Classes,
7 Dialogs;
8
9procedure HelloWorld;
10begin
11 MessageDlg('厌恶了流浪的味道', mtConfirmation, [mbOK],0);
12end;
13
14exports
15 HelloWorld;{这里很重要，在exe中调用时要用到，似乎大小写都不能错}
16
17{$R *.res}
18
19begin
20end.
21//-----------------------------------------------------------------------------------------
22{这里是调用DLL的exe}
23var
Form1 : TForm1;
procedure HelloWorld; external 'Test.dll';{通过过程调用DLL,Test.dll为生成的dll的名字，并且位置和exe文件在一个目录，不在的话，要指定}
24implementation
25
26{$R *.dfm}
27
30procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
31 Shift: TShiftState; X, Y: Integer);
32begin
33 HelloWorld;{执行dll中的程序代码，这里好像是和dll中exports语句对应的，大小写错了也不行哦}
34end;
35
36end.
{这是DLL}2
library Project1;3
4
uses5
SysUtils,6
Classes,7
Dialogs;8
9
procedure HelloWorld;10
begin11
MessageDlg('厌恶了流浪的味道', mtConfirmation, [mbOK],0);12
end;13
14
exports15
HelloWorld;{这里很重要，在exe中调用时要用到，似乎大小写都不能错}16
17
{$R *.res}18
19
begin20
end.21
//-----------------------------------------------------------------------------------------22
{这里是调用DLL的exe}23
varForm1 : TForm1;
procedure HelloWorld; external 'Test.dll';{通过过程调用DLL,Test.dll为生成的dll的名字，并且位置和exe文件在一个目录，不在的话，要指定}
24
implementation25
26
{$R *.dfm}27
30
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;31
Shift: TShiftState; X, Y: Integer);32
begin33
HelloWorld;{执行dll中的程序代码，这里好像是和dll中exports语句对应的，大小写错了也不行哦}34
end;35
36
end.