:
   ںöڰװʱҪкŲܼҲ˵
㲻кţ
һťǻɫġ޷ʹñ
,
    㽫ͨ裡һ
İװذ棬
   ûκ⣡

ʷ:
2003.6.24  ɫť1.0,ڴ·ӹЧ.
2003.7.16  ɫť2.0,1.0Ļ˶MainMenu˵
2003.7.18  2.1棬ڶһCrackMeĲзһBug
           CrackMeHttp://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;