Отправлено: 20.02.23 10:02. Заголовок: ShellExecute в МиниГуи
С некоторых пор перестало показываться окно при вызове команды ShellExecute. Раньше автоматом было. Т.е. фокус переходил на проводник. Что нужно сделать, чтобы фокус переходил на проводник ? Вот код:
// Как программно открыть папку и выделить файл? // ShellExecute(Application.Handle, 'OPEN', 'EXPLORER', '/select, ' + path, '', SW_NORMAL) FUNCTION RunExplFile2(cFile)
ShellExecute( 0, "open", "explorer.exe", '/select, ' + cFile, , SW_SHOWNORMAL ) //InKeyGui(5000) - это не помогает.
Отправлено: 20.02.23 16:08. Заголовок: Да на простом пример..
Да на простом примере может и будет работать, только у меня не работает. Путь вот такой длинный: J:\Abonent4.Город\@Город-Sberbank\Export-2023\0156019111_10202810800190000111_200223.txt
У меня на кнопках установлены вызовы других функций через блок кода, примерно так:
Для таких случаев используй преобразование пути с помощью функции _GetShortPathName():
Не помогает... Убрал русские буквы из пути. Думал что из диска J: подключённый через SUBST, но указание явно - тоже не работает, т.е. НЕ ВЫВОДИТ проводник на передний план рабочего стола компа, предыдущее модальное окно на переднем плане.
Отправлено: 20.02.23 17:18. Заголовок: Andrey пишет Что мож..
Andrey пишет
цитата:
Что можно сделать ?
для excel ты делаешь
hWnd := oExcel:hWnd // хендл окна Excel ShowWindow( hWnd, 6 ) // MINIMIZE windows ShowWindow( hWnd, 3 ) // MAXIMIZE windows BringWindowToTop( hWnd ) // a window on the foreground
проделай для explorer.exe, поймав его hWnd через enumwindow() или через pid := ShellExcecuteEx(...) В hmg в примерах или lib был набор ф-й для pid (не могу вспомнить в данный момент)
цитата:
предыдущее модальное окно на переднем плане
Сделай Minimaize этому окну, потом сделаешь Restore, возможно в нем Topmost сильно "заморозился"
Отправлено: 20.02.23 23:41. Заголовок: Пример C:\MiniGU..
Пример C:\MiniGUI\SAMPLES\Advanced\ShellExec При вызове кнопки видно, что окно Хелпа МиниГуи становится после окна программы МиниГуи !!! Эта же программа лежит собранная где-то в 2019 году - Хелпа МиниГуи на переднем плане.
Реализовывал лет 5 назад, только обратную задачу по окну найти процесс, все работает. А в чем сложность протестировать ? там не более 10 строк кода будет всего. Учти только что у одного процесса может быть много окон ( кнопки, к примеру, это тоже окна ) https://learn.microsoft.com/en-us/windows/win32/winmsg/about-window-classes
Отправлено: 04.03.23 10:37. Заголовок: Haz пишет А в чем сл..
Haz пишет
цитата:
А в чем сложность протестировать ?
Что есть в hmg примерах - танцует от hWnd, т.е. для explorer.exe
LOCAL cClass := "CabinetWClass" // класс окна explorer.exe ... nId := ShellExecuteEx( 0, "open", "explorer.exe", '/select, ' + cFile, , SW_SHOWNORMAL ) ... IF !Empty(nId) // запустился и прорисовался aWin := HandlesHbWin( , cClass, .T.) IF ( lRun := Len(aWin) > 0 ) i := 0 h := aWin[1] ? GetWindowThreadProcessId(h, @nThr, @nPid) // вернет Nil ?? i, h, nId, nPid, nThr ^^^ ^^^^ // разные значения
Вопрос от Андрея и меня, как получить hWnd от nId ?
Ведь из оной или разных программ может быть запущено несколько explorer.exe aWin := HandlesHbWin( , cClass, .T.) даст несколько hWnd. Пример тут https://TransFiles.ru/qyyji - внизу кнопка (1) запускает просмотр запущенного, на ней Reset - обновляет список, Excel запускается, в Reset видно - внизу кнопка (2) запускает explorer.exe с new Title и блокирует 2-ой запуск - внизу кнопка (3) останавливает explorer.exe с new Title - вверху кнопка 1) запускает explorer.exe (запустить можно несколько), тут вопрос и возникает (вверху)
PS Мне хватало, на клиентской PC, помечать запущенную прогу, меняя title
t := GetWindowText( h ) SetWindowText( h, t +": "+cFile ) // меняем текст Title
У Андрея RDP есть и такая фишка может не прокатить, или на своем столе он увидит только свой explorer.exe
aWin := EnumWindows() for each hWnd in aWin if hPID == GetWindowThreadProcessID(hWnd) // тут и hWnd и hPID и hProcess можно дополнительно указать титл "Проводник" и ClassName окна "Static" ЧТОБ КНОПКИ ОТСЕЧЬ ? hWnd , hPID, hProcess end END return nil
Отправлено: 04.03.23 19:41. Заголовок: Haz пишет: НЕ ПРОВЕ..
Haz пишет:
цитата:
НЕ ПРОВЕРЯЛ , позже
Проверил , EXPLORER так не выловить ! он как то хитро запускается что ID процесса не выдает корректно Любое другое приложение запускаясь ловится отлично
DO EVENTS ; wApi_Sleep(1000) // ждем прорисовки и форм. Title
IF !Empty(nId) // запустилcя ok! aWin := HandlesHbWin( , cClass, .T.) // снимок ПОСЛЕ IF Len(aWin) > 1 FOR EACH hWnd IN aWin nPos := aScan(aOld, hWnd) IF ( lNew := nPos == 0 ) ; EXIT ENDIF NEXT ELSE lNew := .T. hWnd := aWin[1] ENDIF DO EVENTS ; wApi_Sleep(100) IF lNew i := 0 t := GetWindowText( hWnd ) SetWindowText( hWnd, t +": "+cFile ) // меняем текст Title DO EVENTS ; wApi_Sleep(100) WHILE !cFile $ GetWindowText( hWnd ) .and. i++ < 10 // проверяем Title SetWindowText( hWnd, t +": "+cFile ) DO EVENTS ; wApi_Sleep(100) END ENDIF ENDIF ...
Func Main local hWnd := 0 local aWin := {} local hPid, hProcess local nT, nP, cClassName
hPID := hb_processOpen( "Notepad.exe",,,,.F., @hProcess) hb_idlesleep(1) aWin := EnumWindows() for each hWnd in aWin cClassName := GetClassName( hWnd ) if cClassName == "Notepad" GetWindowThreadProcessID(hWnd, @nT, @nP) if hProcess == nP ? "Вот оно окно , делай что хочешь hWnd = ", hWnd, cClassName end end END
Отправлено: 05.03.23 15:42. Заголовок: Сергей пишет: Ерунд..
Сергей пишет:
цитата:
Ерунда получается, ты прав.
При попытке запуска EXPLORER.EXE управление передается SVCHOST и из него дочерним процессом запускается EXPLORER Поэтому hPID и nProcess имеют значения отличные от получаемых в hb_ProcessOpen() Попытка трассировки ProcessID и ParentProcessID ничего не дает и уходит в WinInit
Остается только твой вариант - перед запуском снимок окон пользователя с Wnd.ClassName = 'CabinetWClass' и отлов нового после запуска.
Отправлено: 05.03.23 23:15. Заголовок: Haz пишет: if cClas..
Haz пишет:
цитата:
if cClassName == "Notepad" GetWindowThreadProcessID(hWnd, @nT, @nP) if hProcess == nP ? "Вот оно окно , делай что хочешь hWnd = ", hWnd, cClassName end end
А если запущено уже несколько Notepad пользователем, то что будет ? Т.е. уже есть открытые Notepad и я запускаю свой. Хочу поменять титул окна, чтобы знать что это мой экземпляр и облом с этим действием. Рассматриваю Notepad в качестве примера.
Отправлено: 05.03.23 23:32. Заголовок: Andrey пишет Хочу по..
Andrey пишет
цитата:
Хочу поменять титул окна, чтобы знать что это мой экземпляр и облом с этим действием.
Облома нет, все работает по схеме, как для explorer.exe выше, т.е. титул окна меняется Скрытый текст
FUNCTION StartNotepad(cFile, cCapt) LOCAL nId, aWin, hWnd, lNew, nPos, aPos, aOld, i, t LOCAL cClass := "Notepad" // класс окна DEFAULT cFile := ".\demo2.prg" DEFAULT cCapt := cFile
aPos := HandlesHbWin( cCapt, cClass, .T.) // снимок ДО для cFile, проверка 2-го запуска
IF Len(aPos) > 0 ; RETURN .F. // уже есть такой ENDIF
aOld := HandlesHbWin( , cClass, .T.) // снимок ДО
nId := ShellExecuteEx( 0, "open", "notepad.exe", cFile, , SW_SHOWNORMAL )
DO EVENTS ; wApi_Sleep(500) // ждем прорисовки и форм. Title
IF !Empty(nId) // запустился ok! aWin := HandlesHbWin( , cClass, .T.) // снимок ПОСЛЕ IF Len(aWin) > 1 FOR EACH hWnd IN aWin nPos := aScan(aOld, hWnd) IF ( lNew := nPos == 0 ) ; EXIT ENDIF NEXT ELSE lNew := .T. hWnd := aWin[1] ENDIF DO EVENTS ; wApi_Sleep(100) IF lNew i := 0 t := GetWindowText( hWnd ) SetWindowText( hWnd, t + cCapt ) // меняем текст Title DO EVENTS ; wApi_Sleep(100) WHILE !cFile $ GetWindowText( hWnd ) .and. i++ < 10 // проверяем Title SetWindowText( hWnd, t + cCapt ) DO EVENTS ; wApi_Sleep(100) END ENDIF ENDIF
RETURN .T.
Вызов, например, такой StartNotepad(".\demo2.hbp", " - my start !")
Отправлено: 06.03.23 00:47. Заголовок: Andrey пишет Только ..
Andrey пишет
цитата:
Только что попробовал, вот результат - титул окна НЕ МЕНЯЕТСЯ :
Смотри на окне Notepad запущенного + смотри в списке процессов на кнопке (1), нажимая кнопку "Reset", можешь задать текст справа внизу в GETBOX "note" и нажать кнопку "Reset". Для фильтра процессов. А то что ты смотришь в логе - так там делать надо, там ничего нет Пример тут https://TransFiles.ru/o72ak Кнопка 4) ... - запуск Notepad.exe PS Текст в GETBOX тебе надо задавать на рус. "блок" Класс для notepad.exe у тебя ? У меня "Notepad" PS2 добавил вывод в log
FUNCTION StartNotepad(cFile, cCapt) ... IF lNew ... END ? procname(), GetWindowText( hWnd ) ENDIF
Отправлено: 06.03.23 09:58. Заголовок: Haz пишет ..
Haz пишет
цитата:
if hProcess == nP ? "Вот оно окно , делай что хочешь hWnd = ", hWnd, cClassName end
Что бы делать, что хочешь, надо, как правило, подождать, дать сформироваться окну и его Title Например у Explorer.exe проскакивают 2-а Title (что я поймал), если не ждать wApi_Sleep(1000), и сразу ставить свой, то не получится контролировать 2-ой свой запуск. Т.е. возврат от ShellExecuteEx() говорит лишь о том, что запуск произошел или нет. Это ремарка
Отправлено: 06.03.23 10:05. Заголовок: Дарю решение в одну строку, но без Титла
все просто , на передний план, но без hWhd И соответственно без операций с окном ( титлы, размер и пр )
SetForegroundWindow(GetDesktopWindow()) hPID := hb_processOpen( "explorer.exe /select," + cFile,,,,.F., @hProcess) // откроет explorer на переднем плане окон // Дальше по тексту //
Отправлено: 06.03.23 10:29. Заголовок: Haz пишет все прост..
Haz пишет
цитата:
все просто , на передний план, но без hWhd И соответственно без операций с окном ( титлы, размер и пр )
Ни разу не нужно было запускать explorer.exe или notepad.exe, как в примерах. А вот с DosBox и консольными старыми clipper программами под ним + vwt подпрограммы - это сколько угодно, даже размеры и позиции окон приходилось ставить. И SetForegroundWindow(GetDesktopWindow()) не на всех 10-ках срабатывал, приходилось minimaize, restore еще делать до того.
приходилось minimaize, restore еще делать до того.
не вопрос , тогда так ( вместо SetForgeroundWindow() - любые действия с хендлом )
Func Main local hWnd := 0 local aWin := {} local hPid, hProcess local cFile := "C:\HmG_PROJECT\Z.CMD" // Здесь свой файл указать local aArray := hb_Atokens( cFile , "\" ) local cText := aArray[Len(aArray)-1] hPID := hb_processOpen( "explorer.exe /select," + cFile,,,,.F., @hProcess) hb_idlesleep(1) aWin := EnumWindows() for each hWnd in aWin if UPPER(GetWindowText(hWnd)) == UPPER( cText ) SetWindowText( hWnd, aArray[Len(aArray)]) // или свой текст SetForegroundWindow(hWnd) // или minimaize, restore end END
Отправлено: 06.03.23 11:05. Заголовок: Haz пишет не вопрос ..
Haz пишет
цитата:
не вопрос , тогда так ( вместо SetForgeroundWindow() - любые действия с хендлом )
Вопросы остаются. cFile := "C:\HmG_PROJECT\Z.CMD". Запуск "explorer.exe /select," + cFile даст в title имя каталога HmG_PROJECT cFile := "C:\HmG_PROJECT\demo.hbp". Запуск "explorer.exe /select," + cFile даст в title имя каталога HmG_PROJECT тоже повторные запуски будут с аналогичным результатом и т.д. Для notepad.exe то же самое, т.е. управления нет и надо добавлять. В примере выше это и показано, есть запуски многократные, есть контролируемые. Т.е. у меня вопросы по GetWindowThreadProcessId(h, @nThr, @nPid) сняты. Спасибо
Отправлено: 07.03.23 23:20. Заголовок: Andrey пишет: как м..
Andrey пишет:
цитата:
как можно узнать по хендлу полный путь запущенной программы
По хендлу чего ? Окна ? Процесса ? Если процесса, самый простой путь через wmi Select * from win32_process . Если хендлу окна, то сначала ищем процесс (как выше писали ) , а потом пять wmi
Отправлено: 08.03.23 10:02. Заголовок: Т.е. нажатая кнопка ..
Т.е. нажатая кнопка на форме тоже отображается в процессах ? Другие кнопки не показываются. Фигня какая то получается. А почему стандартный проводник этого не отображает ?
Все даты в формате GMT
3 час. Хитов сегодня: 86
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет
все просто , на передний план, но без hWhd И соответственно без операций с окном ( титлы, размер и пр ) 
, но кнопку добавлял ты сам ручками 
- участник сейчас на форуме
- участник вне форума