Проверка запуска 1С

[koks0017]

Версия
Version 4.4.6

Задача
Добрый день.
Идея такая, необходимо сделать подмену ярлыка 1С на терминальном сервере для экономии лицензий. Нужно:
1. Проверка доменного пользователя из списка в программе и запуск 1С "1cestart.exe".
2. Если список есть совпадения то дать возможность запустить максимум два клиента 1С "1cestart.exe".
3. Если нет совпадений то возможность запустить только один клиент.
Грубо говоря закрывать второй клиент при повторном открытии

Сообщение автоматически объединено: 24 Окт 2022

Может кому будет интересно. Проблему решил самостоятельно

#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