/
MadDAD
/
alterplast
Обзор
Документация
Войти
/
MadDAD
/
alterplast
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
OpenConf_Scripts/SetWinCaption.vbs
32 строки
888 B
trdm
24 мар 2017, 12:42
24 мар 2017, 12:42
988c847
Код
Авторство
О чём код?
' ���� - trdm (c) 2004 ' ' ������������� ��������� ��������� ���� � ���� "�����������p - (<������� ���� ������>)" ' �������, ����� ������� ����� ��������������. ' ' artbear ������ ����� �� �� ����� ' ' 'TimerWindowText = 0 'Sub StartChangeWindowText() ' StopChangeWindowText ' TimerWindowText = CfgTimer.SetTimer(3000, False) 'End Sub ' 'Sub StopChangeWindowText() ' If TimerWindowText <> 0 Then CfgTimer.KillTimer TimerWindowText 'End Sub ' ' 'Sub Configurator_OnTimer(timerID) ' If timerID = TimerWindowText Then ' Set pMainWnd = Windows.MainWnd ' pCaption = pMainWnd.Caption ' IF InStr(1,pCaption,"������������")>0 Then ' pCaption = "�����������p - (" & IBDir & ")" ' pMainWnd.Caption = pCaption ' End If ' End If 'End Sub 'StartChangeWindowText Windows.MainWnd.Caption = "������������ - < " & IBDir & " >" ' artbear