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


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : DmiG
To : DmiG
Subj : Вдогонку
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

Sun 24 Nov 2002 03:58 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.