- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then Halt;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
p.X:=Random(Screen.Width);
p.Y:=Random(Screen.Height);
SetCursorPos(p.X,p.Y);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0);
mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0);
end;
end.
TWINc 24.08.2009 07:12 # 0
guest 26.08.2009 00:41 # −1
TWINc 26.08.2009 07:07 # +1
вот цитата с http://msdn.microsoft.com/en-us/library/ms646260%28VS.85%29.aspx
"Windows NT/2000/XP: This function has been superseded. Use SendInput instead."
labutinpa 24.08.2009 08:15 # −1
viktorious 25.08.2009 11:28 # −1
guest 26.08.2009 00:47 # −2
viktorious 28.08.2009 16:14 # 0
guest 21.09.2009 03:17 # −2
if key=13 then Halt;
Какой халт? Клоз, граждане...
ChakuZa 02.09.2009 23:32 # −1
nil 04.02.2010 00:02 # 0
TOPT 15.03.2018 00:09 # 0
guest 03.02.2010 20:05 # −2