Форум: "WinAPI";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
ВнизКак запустить 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;
Удачи.
← →
MetallAdm (2002-02-19 19:40) [2]Для создания 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.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c