Что нового

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

koks0017

Новичок
Сообщения
53
Репутация
0
Версия
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
 
Последнее редактирование:
Верх