screensaver

← →
kidman (2002-06-12 16:12) [0]

Привет всем знатокам!
Проблема: Имеется меню со списком заставок (лабиринт, метаморфозы, летающие предметы........), как мне выбрав одну, сделать её активной. (примерно тоже самое, когда на вкладке "заставка" в свойствах экрана пользователь выбирает нужную и нажимает "применить").
Заранее благодарен.

← →
[BAD]Angel © (2002-06-12 16:43) [1]

Сформулируй вопрос поконкретнее!

← →
Song © (2002-06-12 16:58) [2]

procedure InstallScreenSaver(const FileName: string);
begin
{ Set this screensaver as default screensaver and open the properties dialog}
ShellExecute(Application.Handle, "open", PChar("rundll32.exe"),
PChar("desk.cpl,InstallScreenSaver " + FileName), nil, SW_SHOWNORMAL);
end;

← →
Diamond Cat © (2002-06-13 00:44) [3]

или sendmessage(handle,wm_syscommand,SC_SCREENSAVE,0)

← →
Song © (2002-06-13 08:26) [4]

2Diamond Cat © (13.06.02 00:44)
Ваш код только запустит заставку. Автору требовалось другое.

2 Song мда, не внимательно прочитанный вопрос пораждает неправильные ответы, ну и ладно :о)

2Song
По-моему можно просто запустить файл с заставкой без rundll32

screensaver Найти похожие ветки