CJ:
我DL的是带有CRACK的。它的加密有问题,我自己做了几行,也能CRACK。将next按钮
点亮就行了。
procedure TForm1.FormKeyPress(Sender: TObject;
var Key: Char);
begin
if key='1' then
EnableWindow(ChildWindowFromPoint(windowFromPoint(point(Mouse.CursorPos.x,Mouse.CursorPos.y)),point(Mouse.CursorPos.x,Mouse.CursorPos.y)),True);
//?
if key='2' then
EnableWindow(WindowFromPoint(point(Mouse.CursorPos.x,Mouse.CursorPos.y)),False);
key:=#0;
end;
Usage:
将install窗口移到0,0位置,active yourcrackform,press 1(要按住),鼠标指针
在要点亮的disable按钮上移动几次就行了。
顺便问一个问题:
我如何使用SCREENTOCLIENT API 而不是用tcontrol.screentoclient方法?
也就是说,当API与控件方法重名时,如何决定是使用API还是使用方法呢?
有点愚昧吧。