Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.22;
Скачать: CL | DM;

Вниз

Как запустить 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 вся ветка

Текущий архив: 2002.04.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
4-70055
Wladimir
2002-02-15 22:38
2002.04.22
Время создания файла.


7-70043
dim2001
2002-01-26 16:20
2002.04.22
Переключиться Eng - Rus


1-69877
Еще один Новичок
2002-04-09 11:24
2002.04.22
Pos() для двоичных данных


3-69707
sysoper
2002-03-27 05:55
2002.04.22
Interbase5,6 and Win2000


3-69698
Рамиль
2002-03-29 20:13
2002.04.22
Проблема открыть