Nazdar všem.
Potřeboval bych napsat malou aplikaci, která by 1x do 10 minut simulovala pohyb myši (nebo s ní opravud o bod fyzicky pohnula) - výsledkem by mělo být defato zrušení inicializace spořiče.
Takže v Delphi (7) jsem do Timeru vložil toto:
if kam then SetCursorPos(mouse.CursorPos.X+10,mouse.CursorPos.Y)
else SetCursorPos(mouse.CursorPos.X-10,mouse.CursorPos.Y);
kam:=not(kam);
inc (s); //jen pro info, jak dlouho moje aplikace běží
if s>59 then begin
s:=0; inc (m);
end;
form1.Caption:=inttostr(m)+':'+inttostr(s);
Myš mi sice po 1s (nebo po jiné době Timeru) poskakuje, ale spořič se stejně zapne.
Našel jsem tedy utilitu "nosleep". Ta funguje skvěle, tady je její údajný kód, co se týče pohybu myši:
While 1
Sleep(30000)
$CurPos = MouseGetPos ( )
MouseMove ( $CurPos[0] + 1, $CurPos[1] )
MouseMove ( $CurPos[0] - 1, $CurPos[1] )
WEnd
Netušíte někdo, proč to v 1. případě nezabere a 2. případě ano, spořič se opravdu neaktivuje.
Celý? kód pro nosleep by měl být zde: https://www.symantec.com/connect/downloads/readynosleepexe-prevents-screensaver-and-pc-locking
Děkuji za rady.
Petr