| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как запустить ScreenSaver ? [D5, Win95/98]

Fredy ©   (2002-02-16 23:22:00) 

Не могли бы вы привести пример как запустить ScreenSaver, при
чем с установкой своего пароля.

---

MetallAdm   (2002-02-19 19:40:00) [1]

Для создания Screen Saver:
A) В проектном файле (* .dpr) напишите {$D SCRNSAVE <saver name>}
после Uses;

B) На главной форме выключите Border и иконки. Установите свойства
Left и Top в 0, WindowState в wsMaximize.

C) В обработчике события OnCreate, установите Application.OnMessage
на процедуру деактивации Screen saver. Установите Applicati-
on.OnIdle на любую процедуру для рисования на экране.

D) В обработчике OnCreate должна проверяться командная строка на на-
личие ключей /c и /s. Эти параметры определяют, нужно ли запус-
кать сам Screen Saver или его конфигурацию (/c - конфигурация).

E) Скомпилируйте программу и переименуйте из .exe в .scr; поместите
файл в каталог Windows - Screen Saver должен появиться на панели
управления (Control Panel).

Это я Процитировал вот где видел непомню
И Вот Еще Примерчик !!

Begin
LoadSettings;
If ParamCount > 0 Then
Begin
If Length(ParamStr(1)) = 1 Then
Command := ParamStr(1)[1]
Else Command := ParamStr(1)[2];
Case Command Of
"C", "c": RunSettings;
"P", "p": RunPreview;
"A", "a": RunSetPassword;
"S", "s": RunFullScreen;
End;
End Else RunSettings;
End.

---

Almaz   (2002-02-19 04:09:00) [2]

Запустить ScreenSaver можно так:

var
Buffer: array [0..MAX_PATH] of Char;
begin
GetPrivateProfileString("boot", "SCRNSAVE.EXE", "", Buffer,
SizeOf(Buffer), "SYSTEM.INI");

// Если нужно просто запустить ScreenSaver, то
WinExec(PChar(Buffer + " /s"), SW_NORMAL);

// Если нужно изменить пароль, то
WinExec(PChar(Buffer + " /a"), SW_NORMAL);

end;

Удачи.

---

Наверх