Изменение имени окна макросом
Скачать (rar-файл; Размер - 419)Обсудить в форуме
Описание
Давняя мечта многих клиентов.
Вот простенький пример реализации, не промышленный вариант, а в качестве идеи.
Для больших банков можно автоматизировать процесс установки необходимых компонент.
Идея:
RSL-OLE-Win 32 API
1) Настраиваем работу в 3-х звенке, как под работу "Инструмент для создания универсальных отчетов" (or_rep_h.mac)
2) Устанавливаем на машину пользователя компоненту dynwrap.dll (краткое описание http://www.script-coding.info/dynwrap.html , первоисточник http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm)
3) Копируем макросы из архива
Вот простенький пример реализации, не промышленный вариант, а в качестве идеи.
Для больших банков можно автоматизировать процесс установки необходимых компонент.
Идея:
RSL-OLE-Win 32 API
1) Настраиваем работу в 3-х звенке, как под работу "Инструмент для создания универсальных отчетов" (or_rep_h.mac)
2) Устанавливаем на машину пользователя компоненту dynwrap.dll (краткое описание http://www.script-coding.info/dynwrap.html , первоисточник http://ourworld.compuserve.com/homepages/Guenter_Born/WSHBazaar/WSHDynaCall.htm)
3) Копируем макросы из архива
Текст примера
//Макрос на терминале: IMPORT rslx; var Api; Macro SetTitle(Title); if (Api == null) Api = ActiveX ("DynamicWrapper", null, true); end; Api.Register ("USER32.DLL", "GetForegroundWindow", "f=s", "r=l"); Api.Register ("USER32.DLL", "SetWindowText", "i=ls", "f=s", "r=l"); Api.SetWindowText(Api.GetForegroundWindow(),Title); End; //Макрос на сервере: Import rsexts; Var TitleS = "С праздниками!!"; CallRemoteRsl("WinName.mac","SetTitle",TitleS); Собственно все.