DLL的调用
alin 2000-07-24 12:55:00 我有个DLL文件,有源代码,C++语言,但我想用DELPHI来调用如下:
Const
MWM_UpdateMsg =WM_USER+$100;
MWM_CopyMsg =WM_USER+$101;
MWM_MouseMsg =WM_USER+$102;
function SetHook(hWnd:HWND;UpdateMsg,CopyMsg,MouseMsg:Integer):Boolean;stdcall;external 'VNCHooks.dll';
function UnSetHook(hWnd:HWND):Boolean;stdcall;external 'VNCHooks.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin
if SetHook(Handle,MWM_UpdateMsg,MWM_CopyMsg,MWM_MouseMsg) then
ShowMessage('OK');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
UnSetHook(Handle);
end;
但有问题,不知怎回事,谁能帮我写一个DELPHI调用它的例子
DLL源代码位置:
http://alin.heha.net/vnchooks.zip