Witam wszystkich.
Mam nietypowy problem. Znajomy posiada firmowego laptopa (Win XP), w którym wygaszacz włącza się co 10 minut. Co przeszkadza np. w oglądaniu filmów.[green] Odtwarzacze Video ulegają wygaszaczowi. Opcja wyłączenia wygaszacza (właściwości\wygaszacz ekranu\wygaszacz ekranu) odpada, gdyż jest już wygaszona - niedostępna. Pozostaje napisać tylko program który oszukałby wygaszacz np: symulacja kliknięcia przycisku myszy, bądź ruch kursora. Jeżeli chodzi o kliknięcie to nie wiem jak to zrobić.
Jak możecie to pomóżcie, bo od kilku dni męczę się z tym w Delphi 5.0.
A nie jestem zaawansowanym programistą :/
Próbowałem na różne sposoby:
1) Polecenie poniżej odpada, bo wygaszacz się pojawia;
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Word(False), nil, 0);
2) Symulacją ruchu kursora (kod poniżej) z intervałem równym 5 minut (300 000 milisekund), ale przy drugim ukazaniu się wygaszacza kod nie działa.
procedure TForm1.Timer1Timer(Sender: TObject);
var
P : TPoint;
x: integer;
begin
GetCursorPos(P);
SetCursorPos(p.x, p.y);
GetCursorPos(P);
SetCursorPos(p.x+1, p.y);
GetCursorPos(P);
SetCursorPos(p.x-1, p.y);
end;
Z góry będę wdzięczny.