사바리.. wrote:

> 지가 오토마우스를 맹글고 시포엽..

>

> 음 지가 구상하고 있는 것은 마우스가 50초정도 움직이쥐 않으면

>

> 마우스를 자동으로 움직이게 하는 것임당..^^

>

> 헐... 어떻게 하면 이렇게 맹글수 있죠......^^

>

> 암나 갈켜 주시와여.....

>

> 음 마우스의 포인터함수를 이용 하나여??

>

> 궁금.. 흠.





사발님 안녕하세요~



즐거운 저녁식사 시간이 다가왔네요 ^^(식충이..)



말씀하신 특정시간동안 마우스가 움직이지 않았는지 조사하려면



예전에 저는 이렇게 사용했었어요.



예를 들면 ..



var

Form1: TForm1;

cnt: integer;

oldP: TPoint;



implementation



{$R *.DFM}



procedure TForm1.Timer1Timer(Sender: TObject);

var P: TPoint;

begin

GetCursorPos(P);

if (oldP.x = P.x) and (oldP.y=P.y) then

begin

oldP:= P;

inc(cnt);

end

else

begin

oldP:= P;

cnt:= 0;

end;

if cnt=5 then //TTimer를 1초로 셋팅했다면 약 5초..

begin

ShowMessage('5초동안 마우스를 안 움직였잖아~~');

end;

end;



그리고 원하는 좌표로 마우스를 움직이는 것은



대충 아래 형태로..



P.X := 100;

P.Y := 100;

P := Self.ClientToScreen(P);



SetCursorPos(P.X, P.Y); // 마우스 커서를 좌표점(100, 100) 으로 이동...



그럼 즐거운 프로그래밍 하세요~~~