是你自定义的吧????
_______________________________________________________________多多交流 共同进步
[email protected]
http://nizvoo.myrice.com
_______________________________________________________________
_______________________________________________________________多多交流 共同进步
[email protected]
http://nizvoo.myrice.com
_______________________________________________________________
解决方案 »
- 有个delphi开发的管理软件,没有源码,如何修改关键功能呢
- dxdbgrid如何和数据集连接并显示出数据!!!急等
- 怎样得到一个panel在窗口中的实际位置
- 如何把数据库里的表在DBlistBox里显示出来
- 一个小问题(主丛表录入),希望各位路过来看看。
- 我用spcomm串行通信时候,spcomm提示帧错误,怎么回事啊
- 学Delphi是否要先学Pascal? 能否推荐几本Pascal书(包括电子书)?
- 请问在Rxrichedit里得到的图片的object,怎样将它保存为文件?
- 简单问题:怎样删除目录c:\temp下的所有文件及其子目录?(在线)
- 如何将一个字段的结果,分多列显示...
- CASE怎么识别字符串?
- 如何在一个打开的woed文档中追加另个woed文档?
http://www.csdn.net/expert/Topic/9/9132.shtm
你肯定是没有 use 定义 TDllProcedure 的单元
我想也是没有用什么单元但是查不出来,用F1也查不到相关TDllProcedure的信息,我试着加了comserv单元也没有用,不知为什么//*********************************************************
使用regserver会出现一个DOS窗口,显得很不雅,还是最好使用下面的函数(经过测试,没有问题),思想是调用Com DLL中的DllRegisterServer函数来完成自注册。
function RegisterDll(strDllPath : string) : boolean;
var
hLib : THandle;
lpFunc : TDllProcedure;
strName : string;
begin
strName := strDllPath; hLib := LoadLibraryEx(pChar(strName), 0,LOAD_WITH_ALTERED_SEARCH_PATH);
if hLib = 0 then
begin
result := false;
exit;
end; try
lpFunc := GetProcAddress( hLib, 'DllRegisterServer' );
if not Assigned(lpFunc) then
begin
result := false;
exit;
end; lpFunc;
result := true;
finally
FreeLibrary( hLib );
end;
end;
我怎么好象没有见过,你直接定义成函数形式就可以了,参数要和 'DllRegisterServer' 的参数一致