VB代码转delphi很简单的几句！

Question

Private Declare Function InstallHook Lib "hxwdllwx.dll" (ByVal dwID As Long) As Boolean
Private Declare Function UninstallHook Lib "hxwdllwx.dll" () As Boolean
Private Sub Form_Load()
        Call InstallHook(0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
        Call UninstallHook
End Sub这两句 怎么转成delphi的！dll的名字是 hxwdllwx.dll高手帮忙一下，谢谢http://good.gd/343352.htm这个是DLL！一个安装和卸载！高手帮忙改一下！谢谢了

Answer 1

function InstallHook(X:integer):integer stdcall; external'hxwdllwx.dll' ;procedure formcreate
 InstallHook伪代码大致就是这样了，楼主可以自己参考写一下

Answer 2

function InstallHook(X:integer):integer stdcall; external'hxwdllwx.dll' ;
procedure UninstallHook () stdcall; external'hxwdllwx.dll' ;Private Sub Form_Load() 
        Call InstallHook(0) 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
        Call UninstallHook 
End Sub procedure Form_Load() 
begin
InstallHook(0);
end.
procedure Form_Unload(Cancel : Integer)
begin 
         UninstallHook(); 
End .

Answer 3

无法定位程序输入点InstallHook于动态连接库hxwdllwx.dll上！高手，帮忙调试好吧！谢谢了

Answer 4

Form_Load 相当于VCL的TForm.Create
Form_Unload 相当于VCL的TForm.Destroy

Answer 5

完全一致！
Access Violation at address 00000000 Read of address 00000000
提示这个！
什么意思

Answer 6

那估计是InstallHook 执行出了异常。
原来的VB程序能正常运行吗（在同样的系统环境下）？

Answer 7

dll是VC写的！调用也是VC的！只不过改成VB的了！高手帮忙看下！用VC的可以改吗！
http://good.gd/343433.htm只写调用就可以了！别的不用写

Answer 8

VC 工程里没有写调用的DLL名字，而且调用的函数应该是int InHook()，没有参数。

Answer 9

VC 工程里调用的DLL名字是要用户输入的，而且调用的函数是int InHook()，没有参数。 

Answer 10

转换成delphi语言的啊！这些我都知道

Answer 11

那就是：
function InHook: integer; stdcall; external 'hxwdllwx.dll';