RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Ответить на сообщение
Имя:
e-mail:
FIDO:
Home page:
сохранить данные о вас
Тема:
> Suxx!!! > > Нету встроенной SysQueryObjectData! Пришлось WPTools юзать... > > А у него прикол (пример из ридми): > > call RxFuncAdd 'WPToolsLoadFuncs', 'WPTOOLS', 'WPToolsLoadFuncs' > call WPToolsLoadFuncs > > iRetco = WPToolsQueryObject("<WP_DESKTOP>", "szClass", "szTitle", "szSetupString", "szLocation") > if Iretco Then do > say 'Class name :' szclass > say 'Title :' sztitle > say 'Location :' szlocation > say 'Setupstring:' szsetupstring > end > else > say 'Unable to return object settings for <WP_DESKTOP>' > > Этот код не работает (с ObjectREXX)! Говорит REX0043. > А так сделал я: > > Call RxFuncAdd 'SysQueryObject', 'WPTOOLS', 'WPToolsQueryObject'; > > RC = SysQueryObject(ObjectID, , , "szSetupString"); > > И это работает! Мистика какая то... > > А ещё SysGetEA(Files.i, '.TileMode', 'Mode') для любого файла возвращает 0... :-S > Закинул на хоббес. > RandomBackgrounds.zip
_, _, _,
/ \ (_ / ~ )
\ / , ) / /
~ ~ ~~~
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.