Текущий архив: 2002.08.19;
Скачать: 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 вся ветка
Текущий архив: 2002.08.19;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
