Изменение имени окна макросом

Автор:R-Style Softlab
Дата:15.01.2007
Просмотров:2036
Скачиваний:629
Оценка:, Оценок - 1
Скачать (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) Копируем макросы из архива

Текст примера

 //Макрос на терминале:

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);

Собственно все.