发信人: huxley(時代)
整理人: huxley(2003-06-28 14:11:06), 站内信件
|
现在好多软件在安装时要输入序列号才能继续，也就是说，你不输入序列号，则
《下一步》这个按钮是灰色的。你无法点他，使用本程序，点击激活,哈哈，你
将畅通无阻！！！对于一般的软件，包括瑞星现在出的安装下载版，没有任何问
题！
By 6+* QQ:16668215 2003.6.24
Delphi版核心源代码
function GetButtonHandle(hwnd:Integer;TF:TForm1):Boolean;stdcall;
var
Buffer: array[0..255] of Char;
begin
Result := True; //设定为True才会再找下一个
if iswindowenabled(hwnd)=false then//判断是否有enable的东东
begin
enablewindow(hwnd,true);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//设置窗体在最前端
setwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0)
end;
procedure TForm1.Timer1Timer(Sender: PObj);
var
ButtonHandle:integer;
MyButtonHandle:HWND;
begin
edit2.Text:=inttostr(getforegroundwindow);
ButtonHandle:=getforegroundwindow;
EnumChildWindows(ButtonHandle,@GetButtonHandle,integer(@ButtonHandle));
end; |
|