代码.txt

这是一个可以不要注册码就可以注册然后软件的程序

软件介绍:
现在好多软件在安装时要输入序列号才能继续，也就是说，你不输入序列号，则
《下一步》这个按钮是灰色的。你无法点他，使用本程序，点击激活,哈哈，你
将畅通无阻！！！对于一般的软件，包括瑞星现在出的安装下载版，没有任何问
题！

By 6+*   QQ:16668215


历史:
2003.6.24  灰色按钮客星1.0完成,可以在大多数软件下发挥功效.
2003.7.16  灰色按钮客星2.0完成,在1.0的基础上增加了对MainMenu菜单起作用
2003.7.18  2.1修正版，在对一个CrackMe的测试中发现了一个Bug，现已修正
           CrackMe下载Http://sljxs.8u8.com/mysoft/crackme.zip破解这个
           CrackMe难度不大，但是你不可能在1秒钟之内做到啊，呵呵，用了
           灰色按钮客星就能实现。有兴趣的朋友可以下载这个CrackMe来玩玩



灰色按钮客星1.0 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;