| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
screensaver [D5, Win95/98, WinME, Win2k]
kidman © (2002-06-12 16:12:00)Привет всем знатокам!
Проблема: Имеется меню со списком заставок (лабиринт, метаморфозы, летающие предметы........), как мне выбрав одну, сделать её активной. (примерно тоже самое, когда на вкладке "заставка" в свойствах экрана пользователь выбирает нужную и нажимает "применить").
Заранее благодарен.
anod (2002-06-15 01:04:00) [1]2Song
По-моему можно просто запустить файл с заставкой без rundll32
Diamond Cat (2002-06-14 23:46:00) [2]2 Songмда, не внимательно прочитанный вопрос пораждает неправильные ответы, ну и ладно :о)
Song (2002-06-13 08:26:00) [3]2Diamond Cat © (13.06.02 00:44)
Ваш код только запустит заставку. Автору требовалось другое.
Diamond Cat (2002-06-13 00:44:00) [4]или sendmessage(handle,wm_syscommand,SC_SCREENSAVE,0)
Song (2002-06-12 16:58:00) [5]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;
[BAD]Angel (2002-06-12 16:43:00) [6]Сформулируй вопрос поконкретнее!
| |
