Скачать: CL | DM;

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)
Ваш код только запустит заставку. Автору требовалось другое.

---

← →
Diamond Cat ©   (2002-06-14 23:46) [5]

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

---

← →
anod ©   (2002-06-15 01:04) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c