Реферат: Создание хранителя экрана

Главное о чем стоит упомянуть это, что ваш хранитель экрана будет работать в фоновом режиме, и он не должен мешать работе других запущенных программ. Поэтому сам хранитель должен быть как можно меньшего объема. Для уменьшения объема файла в описанной ниже программе не используется визуальные компоненты Delphi, включение хотя бы одного из них приведет к увеличению размера файла свыше 200кб, а так, описанная ниже программа, имеет размер всего 20кб!!!

Технически, хранитель экрана является нормальным EXE файлом (с расширением .SCR), который управляется через командные параметры строки. Например, если пользователь хочет изменить параметры вашего хранителя, Windows выполняет его с параметром "-c" в командной строке. Поэтому начать создание вашего хранителя экрана следует с создания примерно следующей функции:

Procedure RunScreenSaver;

Var S : String;

Begin

S := ParamStr(1);

If (Length(S) > 1) Then Begin

Delete(S,1,1);

{ delete first char - usally "/" or "-" }

S[1] := UpCase(S[1]);

End;

LoadSettings; { load settings from registry }

If (S = 'C') Then RunSettings

Else If (S = 'P') Then RunPreview

Else If (S = 'A') Then RunSetPassword

Else RunFullScreen;

End;

Поскольку нам нужно создавать небольшое окно предварительного просмотра и полноэкранное окно, их лучше объединить, используя единственный класс окна. Следуя правилам хорошего тона, нам также нужно использовать многочисленные нити. Дело в том, что, во-первых, хранитель не должен переставать работать, даже если что-то "тяжелое" случилось, и, во-вторых, нам не нужно использовать таймер.

Процедура для запуска хранителя на полном экране - приблизительно такова:

Procedure RunFullScreen;

Var

R : TRect;

Msg : TMsg;

Dummy : Integer;

Foreground : hWnd;

Begin

IsPreview := False; MoveCounter := 3;

Foreground := GetForegroundWindow;

While (ShowCursor(False) > 0) do ;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--