有谁知道 [爱元元的哥哥] 的EMAIL??? ( 积分: 50 )

  • 主题发起人 主题发起人 jettop
  • 开始时间 开始时间
J

jettop

Unregistered / Unconfirmed
GUEST, unregistred user!
如下老贴,
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2828046
关于 爱元元的哥哥 贴的代码中的 common 单元不存在的问题,想找他要,但不知道EMAIL
请知道的给一个
爱元元的哥哥 能出现则最好了,谢谢了...
 
爱元元的哥哥 (2003-05-03 14:07:00)
南京-南航

end_sub@hotmail.com
 
似乎还有个爱妹妹的,不知道有什么不一样的。
 
解决 进程防杀(WIN2000/XP)的,加200分.
不要隐藏,虽然很多办法可以在"任务管理器"隐藏,但用其它工具如金山的防火墙等可查到.
不要用DLL驻入的方法.
不要在WIN98下的方法拿出来
我的目的就是让用户看到无所谓,总之杀不掉就行
 
写成驱动吧,不知道这样能不能了,没有做过,顶你
 
to :白河愁, 给个源码如何?
 
我倒是做了个非常简单的API HOOK控件,不过不能免费提供,你还是看看相关资料吧.
驱动的话对一般人来说太难做了。
 
贴下我的API控件,看看有多简单,
form的
object aphkr1: TAPIHooker
DllName = 'user32.dll'
DllFunction = 'MessageBoxA'
ParamCount = 4
OnAPIHookProc = aphkr1APIHookProc
Left = 96
Top = 72
end

unit1的

procedure TForm1.btn1Click(Sender: TObject);
begin
aphkr1.Init:= True;
aphkr1.Hook:= True;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
if MessageBox(Handle, '123', '456', 0) = ID_NO then
ShowMessage('1');
end;

function TForm1.aphkr1APIHookProc(
const aParam: array of Pointer): Cardinal;
begin
Result:= MessageBox(DWORD(aParam[0]), aParam[1], aParam[2], MB_YESNOCANCEL);
end;
 
TAPIHooker , 久闻
有提供的吗?
 
有个免费版本,搜索下我的贴
 

Similar threads

D
回复
0
查看
943
DelphiTeacher的专栏
D
D
回复
0
查看
882
DelphiTeacher的专栏
D
D
回复
0
查看
959
DelphiTeacher的专栏
D
D
回复
0
查看
786
DelphiTeacher的专栏
D
后退
顶部