Форум » [x]Harbour » Запуск браузера Microsoft EDGE из Harbor программы » Ответить
Запуск браузера Microsoft EDGE из Harbor программы
taras56: Все браузеры запускаются а этот нет ищу путь , вот он C:\WINDOWS\SYSTEMAPPS\MICROSOFT.MICROSOFTEDGE_8WEKYB3D8BBWE\MICROSOFTEDGE.EXE и запускаю hb_ProcessOpen("C:\WINDOWS\SYSTEMAPPS\MICROSOFT.MICROSOFTEDGE_8WEKYB3D8BBWE\MICROSOFTEDGE.EXE +url") и тишина
Ответов - 4
PSP: А вот типа так если: "%windir%\explorer.exe microsoft-edge:адрес_сайта"
Andrey: Можно и так: [pre2]cUrl := "http://clipper.borda.ru/?1-4-0-00001302-000-0-1-1579796685" cRun := "explorer.exe" ShellExecute( 0, "open", cRun, cUrl ) [/pre2]
MIKHAIL: Andrey пишет: ShellExecute( 0, "open", cRun, cUrl ) а что нужно добавить при сборке что бы функцию эту включить в терминалке ?
Andrey: MIKHAIL пишет: а что нужно добавить при сборке что бы функцию эту включить в терминалке ? [pre2] // ------ смотри #include "winuser.h" /* * ShowWindow() Commands */ #define SW_HIDE 0 #define SW_SHOWNORMAL 1 #define SW_NORMAL 1 #define SW_SHOWMINIMIZED 2 #define SW_SHOWMAXIMIZED 3 #define SW_MAXIMIZE 3 #define SW_SHOWNOACTIVATE 4 #define SW_SHOW 5 #define SW_MINIMIZE 6 #define SW_SHOWMINNOACTIVE 7 #define SW_SHOWNA 8 #define SW_RESTORE 9 #define SW_SHOWDEFAULT 10 #define SW_FORCEMINIMIZE 11 #define SW_MAX 11 FUNCTION MAIN() LOCAL cRun := "explorer.exe" , cParam := "/e, /select, Z:\MiniGui\readme.txt" ? " Запуск: ",cRun ? " Параметры: ",cParam ShellExecute(GetDeskTopWindow(), 'open',cRun, cParam, "" , SW_SHOWNORMAL) wait RETURN NIL /////////////////////////////////////////////////////// #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> #include <shlobj.h> HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (LONG)GetDesktopWindow() ); } HB_FUNC( SHELLEXECUTE ) { hb_retnl( (LONG) ShellExecute( (HWND) hb_parnl( 1 ) , (LPCSTR) hb_parcx( 2 ) , (LPCSTR) hb_parcx( 3 ) , ISNIL(4) ? NULL : (LPCSTR) hb_parcx( 4 ) , (LPCSTR) hb_parcx( 5 ) , hb_parni( 6 ) ) ) ; } #pragma ENDDUMP [/pre2]
полная версия страницы