Есть задача по кнопке из программы выполнить другой ехе (например 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