Как запустить ScreenSaver ?

← →
Fredy © (2002-02-16 23:22) [0]

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

← →
Almaz © (2002-02-19 04:09) [1]

Запустить 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;

Удачи.

Для создания 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.

Как запустить ScreenSaver ? Найти похожие ветки