[El Scorpio]

Должностной инструкцией и увольнением особо отличившихся "работничков" по причине полного служебного несоответствия

[ragnar40]

Это не не решение проблемы. Кадровый голод у нас, работников не найти. Как программными средствами избавиться от такой засады?

[mailfannah]

ragnar40, ну а нельзя перед запуском смотреть есть ли программа в списке процессов и если есть, то не запускать?

[ragnar40]

Кто смотреть-то будет? Полуграмотные деревенские телки? Чтобы увидеть, запущена ли программа, не надо в процессы лезть, глаза опусти вниз экрана и всё. Но для них это - темный лес. И все таки - можно ли как-то запретить второй запуск. Тотал Командир ведь имеет такую настройку, почему бы и с 1С такое не провернуть?

[Coutty]

Создайте .cmd (.bat)-файл с таким содержимым:

SET SEARCH=notepad.exe tasklist /fi "imagename eq %SEARCH%" /fo table /nh | find /c /i "%SEARCH%" if %ERRORLEVEL%==1 start notepad.exe

Где вместо notepad.exe нужно указать имя вашей программы. И, видимо, во втором вхождении (там, где start) - полный путь к файлу. И пусть запускают этой cmd'шкой.

Источник:
1. Постановка задачи: http://forum.oszone.net/post-896385-321.html
2. Решение: http://forum.oszone.net/post-896385-322.html

[Petya V4sechkin]

ragnar40, можно в свойствах ярлыка подменить запуск exe-шника на такой vbs-скрипт:

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")

Set colProcesses = objWMIService.ExecQuery( _
    "Select Name From Win32_Process " _
    & "Where Name = '1cv8.exe'")

If colProcesses.Count = 0 Then
  Set objShell = Wscript.CreateObject("Wscript.Shell")
  Set objEnv = objShell.Environment("Process")
  objShell.Run """" + objEnv("ProgramFiles") + "\1cv81\bin\1cv8.exe"""
Else
  MsgBox "Копия программы уже запущена. ", 48, "Внимание"
End If

[ragnar40]

Ерунда какая-то. При запуске не может найти екзешник. Я не программист, я чайник, который комп 2 года назад увидел.

[Petya V4sechkin]

ragnar40, в какой папке exe-шник и как называется?

[ragnar40]

C:\Program files\1cv8\bin\1cv8.exe