禁止或者允许另一程序的button,解决问题者有大分加。。(100分)

  • 主题发起人 主题发起人 lqldir
  • 开始时间 开始时间
L

lqldir

Unregistered / Unconfirmed
GUEST, unregistred user!
本人正研究传奇外挂。。
想禁止一些功能,或者想允许别人的一个程序的某个按钮
 
对了,就像传奇霸主那种效果的。。。
如何将未注册的版本的某些按钮变为可用???
 
举个例子,禁止或允许开始按纽:
var
h:HWND;

procedure TForm1.Button6Click(Sender: TObject);
begin
h:=FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);
EnableWindow(h,false);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
h:=FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);
EnableWindow(h,true);
end;
 
晕死,这个电脑报上都有的。。。
 
faint, 其它程序的按纽也是一样的。
 
哦。谢谢。。。
可传奇霸主就不是这样的。。。
 
问一个问题:
h:=FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);

这个是找到那个窗口的句柄呀?
shell_traywnd是什么东西?
 
是任务栏上的开始按钮!
 
那个shell_traywnd就是任务栏上的开始按钮?
那么比如找别的窗口上的一个button应该怎么办呢?
事先知道别的窗口的标题名。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部