Версия
Version 4.4.6
Задача
Добрый день.
Идея такая, необходимо сделать подмену ярлыка 1С на терминальном сервере для экономии лицензий. Нужно:
1. Проверка доменного пользователя из списка в программе и запуск 1С "1cestart.exe".
2. Если список есть совпадения то дать возможность запустить максимум два клиента 1С "1cestart.exe".
3. Если нет совпадений то возможность запустить только один клиент.
Грубо говоря закрывать второй клиент при повторном открытии
Может кому будет интересно. Проблему решил самостоятельно
Version 4.4.6
Задача
Добрый день.
Идея такая, необходимо сделать подмену ярлыка 1С на терминальном сервере для экономии лицензий. Нужно:
1. Проверка доменного пользователя из списка в программе и запуск 1С "1cestart.exe".
2. Если список есть совпадения то дать возможность запустить максимум два клиента 1С "1cestart.exe".
3. Если нет совпадений то возможность запустить только один клиент.
Грубо говоря закрывать второй клиент при повторном открытии
Сообщение автоматически объединено:
Может кому будет интересно. Проблему решил самостоятельно
Код:
#include <Array.au3>
#include <Process.au3>
#include <WinAPISysWin.au3>
$MAX_COUNT = 2
$START_COMMAND = "C:\Program Files\1cv8\common\1cestart1.exe"
$counter =0
$aWinList =WinList("[CLASS:V8TopLevelFrameSDI]")
$counter = $counter + $aWinList[0][0]
$aWinList =WinList("[CLASS:V8TopLevelFrameTaxiStarter]")
$counter = $counter + $aWinList[0][0]
;MsgBox(64, "Result",$counter)
If $counter < $MAX_COUNT Then
Run($START_COMMAND)
Else
MsgBox(4096,'Внимание', 'Вы не можете запускать больше ' & $MAX_COUNT & ' приложений одновременно')
EndIf
Последнее редактирование: