如何使广告条自动运行，仅供学习参考(2)

Memo2.Lines.Add(TimeToStr(now) '''' step1'''');
end;
end;

function TForm1.IsRun:boolean;//判断小人是否在走动
var
BkColor:TColor;
R,G,B:Byte;
HStr:string;
begin
BkColor:=GetPixel(GetDC(0),pManDownX,pManDownY);
R:=GetRValue(BkColor);
G:=GetGValue(BkCOlor);
B:=GetBValue(BkColor);
HStr:=HexB(R) HexB(G) HexB(B);
if HStr=pManDownColor then
Result:=False
else
Result:=True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
if Timer1.Enabled then
begin
Button1.Caption:=''''Click To Stop'''';
Label1.Font.Color:=clGreen;
end
else
begin
Button1.Caption:=''''Click To Start'''';
Label1.Font.Color:=clRed;
IsStep2:=False;
end;
end;

end.

我的广告条是在1024*768的方式下运行的，而且是放在屏幕下方，如果您的设置与我不一样，请调整几个常量的值（pManX,pManY,pManDownX,pManDownY）。

源代码下载http://ono.3322.org/mysoft/cash.zip

赚钱详尽注册方法http://ono.3322.org/bbs/dispbbs.asp?boardID=2&RootID=19&ID=19

如果注册的话，请别忘了加上我的ID，看在我写了这么多的面子上吧。

注册地址：http://www.cashfiesta.com/php/join.php?ref=ericss

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有