procedure TForm1.Button1Click(Sender: TObject);
var
handle_lib:THandle;
func:function(oldstr:Pchar):Pchar;
begin
handle_lib:=loadlibrary('StringProc.DLL');
if handle_lib>32 then
begin
func:=getprocaddress(handle_lib,'StrTrimAll');//获取StrTrimAll函数的入口地址.
edit2.Text:=string(func(Pchar(edit1.Text)));//调用StrTrimAll.
func:=getprocaddress(handle_lib,'StrBlankWithUnderline');
edit3.Text:=string(func(Pchar(edit1.Text)));
freelibrary(handle_lib);
end
end;
-------------------------------------------
谁能给解释下,32的详细意思,在这里代表甚么意思,具体有甚么用.谢谢.
var
handle_lib:THandle;
func:function(oldstr:Pchar):Pchar;
begin
handle_lib:=loadlibrary('StringProc.DLL');
if handle_lib>32 then
begin
func:=getprocaddress(handle_lib,'StrTrimAll');//获取StrTrimAll函数的入口地址.
edit2.Text:=string(func(Pchar(edit1.Text)));//调用StrTrimAll.
func:=getprocaddress(handle_lib,'StrBlankWithUnderline');
edit3.Text:=string(func(Pchar(edit1.Text)));
freelibrary(handle_lib);
end
end;
-------------------------------------------
谁能给解释下,32的详细意思,在这里代表甚么意思,具体有甚么用.谢谢.
解决方案 »
- TbsSkinButton是什么控件?
- 关于dll与应用程序的通信问题?
- 菜鸟--如何将一个窗口保持在最前面,并只有关闭才可能操作其他的窗口!(急)
- 关于在delphi中用嵌入汇编取出cpu序列号的问题
- 如何将word文档转换成text?
- 关于createprocess()的用法。
- 有在沧洲、任丘的程序员吗?有急事;有了,请留下信息
- 一个表里的最后一行的第一个数据. 我如何获得???
- 关于midas
- 在98里有dcomcnfg.exe 吗
- 想扁沈这家伙
- delphi的isapi程序如何发布到 server 2003的 iis6中, xp 下iis5 已经可用,但按照同样的办法在2003的iis6下不行
这是一个加载过程,如果加载不成功的话,的应该小于32
2:
func:function(oldstr:Pchar):Pchar; 是啥意思?
声明调用,这个应该我StringProc.DLL定义的一个函数