RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Вдогонку


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : DmiG
To : ErOs2
Subj : Вдогонку
> Ну, вот такой скрипт у меня фон десктопа меняет:
>
> /* -- Changing desktop background -- */
>
> path = "C:\OS2\BITMAP\DESKBACK\*.bmp"
/*
> timeout = 600
*/
>
> call rxFuncAdd "SysLoadFuncs" , "RexxUtil" , "SysLoadFuncs"
> call SysLoadFuncs
>
/*
> do forever
*/
> rc = SysFileTree( path , "files" , "OF" )
/*
> do i = 1 to files.0
*/
i=random(1, files.0)
> rc=SysSetObjectData("<WP_DESKTOP>","BACKGROUND="||files.i||",N,1,I")
/*
> call SysSleep timeout
> end
> end
*/
>
> А сетап-стринги для различных типов объектов есть в доках к XFolder'у. (XWorkplace). Я там смотрел.
Ага! Вот оно!
Именно это я и хотел сделать, тока с небольшими доработками: типа, читаем ЕА .LastMode, если нет такого, ставим бимап растянутым 1х1, перед загрузкой нового, старому привинчиваем ЕА .LastMode, с информацией и режиме натягивания. А запускать скрипт объектом WPS по расписанию (у меня EBCSheduler).

Sun 24 Nov 2002 01:03 Mozilla/5.0 (OS/2; U; Warp 4.5; en-US; rv:1.1) Gecko/2002082



Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.