Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
http://redskyhome.myetang.com/version.dpr
C
caidaoli
Unregistered / Unconfirmed
GUEST, unregistred user!
你似乎想对函数进行拦截
Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
差不多，我用version.dll作为实验对象，主要是因为它内部的输出函数较少，程序好做<br><br><br>我想试验dll替换技术，虽然在高版本操作系统下，可能不能用(要身份准许了)<br>用处应该很大的，其实我们都在自觉不自觉的的情况下被类似伪sock dll的技术所服务<br><br>分少了可以提！！欢迎大家讨论。。。。。。
M
MrMengyi
Unregistered / Unconfirmed
GUEST, unregistred user!
我怎么看不到<br>http://redskyhome.myetang.com<br>找不到
Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
一个朋友废弃的主页空间，我占用他的空间<br>
Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
我以前上传的太匆忙,在dpr里面,所有的myFreeDll;都应该为//myFreeDll;<br><br>本问题我自己已经解决,不会出错了,是引用的问题<br>现在问题变为: )<br>为什么我不能像下面那样做<br>function GetFileVersionInfoA(lptstrFilename
AnsiChar;dwHandle,dwLen
WORD;lpDataointer):BOOL;export;<br>begin<br> myLoadDll;//没这行不会出错<br> @myGetFileVersionInfoA:=GetProcAddress(hDll,'GetFileVersionInfoA');<br> RESULT:=myGetFileVersionInfoA(lptstrFilename,dwHandle,dwLen,lpData);<br> myFreeDll;//没这行不会出错<br>end;<br>
AnsiChar;dwHandle,dwLenWORD;lpDataointer):BOOL;export;<br>begin<br> myLoadDll;//没这行不会出错<br> @myGetFileVersionInfoA:=GetProcAddress(hDll,'GetFileVersionInfoA');<br> RESULT:=myGetFileVersionInfoA(lptstrFilename,dwHandle,dwLen,lpData);<br> myFreeDll;//没这行不会出错<br>end;<br>
Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
//下面是模拟程序<br>program Ptestdll;//调用testdll_load.dll<br>uses<br> Forms,testdllUnit1 in 'testdllUnit1.pas' {Form1};<br>{$R *.RES}<br>begin<br> Application.CreateForm(TForm1, Form1);<br> Application.Run;<br>end.<br>//===========================================<br>unit testdllUnit1;<br>interface<br>uses<br> Windows, Messages, SysUtils, Classes, Controls, StdCtrls,forms;<br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> procedure Button1Click(Sender: TObject);<br> private<br> public<br> end;<br><br> Tzj=procedure;stdcall;<br><br>var<br> Form1: TForm1;<br> hDll:HMODULE;<br> myzj:Tzj;<br>implementation<br>{$R *.DFM}<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> hDll:=loadlibrary('testdll_load.dll');<br> @myzj:=GetProcAddress(hDll,'zj');<br> myzj;<br> FreeLibrary(hDll);<br>end;<br><br>end.<br><br>//===========================================<br>//我不能在DLL里面接收消息<br>library testdll_load;//替换testdll<br>uses<br> windows,messages;<br>type<br> Tzj=procedure;stdcall;<br>var<br> hDll:HMODULE;<br> myzj:Tzj;<br> a:integer;<br> ht:integer;<br> one:boolean;<br> hW:integer;<br> Msg:TMsg;<br> wClass:TWndClass;<br> ThreadId2WORD;<br><br>procedure TimeProc;<br>begin<br> messagebeep(0);//这里根本就不进入！！<br>end;<br><br>//只能收到36,129,131,1消息，以后就再也收不到了<br>function WindowProc(hWnd,Msg,wParam,lParam:longint):LRESULT; stdcall;<br>begin<br> Result:=DefWindowProc(hWnd,Msg,wParam,lParam);<br> case Msg of<br> 1:begin<br> ht:=SetTimer(hW,0,500,@TimeProc);<br> end;<br> wm_destroy:<br> begin<br> halt;<br> end;<br> end;<br>end;<br><br>procedure run;stdcall;<br>begin<br> wClass.lpfnWndProc:=@WindowProc;<br> wClass.hInstance:=hInstance;<br> wClass.lpszClassName:=' ';<br> RegisterClass(wClass);<br> hw:=CreateWindowEx(0,' ',' ',0,0,0,0,0,0,0,hInstance,nil);<br> while(GetMessage(Msg,hW,0,0))do begin<br> TranslateMessage(Msg);<br> DispatchMessage(Msg);<br> end;<br>end;<br><br>procedure doMyHideProc;<br>begin<br> if ht=0 then begin<br> run;<br> end;<br>end;<br><br>procedure zj;stdcall;<br>begin<br> CreateThread(nil,0,@doMyHideProc,nil,0,ThreadId2);<br> hDll:=loadlibrary('testdll.dll');<br> @myzj:=GetProcAddress(hDll,'zj');<br> myzj;<br> FreeLibrary(hDll);<br>end;<br><br>exports<br> zj index 0;<br><br>begin<br> ht:=0;<br>end.<br>//===========================================<br>library testdll;//原始dll，被testdll_load替换<br>uses windows;<br><br>procedure zj;stdcall;<br>begin<br> messagebox(0,'我在这里','zj',0);<br>end;<br><br>exports<br> zj index 0;<br><br>end.<br>
WORD;<br><br>procedure TimeProc;<br>begin<br> messagebeep(0);//这里根本就不进入！！<br>end;<br><br>//只能收到36,129,131,1消息，以后就再也收不到了<br>function WindowProc(hWnd,Msg,wParam,lParam:longint):LRESULT; stdcall;<br>begin<br> Result:=DefWindowProc(hWnd,Msg,wParam,lParam);<br> case Msg of<br> 1:begin<br> ht:=SetTimer(hW,0,500,@TimeProc);<br> end;<br> wm_destroy:<br> begin<br> halt;<br> end;<br> end;<br>end;<br><br>procedure run;stdcall;<br>begin<br> wClass.lpfnWndProc:=@WindowProc;<br> wClass.hInstance:=hInstance;<br> wClass.lpszClassName:=' ';<br> RegisterClass(wClass);<br> hw:=CreateWindowEx(0,' ',' ',0,0,0,0,0,0,0,hInstance,nil);<br> while(GetMessage(Msg,hW,0,0))do begin<br> TranslateMessage(Msg);<br> DispatchMessage(Msg);<br> end;<br>end;<br><br>procedure doMyHideProc;<br>begin<br> if ht=0 then begin<br> run;<br> end;<br>end;<br><br>procedure zj;stdcall;<br>begin<br> CreateThread(nil,0,@doMyHideProc,nil,0,ThreadId2);<br> hDll:=loadlibrary('testdll.dll');<br> @myzj:=GetProcAddress(hDll,'zj');<br> myzj;<br> FreeLibrary(hDll);<br>end;<br><br>exports<br> zj index 0;<br><br>begin<br> ht:=0;<br>end.<br>//===========================================<br>library testdll;//原始dll，被testdll_load替换<br>uses windows;<br><br>procedure zj;stdcall;<br>begin<br> messagebox(0,'我在这里','zj',0);<br>end;<br><br>exports<br> zj index 0;<br><br>end.<br>
Z
zjlcc
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
