Есть задача по кнопке из программы выполнить другой ехе (например bank.exe), но если он уже открыт в фоне, то при повторном нажатии на эту же кнопку поднять уже открытый bank.exe а не запускать еще одну копию. Полагаю что надо просто сканировать процессы на входжение имени. Знаю что уже обсуджалось, но найти не могу, ткните носом пожалуйста.

нашел на форуме текст, немного его переделал чтобы в массив писать результат, теперь бы зная id процесса запустить его
автор#Define PROCESS_VM_READ 16
#Define PROCESS_QUERY_INFORMATION 1024
#Define BUF_SIZE 4096
#Define MAX_FILENAME_LEN 255
Declare Integer EnumProcesses In psapi String @ lpidProcess, Integer cb, Integer @ cbNeeded
Declare Integer OpenProcess In kernel32 Integer dwDesiredAccessas, Integer bInheritHandle, Integer dwProcId
Declare Integer OpenProcess In kernel32 Integer dwDesiredAccessas, Integer bInheritHandle, Integer dwProcId
Declare Integer GetModuleFileNameEx In psapi Integer hProcess, Integer hModule, String ModuleName, Integer nSize
Declare Integer CloseHandle In kernel32 Integer lhProcess
Local lcProcListBuf, i, lnBytesReturned, lnPID, lhProcess, lcProcFilenameBuf
lcProcListBuf = Replicate(Chr(0), BUF_SIZE)
lnBytesReturned = 0
DIMENSION aProcess(1)
nnn=0
If EnumProcesses(@lcProcListBuf, BUF_SIZE, @lnBytesReturned) != 0
For i = 1 To lnBytesReturned / 4
lnPID = BUF2DWORD(Substr(lcProcListBuf, 4 * (i - 1) + 1, 4))
lcProcFilenameBuf = padr("<Unknown>", MAX_FILENAME_LEN, Chr(0))
lnFileNameLen = 9
lhProcess = OpenProcess(PROCESS_QUERY_INFORMATION + PROCESS_VM_READ, 0, lnPID)
If lhProcess <> 0
nnn=nnn+1
lnFileNameLen = GetModuleFileNameEx(lhProcess, 0, @lcProcFilenameBuf, MAX_FILENAME_LEN)
= CloseHandle(lhProcess)
DIMENSION aProcess(nnn,3)
aProcess(nnn,1)=lnPID
aProcess(nnn,2)=lhProcess
aProcess(nnn,3)=lcProcFilenameBuf
Endif
* ? Left(lcProcFilenameBuf, lnFileNameLen)
Endfor
Endif
SUSPEND

Function BUF2DWORD
Lparameters tcBuf
Return Asc(Substr(tcBuf, 1,1)) + ;
ASC(Substr(tcBuf, 2,1)) * 256 + ;
ASC(Substr(tcBuf, 3,1)) * 65536 + ;
ASC(Substr(tcBuf, 4,1)) * 16777216

Там по заголовку окна вывод, а не по имени файла или по номеру процесса, уже читал.

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

по заголовку никак если программа свернута

Спасибо, но из свернутого вида не поднимает, просто сообщение вываливает. Пока поставлю Ваш вариант, может еще будут какие-то советы. Реально нужная фишка же не только мне.

А чего определяться? По моему задача кристально понятна. Запущенная фоновая программа может быть как развернута позади текущей, так и свернута. Мне просто нужно при нажатии на кнопку в первой программе либо запустить вторую, если она еще не запущена, либо открыть вторую на передний план с любого состояния, если она уже открыта.

alextashk,

я не сказал что решение ясно, я написал что задача ясна, поэтому прошу помощи в реализации а не воды.

КонецЦикла,

Спасибо, хороший пример для изучения нового, но это уже третий вариант вытаскивания PID, но не решения моей задачи именно по PID или по заголовку окна или названию программы развернуть ее на передний план.

Общими усилиями проблема решена, парни, спасибо за помощь.
авторloWMI = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\.\root\cimv2")
loItems = loWMI.ExecQuery("Select * From Win32_Process")
nPID=0
FOR EACH loItem in loItems
IF loItem.Name = "bank.exe"
nPID=LoItem.ProcessID
ENDIF
ENDFOR
IF nPID>0
SH = CreateObject("WScript.Shell")
SH.AppActivate(nPID)
SH.SendKeys("%+{Enter}")
RELEASE SH
ENDIF

немного ужал
авторloWMI = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\.\root\cimv2")
loItems = loWMI.ExecQuery("Select * From Win32_Process")
FOR EACH loItem in loItems
IF loItem.Name = "bank.exe"
SH = CreateObject("WScript.Shell")
SH.AppActivate(LoItem.ProcessID)
SH.SendKeys("%+{Enter}")
RELEASE SH
ENDIF
ENDFOR

Новая проблема. На сервере в терминалах работают несколько юзеров. Данный метод находит первый попавшийся bank.exe другого юзера. Надо теперь еще и имя юзера как-то учесть.
loItems = loWMI.ExecQuery("Select * From Win32_Process") - туда возвращаются имена пользователя? Я не могу найти как его вытащить.
loItems.csname вытаскиваем имя компа
есть метод в Win32_Process - getowner, но не пому как работает и то ли это что мне надо....

Спасибо, помогли очень. Полный текст такой (анализ ошибок не делал, т.к. он не нужен)
авторloWMI = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\.\root\cimv2")
loItems = loWMI.ExecQuery("Select * From Win32_Process where Name='bank.exe'")
LocShe = CreateObject("WScript.Shell")
nPID=0
FOR EACH loItem in loItems
IF UPPER(loItem.Name) = "BANK.EXE" &&Проверка на всякий случай
NameOfUser = ""
ErrorCode = loItem.GetOwner(NameOfUser)
IF ErrorCode=0 AND ALLTRIM(UPPER(NameOfUser))=ALLTRIM(UPPER(ALLTRIM(SUBSTR(SYS(0),AT('#',SYS(0))+1))))
nPID=LoItem.ProcessID
LocShe.AppActivate(nPID)
LocShe.SendKeys("%+{Enter}")
ENDIF
ENDIF
ENDFOR
IF nPID=0
LocShe.Run('bank.exe',3,0)
ENDIF
RELEASE LocShe

Новый день принес новую проблему. Когда идет запуск в RDP из под админксой учетки - все нормально, сам все проверил - успокоился. Юзеры утром пришли - не запускается.
на строке
ErrorCode = loItem.GetOwner(NameOfUser)
пишет "ole exception error: exception code c0000005 object may be corrupt"

Если вместо
NameOfUser = ""
ErrorCode = loItem.GetOwner(NameOfUser)
делаю
PUBLIC NameOfUser
ErrorCode = loItem.GetOwner(NameOfUser)
то возвращает ответ ErrorCode = 2 - то есть нет доступа и NameOfUser = .T.

но когда ставлю NameOfUser = "" - то вышеуказанная ошибка возникает

Все, добил, немного костылями, но работает, выделенное жирным - изменения
loWMI = GetObject("winmgmts:" + "{impersonationLevel=impersonate}!\\.\root\cimv2")
loItems = loWMI.ExecQuery("Select * From Win32_Process where Name='bank.exe'")
LocShe = CreateObject("WScript.Shell")
nPID=0
FOR EACH loItem in loItems
IF UPPER(loItem.Name) = "BANK.EXE"
PUBLIC NameOfUser
NameOfUser = ""
OLEerror=0
ON ERROR OLEerror=1
ErrorCode = loItem.GetOwner(NameOfUser)
ON ERROR
IF OLEerror=0 AND ErrorCode=0 AND ALLTRIM(UPPER(NameOfUser))=ALLTRIM(UPPER(ALLTRIM(SUBSTR(SYS(0),AT('#',SYS(0))+1))))
nPID=LoItem.ProcessID
LocShe.AppActivate(nPID)
LocShe.SendKeys("%+{Enter}")
ENDIF
RELEASE NameOfUser
ENDIF
ENDFOR
IF nPID=0
LocShe.Run('bank.exe')
ENDIF
RELEASE LocShe
Дело в том, что юзеру нет доступа к чужим процессам, я просто скипаю ошибки