Witam.
Napisałem prosty programik, na 4programers znalazłem jak przerobić kod programu żeby powstał wygaszacz, no i powstał taki kod:
program zegar;
{$D SCRNSAVE : Zegar}
uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
var
Params: string;
begin
if HPrevInst <> 0 then
Exit;
Params := UpperCase(ParamStr(1));
if (Params = '/S') or (Params = '-S') then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
end;
Application.Run;
end.
ale jest problem, gdy w systemie ustawie swój wygaszacz, to kiedy minie ustawiony czas bezczynności włącza sie dokładnie co 10 sekund (ten wygaszacz to zegar więc moge to dokładnie stwierdzić), i tak po 10 minutach mam włączone 60 wygaszaczy.
Dodam jeszcze że przy kompilacji pojawia się ostrzeżenie:
[Warning] zegar.dpr(13): Symbol 'HPrevInst' is deprecated