Как запуcкать приложения без использования _

Форум » [x]Harbour » Как запуcкать приложения без использования __Run » Ответить

Как запуcкать приложения без использования __Run

SkyNET: Здравствуйте ! Подскажите пожалуйста, как можно запустить приложение не используя командную строку ?

Ответов - 72, стр: 1 2 3 4 All

gfilatov: SkyNET пишет: как можно запустить приложение С помощью функции ShellExecute() Универсальный пример: function RunExternal( cCmd, cVerb, cFile ) local lRet := .t. #ifdef __CLIPPER__ lRet := SwpRunCmd( cCmd, 0, '', '' ) #endif #ifdef __HARBOUR__ if cVerb <> nil ShellExecute( GetDeskTopWindow(), cVerb, cFile, , , 1 ) else __Run( cCmd ) endif #endif return lRet

Andrey: gfilatov пишет: ShellExecute( GetDeskTopWindow(), cVerb, cFile, , , 1 ) А где взять функцию GetDeskTopWindow() для хХарбора отдельно ? И что за параметр cVerb ? А вообще-то лучше привести примеры вызова этой функции ...

gfilatov: Andrey пишет: где взять эту функцию HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (HWND)GetDesktopWindow() ); }

Andrey: Я вообще-то не силен в С и поставил так: #pragma BEGINDUMP // из минигуи #include <windows.h> #include <hbapi.h> #include <shlobj.h> HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (HWND)GetDesktopWindow() ); } #pragma ENDDUMP Выдает ошибку : Error E2342 test3.prg 36: Type mismatch in parameter 'lNumber' (wanted 'long', got 'HWND__ *') in function HB_FUN_GETDESKTOPWINDOW *** 1 errors in Compile *** Где править ?

gfilatov: Andrey пишет: Где править ? HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (LONG)GetDesktopWindow() ); }

Andrey: Нет функции ShellExecute() в чистом хХарборе ! Пришлось цеплять what32.lib и заработало ... А без этой библы обойтись можно ?

gfilatov: Andrey пишет: Нет функции ShellExecute() 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 ) ) ) ; }

Andrey: Получилось , заработало !!! А где можно посмотреть синтаксис этой функции ? В хелпе по хХарбору нет. Методом проб и смотря здесь на форуме получил для себя образцы: #define SW_SHOWNORMAL 1 - а за что этот параметр отвечает ? ShellExecute(GetDeskTopWindow(), 'open', 'myHelp.Chm' , , , SW_SHOWNORMAL) ShellExecute( GetDeskTopWindow(), "open", "notepad.exe", "test5.prg" , , 1 )

gfilatov: Andrey пишет: где можно посмотреть синтаксис этой функции ? Документация WinAPI ShellExecute Function Performs an operation on a specified file. Syntax HINSTANCE ShellExecute( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ); Parameters hwnd [in] Handle to the owner window used for displaying a user interface (UI) or error messages. This value can be NULL if the operation is not associated with a window. lpOperation [in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular file or folder. Generally, the actions available from an object's shortcut menu are available verbs. For more information about verbs and their availability, see Object Verbs. See Extending Shortcut Menus for further discussion of shortcut menus. The following verbs are commonly used. edit Launches an editor and opens the document for editing. If lpFile is not a document file, the function will fail. explore Explores the folder specified by lpFile. find Initiates a search starting from the specified directory. open Opens the file specified by the lpFile parameter. The file can be an executable file, a document file, or a folder. print Prints the document file specified by lpFile. If lpFile is not a document file, the function will fail. NULL For systems prior to Microsoft Windows 2000, the default verb is used if it is valid and available in the registry. If not, the "open" verb is used. For Windows 2000 and later systems, the default verb is used if available. If not, the "open" verb is used. If neither verb is available, the system uses the first verb listed in the registry. lpFile [in] Pointer to a null-terminated string that specifies the file or object on which to execute the specified verb. To specify a Shell namespace object, pass the fully qualified parse name. Note that not all verbs are supported on all objects. For example, not all document types support the "print" verb. lpParameters [in] If the lpFile parameter specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb that is to be invoked. If lpFile specifies a document file, lpParameters should be NULL. lpDirectory [in] Pointer to a null-terminated string that specifies the default directory. nShowCmd [in] Flags that specify how an application is to be displayed when it is opened. If lpFile specifies a document file, the flag is simply passed to the associated application. It is up to the application to decide how to handle it. SW_HIDE Hides the window and activates another window. SW_MAXIMIZE Maximizes the specified window. SW_MINIMIZE Minimizes the specified window and activates the next top-level window in the z-order. SW_RESTORE Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window. SW_SHOW Activates the window and displays it in its current size and position. SW_SHOWDEFAULT Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window. SW_SHOWMAXIMIZED Activates the window and displays it as a maximized window. SW_SHOWMINIMIZED Activates the window and displays it as a minimized window. SW_SHOWMINNOACTIVE Displays the window as a minimized window. The active window remains active. SW_SHOWNA Displays the window in its current state. The active window remains active. SW_SHOWNOACTIVATE Displays a window in its most recent size and position. The active window remains active. SW_SHOWNORMAL Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time. Return Value Returns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise. The following table lists the error values. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. The only thing that can be done with the returned HINSTANCE is to cast it to an int and compare it with the value 32 or one of the error codes below.

Andrey: Блин, с моим английским буду разбираться долго.... Так бы сразу и сказал, что искать в WinAPI нужно ....

Andrey: Ура, нашел на нашем языке...... Функция ShellExecute модуль ShellAPI Группа ссылок: Диски, Папки и Файлы Описание: function ShellExecute(hWnd: HWND; Operation, FileName, Parameters, Directory: PChar; ShowCmd: Integer): HINST; Функция может открыть или напечатать определенный файл. Исполняет как Windows-приложения так и открывает файлы-документы. Например с файлами типа ".txt" связан Блокнот "Notepad.exe" и запуск файла "my.txt" приведет к тому, что будет запущен Блокнот и в него будет передан параметр с именем файла. Также с помощью этой функци можно в проводнике открыть папку. Параметры: hWnd: Хендл родителя запускаемого приложения. Operation: Строка определяющая команду для исполнения. Может содержать: "open" - открыть файл определенный параметром FileName. "print" - напечатать файл определенный параметром FileName. "explore" - открыть папку определенную параметром FileName. Если параметр Operation равен nil, то по умолчанию выполняется операция "open". FileName: Определяет имя файла или папки для открытия или печати. Функция может запускать файл на исполнение или документ на печать. Parameters: определяет параметры передаваемые при запуске исполняемого приложения. Бессмысленно его использовать при запуске документа. Параметр можеть быть равен Nil. Directory: опеределяет каталог по умолчанию(рабочий каталог). Получить\установить можно с помощью функций GetCurrentDirectory, SetCurrentDirectory. ShowCmd: определяет режим открытия файла. См. константы открытия\показа SW_. Возвращаемые значения Функция возвращает Хендл открытого приложения или сервера DDE. Возвращаемое значение должно быть больше 32. В противном случае это ошибка: 0 - Системе не хватает памяти, выполняемый файл испорчен или нехватает ресурсов. ERROR_FILE_NOT_FOUND - файл не найден. ERROR_PATH_NOT_FOUND - путь не найден. ERROR_BAD_FORMAT - .EXE-Файл неверен (не-Win32.EXE или ошибка в .EXE). SE_ERR_ACCESSDENIED - Операционная Система отвергла доступ к файлу. SE_ERR_ASSOCINCOMPLETE - неправильная или неполная ассоциация с файлом. SE_ERR_DDEBUSY - транзакция DDE не может завершаться поскольку были запущены другие транзакции. SE_ERR_DDEFAIL - транзакция DDE потерпела неудачу. SE_ERR_DDETIMEOUT - транзакция DDE не могла завершаться поскольку запрос несинхронизированный. SE_ERR_DLLNOTFOUND - динамическая библиотека(.DLL) не обнаружена. SE_ERR_FNF - файл не найден. SE_ERR_NOASSOC - нет приложения ассоцированного с данным типом файла. SE_ERR_OOM - недостаточно памяти для завершения операции. SE_ERR_PNF - путь не найден. SE_ERR_SHARE - разделение(shared) файла неверно. См. также: FindExecutable, ShellExecuteEx Функция находится в файле shell32.dll

Andrey: И еще про окна: Константы состояния окна при открытии\показе. Группа ссылок: Окна SW_HIDE - Прячет окно и переводит в активное состояние другое окно. SW_MINIMIZE - Минимизирует окно и активизирует окно верхнего уровня в списке менеджера окон. SW_RESTORE - Действует так же, как и SW_SHOWNORMAL. SW_SHOW - Активизирует окно и выводит его в текущей позиции и текущего размера. SW_SHOWDEFAULT - Активизирует окно и выводит его с использованием текущих умолчаний. SW_SHOWMAXIMIZED - Активизирует окно и выводит его с максимально размером. SW_SHOWMINIMIZED - Активизирует окно и выводит его в виде пиктограммы. SW_SHOWMINNOACTIVATE - Выводит окно как пиктограмму; бывшее активныь в данный момент окно остается активным. SW_SHOWNA - Выводит окно с учетом его состояния в данный момент; активное в данный момент окно остается активным. SW_SHOWNOACTIVATE - Выводит окно в его прежней позиции и прежнего размера; активное в данный момент окно остаета активным. SW_SHOWNORMAL - Активизирует окно и выводит его на экран. Если окно было увеличено или уменьшено до пиктограммы, то система Windows восстановит начальное положение и размер окна. SW_SHOWSMOOTH - Выводит окно так, чтобы оно меньше всего перекрывалось с другими окнами.

Andrey: Спасибо Григорий !!! Кому нужно, привожу пример полностью (на чистом хХарборе): скопировать в файл test4.prg // компилировать без библиотеки what32.lib // ------ смотри #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() //ShellExecute(GetDeskTopWindow(), 'open', 'myHelp.Chm' , '', '', SW_SHOWNORMAL) ShellExecute(GetDeskTopWindow(), 'open', "notepad.exe", "test4.prg", '', SW_SHOWMAXIMIZED) ShellExecute(GetDeskTopWindow(), 'explore', CurDrive()+":"+DirName(), , , SW_SHOWNORMAL) RunExternal( "","open","notepad.exe", "test4.prg") wait RETURN NIL /////////////////////////////////////////////////////// function RunExternal( cCmd, cVerb, cFile, cPar4 ) local lRet := .t. #ifdef __CLIPPER__ lRet := SwpRunCmd( cCmd, 0, '', '' ) #endif #ifdef __HARBOUR__ if cVerb <> nil ShellExecute( GetDeskTopWindow(), cVerb, cFile, cPar4 , , 1 ) else __Run( cCmd ) endif #endif return lRet /////////////////////////////////////////////////////////// #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

Andrey: А как сделать запуск, если строка запуска слишком длинная ? Типа: C:\ABON\UTIL\AbonentCheck.exe C:\ABON\TEMP\chk4.dbf C:\ABON\TEMP\chk4_frm.dbf C:\ABON\TEMP\tarif.dbf Приходиться делать бат-файл, запускаеть его через ShellExecute(GetDeskTopWindow(), 'open', "C:\ABON\myrun.bat", "", '', SW_HIDE) а потом удалять этот бат-файл. А по другому нельзя ?

Andrey: Спасибо, сам разобрался ..... ShellExecute(GetDeskTopWindow(), 'open', "C:\ABON\UTIL\AbonentCheck.exe", "C:\ABON\TEMP\chk4.dbf C:\ABON\TEMP\chk4_frm.dbf C:\ABON\TEMP\tarif.dbf ", '', SW_HIDE)

Andrey: Проблема с запуском BAT-файла, процесс стартует скрытным и никак не виден на экране !!! Дело в том что я запускаю процесс архивации, а он не виден на экране.... А в Диспечере задач он запускается и потом делает архив.... Как можно исправить ??? // ------ смотри #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 cFile cFile := CurDrive()+":"+DirName()+"\backup_db.bat" ShellExecute(GetDeskTopWindow(), 'open',cFile, "", "" , , 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 Сам backup_db.bat: @echo off U:\UTILI\rar.exe a -m5 -r -dh C:\ARHIV\arx_2008.10.06.rar U:\MyProg\*.* U:\UTILI\rar.exe a -m5 -r -dh C:\ARHIV\arx_2008.10.06.rar C:\MyProg\*.* echo . echo . echo =============== АРХИВИРОВАНИЕ ЗАКОНЧЕНО ============================ echo . echo . echo ===== АРХИВ-БД создан в папке ==== C:\ARHIV\arx_2008.10.06.rar

Loach: Извиняйте, а почему не пользоваться для архивации встроенным в xHarobour зипом (hbzip.lib в контрибах) ? Тогда и с батником проблем не будет.

Andrey: Кроме ZIP'a есть еще вызов батников. А их тогда как вызывать. Это в качестве примера, чтоб разобраться с CMD....

Петр: WAPI функция ShellExecute принимает в качестве аргументов 6 параметров, а вы, что передаете ShellExecute(GetDeskTopWindow(), 'open',cFile, "", "" , , SW_SHOWNORMAL)

Andrey: Семён Семёнович ...... уже склероз !!! Спасибо Петр ! Всегда так бывает, все баги на поверхности лежат .....

Лукашевский: Andrey пишет: Ура, нашел на нашем языке...... Где нашёл? Поделись на aynn[at]li.ru

Andrey: Да не помню где взял... Давай адрес - вышлю ..

Лукашевский: Andrey пишет: Давай адрес - вышлю .. Так написан адрес-то! Или тебя [at] смутило?

Andrey: Лукашевский пишет: Или тебя [at] смутило? Смутило ! Это на каком языке ? aynn@li.ru - не прокатило !

Лукашевский: Andrey пишет: aynn@li.ru - не прокатило ! Очень странно... Сегодня мне отправляли письмо на этот ящик, я его получил. Может, ты чего не так пишешь? Смотри в uppercase: AYNN@LI.RU

Andrey: Файлы опубликованы: http://files.mail.ru/FCT0WW Файлы будут храниться до 10 июня 2009 года, каждое скачивание файлов продлевает их срок хранения еще на 5 дней.

Urri: Добрый день. Подскажите, а можно ли затормозить выполнение программы до того момента, пока то, что вызывалось ShellExecute, завершит свою работу?

Andrey: Один из вариантов: 1) Создать файл, любой хоть текстовый... (например exit.txt) 2) Вызвать ShellExecute() 3) Пока существует файл exit.txt программа не работает.... Можно повесить табличку типа: Работайте с программой такой-то... 4) А из программы вызываемой ShellExecute() удалите файл exit.txt 5) И переключите фокус на предыдущую программу.

Sergey Spirin: Подскажите, а можно ли затормозить выполнение программы до того момента, пока то, что вызывалось ShellExecute, завершит свою работу? На Delphi это делается следующим образом: function WinExec32AndWait(const Cmd: String; const CmdShow: Integer): Cardinal; var StartupInfo: TStartupInfo; ProcessInfo: TProcessInformation; begin Result := Cardinal($FFFFFFFF); FillChar(StartupInfo, SizeOf(TStartupInfo), #0); StartupInfo.cb := SizeOf(TStartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW; StartupInfo.wShowWindow := CmdShow; if CreateProcess(nil, PChar(Cmd), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo) then begin WaitForInputIdle(ProcessInfo.hProcess, Infinite); if WaitForSingleObject(ProcessInfo.hProcess, Infinite) = WAIT_OBJECT_0 then begin if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then Result := Cardinal($FFFFFFFF); end; CloseHandle(ProcessInfo.hThread); CloseHandle(ProcessInfo.hProcess); end; end; Один в один переведите в С-синтаксис и все.

Urri: Не сложилась у меня дружба с Delphi, с С тоже не очень, так что спасибо за совет, которій мне не удастся воплотить в жизнь

Pasha: #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" HB_FUNC( EXECANDWAIT ) { char * szProg = hb_parc(1); int iShow = hb_parni(2); LONG lResult = -1; STARTUPINFO si; PROCESS_INFORMATION proc; memset( &si, 0, sizeof( si ) ); si.cb = sizeof( si ); si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = iShow; if( CreateProcess(NULL, szProg, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) ) { WaitForInputIdle(proc.hProcess, INFINITE ); if( WaitForSingleObject( proc.hProcess, INFINITE ) == WAIT_OBJECT_0 ) { if( ! GetExitCodeProcess(proc.hProcess, (LPDWORD) &lResult ) ) lResult = -1; } CloseHandle(proc.hThread); CloseHandle(proc.hProcess); } hb_retnl( lResult ); } #pragma ENDDUMP Извини, не проверял (с)

Sergey Spirin: Urri пишет: так что спасибо за совет, которій мне не удастся воплотить в жизнь Pasha пишет: HB_FUNC( EXECANDWAIT ) { Ну, я надеялся, что с переводом вам помогут Паш, у меня, правда есть одно небольшое примечание: Тип Cardinal в дельфях это DWORD, поэтому, вообще говоря, $FFFFFFFF - это не -1, а 4294967295 К тому же в GetExitCodeProcess второй параметр идет указателем, поэтому, скорее всего, неявного приведения типов здесь не будет. То есть, результат может оказаться другим числом. Если я правильно понимаю LONG используется, потому что нельзя вернуть DWORD? Если так, то, может быть, несколько лучше будет так: Добавить еще переменную: DWORD dResult = 0хFFFFFFFF; В GetExitCodeProcess использовать ее: GetExitCodeProcess(proc.hProcess, (LPDWORD) &dResult ) ) Ну и перед возвратом - hb_retnl( lResult ); сделать явное присвоение: lResult = dResult;

Pasha: С учетом исправлений Сергея, функция будет выглядеть так: HB_FUNC( EXECANDWAIT ) { char * szProg = hb_parc(1); int iShow = hb_parni(2); DWORD dResult = 0хFFFFFFFF; LONG lResult; STARTUPINFO si; PROCESS_INFORMATION proc; memset( &si, 0, sizeof( si ) ); si.cb = sizeof( si ); si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = iShow; if( CreateProcess(NULL, szProg, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) ) { WaitForInputIdle(proc.hProcess, INFINITE ); if( WaitForSingleObject( proc.hProcess, INFINITE ) == WAIT_OBJECT_0 ) { if( ! GetExitCodeProcess(proc.hProcess, (LPDWORD) &dResult ) ) dResult = 0хFFFFFFFF; } CloseHandle( proc.hThread ); CloseHandle( proc.hProcess ); } lResult = (LONG) dResult; hb_retnl( lResult ); } Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ?

Петр: Тип Cardinal в Pascal - это unsigned int или unsigned long в C или DWORD в терминологии Microsoft. Для того чтобы вернуть unsigned long необходимо использовать Harbour API функцию hb_retnint без всякого приведения и боязни получить неправильный результат. Pasha пишет: Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ? Я использую моношириннный шрифт + цитата

Sergey Spirin: Петр пишет: Для того чтобы вернуть unsigned long необходимо использовать Harbour API функцию hb_retnint без всякого приведения Ну, если можно вернуть ulong, то, конечно, его и надо возвращать Хотя, взглянув на объявление hb_retnint догадаться об этом трудно (возможно у меня старенькая версия харбура, и тем более я не С-шник). Например в hbapi.h: [pre2] extern HB_EXPORT void hb_retnl( long lNumber );/* returns a long number */ extern HB_EXPORT void hb_retnint( HB_LONG lNumber );/* returns a long number */ [/pre2] Как видим даже комменты одинаковые, а в определении HB_LONG: [pre2] typedef LONG HB_LONG;[/pre2] ?

Pasha: В харборе тип данных NUMERIC - только знаковый. Неважно, как описана переменная в С-коде, на уровне prg она будет всегда signed. Внутренний фомат при этом может быть разным: 16/32/64-битовое целое, или double

Петр: Sergey Spirin пишет: Как видим даже комменты одинаковые, а в определении HB_LONG: typedef LONG HB_LONG; О комментариях - без комментариев HB_LONG в зависимости от условий принимает значение [pre2]#if defined( HB_CLIPPER_INT_ITEMS ) .. typedef LONG HB_LONG; typedef ULONG HB_ULONG; .. #elif !defined( HB_LONG_LONG_OFF ) && ULONG_MAX == UINT_MAX .. typedef LONGLONG HB_LONG; typedef ULONGLONG HB_ULONG; #else .. typedef LONG HB_LONG; typedef ULONG HB_ULONG; .. #endif [/pre2] При сборке Harbour по умолчанию HB_LONG_LONG_OFF не используется (как и HB_CLIPPER_INT_ITEMS). Для С компиляторов под Win ULONG_MAX == UINT_MAX. К примеру, можно посмотреть для bcc (_lim.h) #define UINT_MAX ULONG_MAX /* maximum unsigned int value */ Т.е. HB_LONG - это не long или LONG, а LONGLONG. LONGLONG в зависимости от компилятора и платформы это signed long long или __int64 и может принимать значение от –9,223,372,036,854,775,808 до 9,223,372,036,854,775,807. Поэтому этот тип данных можно спокойно использовать для возврата данных из диапазона 0L - (ULONG) ~0L

Sergey Spirin: Петр пишет: HB_LONG в зависимости от условий принимает значение.... Ok Чтож, будем знать теперь, что int в названии функции не просто int, а целый Int64, да и HB_LONG не просто long, а по-long-ее будет

Dima: Pasha пишет: HB_FUNC( EXECANDWAIT ) что то не компилится по Harbour hbmk2: Compiling... obj\pew.c: Warning W8075 pew.prg 224: Suspicious pointer conversion in function HB_FUN_EXECANDWAIT Error E2206 pew.prg 226: Illegal character 'х' (0xe5) in function HB_FUN_EXECANDWAIT Error E2141 pew.prg 226: Declaration syntax error in function HB_FUN_EXECANDWAIT Error E2206 pew.prg 244: Illegal character 'х' (0xe5) in function HB_FUN_EXECANDWAIT Error E2379 pew.prg 244: Statement missing ; in function HB_FUN_EXECANDWAIT

Dima: ага , понял. в 0хFFFFFFFF буковка х русская в исходнике

Dima: еще не все ;) Suspicious pointer conversion in function HB_FUN_EXECANDWAIT в строке char * szProg = hb_parc(1); что ему надо ? ;) PS Harbour 3.2

Петр: Ему надо const char * szProg = hb_parc(1);

Dima: Петр Да теперь там не ругается но ругается в другом месте Warning W8075 pew.prg 238: Suspicious pointer conversion in function HB_FUN_EXECANDWAIT на этой строке if( CreateProcess(NULL, szProg, NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) )

Петр: Это естественно - обычное приведение типов Или игнорируйте, или функцию для использования с Harbour нужно переписать. За пример можно взять WIN_RUNDETACHED, библиотека hbwin

Dima: Петр Понятно ;) Знал бы С сюда бы не написал ;) Спасибо и на этом.

Петр: Понятно ;) Возможно потребуется напильник - не компилировал и не тестировал. #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" #include "hbvm.h" #include "hbwinuni.h" HB_FUNC( EXECANDWAIT ) { void * hProg; HB_SIZE nLen; LPCTSTR lpProg = HB_PARSTR( 1, &hProg, &nLen ); DWORD dwResult = 0xFFFFFFFF; STARTUPINFO si; PROCESS_INFORMATION proc; memset( &si, 0, sizeof(si) ); si.cb = sizeof( si ); si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = (WORD) hb_parnldef( 2, SW_SHOWDEFAULT ); if( CreateProcess( NULL, HB_STRUNSHARE( &hProg, lpProg, nLen ), /* Command line (Unicode version needs an non-const buffer) */ NULL, NULL, FALSE, NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) ) { hb_vmUnlock(); WaitForInputIdle( proc.hProcess, INFINITE ); if( WaitForSingleObject( proc.hProcess, INFINITE ) == WAIT_OBJECT_0 ) { if( ! GetExitCodeProcess( proc.hProcess, &dwResult ) ) dwResult = 0xFFFFFFFF; } CloseHandle( proc.hThread ); CloseHandle( proc.hProcess ); hb_vmLock(); } hb_retnint( dwResult ); hb_strfree( hProg ); } #pragma ENDDUMP

Andrey: Дима, ты про эту функцию спрашивал ? Я для хХарбора сделал - http://clipper.borda.ru/?1-4-0-00000660-000-0-0-1330208704 Хорошую вещь сделал Pasha - функцию EXECANDWAIT в http://clipper.borda.ru/?1-4-0-00000327-000-10001-0-1250159714 Только сейчас оценил. Можно вызвать через батник Notepad или WinWord и пока не завершишь работу в них, программа "заморожена" !!! Спасибо БОЛЬШОЕ Pasha ! Пример заново выкладываю ( давно уже было, сам там посмотришь) - http://files.mail.ru/7F726EC71C0C4B38A06A75252CBFDEFF

Dima: Петр пишет: Возможно потребуется напильник - не компилировал и не тестировал Спасибо но... [pre2] Warning W8065 pew.prg 226: Call to function 'HB_PARSTR' with no prototype in function HB_FUN_EXECANDWAIT Warning W8069 pew.prg 226: Nonportable pointer conversion in function HB_FUN_EXECANDWAIT Warning W8065 pew.prg 239: Call to function 'HB_STRUNSHARE' with no prototype in function HB_FUN_EXECANDWAIT Error E2342 ped.prw 240: Type mismatch in parameter 'lpCommandLine' (wanted 'signed char *', got 'int') in function HB_F UN_EXECANDWAIT Warning W8065 pew.prg 242: Call to function 'hb_vmUnlock' with no prototype in function HB_FUN_EXECANDWAIT Warning W8065 pew.prg 254: Call to function 'hb_vmLock' with no prototype in function HB_FUN_EXECANDWAIT Warning W8065 pew.prg 257: Call to function 'hb_retint' with no prototype in function HB_FUN_EXECANDWAIT Error E2379 ped.prw 259: Statement missing ; in function HB_FUN_EXECANDWAIT Warning W8004 pew.prg 260: 'lpProg' is assigned a value that is never used in function HB_FUN_EXECANDWAIT [/pre2]

Петр: А теперь ?

Dima: Петр пишет: А теперь ? Теперь все собирается. Проверю завтра. Спасибо ! Каковы параметры функции (как в WAPI_ShellExecute) ?

Петр: Dima пишет: Каковы параметры функции (как в WAPI_ShellExecute) ? Не совсем понял, как в оригинале function WinExec32AndWait(const Cmd: String; const CmdShow: Integer): Cardinal; Из примера Андрея cFile := CurDrive()+":"+DirName()+"\backup_test2.bat" EXECANDWAIT(cFile) 2-й параметр в ExecAndWait == 6-й параметр в wapi_ShellExecute, по умолчанию SW_SHOWDEFAULT, можно на SW_SHOWNORMAL поменять Что, собственно, делать-то нужно?

Dima: Петр пишет: Что, собственно, делать-то нужно? Ни чего ;) 2 параметра я понял. Просто уточнил. Этот язык С для меня как китайская грамота ;) Завтра проверю и отпишу. Спасибо !

Dima: Петр пишет: 2-й параметр в ExecAndWait Все работает как надо , но если вторым параметром поставить 0 (он же SW_HIDE) то экран портится тем что выводит вызываемая программа. Похоже SW_HIDE не срабатывает. В WAPI_ShellExecute если вызвать туже программу с установкой SW_HIDE то все нормально Хотелось бы что бы запускаемый процесс происходил скрыто. PS GTWIN

Dima: Переделал сам (вроде пашет как и хотел) Вот этот кусочек [pre2] if( CreateProcess( NULL, HB_STRUNSHARE( &hProg, lpProg, nLen ), /* Command line (Unicode version needs an non-const buffer) */ NULL, NULL, FALSE, CREATE_NEW_CONSOLE | NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) ) { [/pre2]

Andrey: Dima пишет: Переделал сам (вроде пашет как и хотел) Пример (готовый) в студию !

Dima: Andrey пишет: Пример (готовый) в студию ! Да не вопрос. [pre2] Proc main EXECANDWAIT("c:\winprint\winprint test.txt -c",SW_HIDE) return #pragma BEGINDUMP #include <windows.h> #include "hbapi.h" #include "hbvm.h" #include "hbwinuni.h" HB_FUNC( EXECANDWAIT ) { void * hProg; HB_SIZE nLen; LPCTSTR lpProg = HB_PARSTR( 1, &hProg, &nLen ); DWORD dwResult = 0xFFFFFFFF; STARTUPINFO si; PROCESS_INFORMATION proc; memset( &si, 0, sizeof(si) ); si.cb = sizeof( si ); si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = (WORD) hb_parnldef( 2, SW_SHOWDEFAULT ); if( CreateProcess( NULL, HB_STRUNSHARE( &hProg, lpProg, nLen ), /* Command line (Unicode version needs an non-const buffer) */ NULL, NULL, FALSE, CREATE_NEW_CONSOLE | NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) ) { hb_vmUnlock(); WaitForInputIdle( proc.hProcess, INFINITE ); if( WaitForSingleObject( proc.hProcess, INFINITE ) == WAIT_OBJECT_0 ) { if( ! GetExitCodeProcess( proc.hProcess, &dwResult ) ) dwResult = 0xFFFFFFFF; } CloseHandle( proc.hThread ); CloseHandle( proc.hProcess ); hb_vmLock(); } hb_retnint( dwResult ); hb_strfree( hProg ); } #pragma ENDDUMP [/pre2]

Dima: Andrey пишет: Пример (готовый) в студию ! Что в студии говорят ?

Andrey: Dima пишет: Что в студии говорят ? Да еще не добрался... Целый день как пчелка тружусь, с 10 и вот сейчас до ночи 01:33.... Отвечаю и между делом пытаюсь что-то написать своё...

nick_mi: Работает, запускает и в обычном режиме и в скрытом. Но в обычном режиме данные за вызванным приложением портятся. Но это, наверное, издержки ожидания окончания вызванного процесса Терминал GTWVT

PSP: Может вместо CREATE_NEW_CONSOLE использовать CREATE_NO_WINDOW?

Dima: PSP пишет: Может вместо CREATE_NEW_CONSOLE использовать CREATE_NO_WINDOW? Счас попробуем.... Да и так работает правда я ставил SW_HIDE

Pasha: nick_mi пишет: Терминал GTWVT Можно в этой функции добавить 3-й логический параметр: создавать новое окно или нет. Примерно так: if( CreateProcess( NULL, HB_STRUNSHARE( &hProg, lpProg, nLen ), /* Command line (Unicode version needs an non-const buffer) */ NULL, NULL, FALSE, ( HB_ISLOG( 3 ) ? CREATE_NEW_CONSOLE : 0 ) | NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &proc ) )

AlexMyr: Может зря раздел С/С++ удалили?

santy: В принципе С/С++ раздел нужен, но только применительно к (x)Harbour.

Dima: santy пишет: В принципе С/С++ раздел нужен, но только применительно к (x)Harbour. Ни кто и не против

Петр: Pasha пишет: Можно в этой функции добавить 3-й логический параметр: Это ведь не универсальная функция-обертка WinAPI, а отдельно взятый частный случай. Конечно можно добавить третий параметр, так, как вы написали, или чуть по другому, но завтра кому-то понадобится более гибкое управление процессом, добавится четвертый параметр и т.д. Лучше напильник в руки и подгонять под себя, вернее под свои нужды. А, возможно, кого-то и устроят стандартные Harbour функции hb_processOpen, hb_processClose, hb_processRun, hb_processValue Не вседа нужно изобретать велосипед.

Петр: AlexMyr пишет: Может зря раздел С/С++ удалили? ИМХО, это обсуждение не имеет никакого отношения к С/С++, К WinApi - да.

Dima: Петр пишет: hb_processRun Таки да решает задачу EXECANDWAIT

AM: Тут выше упоминалась функция ShellExecute() - как я понял, если передавать ей родительский hWnd, то вызываемое приложение должно само закрываться при закрытии родительского окна, для этого ведь передаётся? А у меня не закрывается, даже при закрытии всей программы, что надо делать? Просто открывается папка для просмотра, и она остаётся висеть, надо закрывать вручную, как быть?

Andrey: Вопрос возник по ShellExecute() Есть такой код (сам исходник в ANSI кодировке): [pre2] hb_memowrit('_run_.cmd', '@Start Excel "' + cFile + '"' + CRLF) ShellExecute( 0, "Open", '_run_.cmd',,, SW_HIDE ) InkeyGui(1000) fErase('_run_.cmd')[/pre2] Если нет русских букв, то всё нормально. Если есть, то файл не находиться, вместо русских букв (после запуска Экселя) в пути кракозябы. Почему так ?

alkresin: Проверьте, в какой кодировке записан _run_.cmd, и в какой должен быть.

Andrey: alkresin пишет: Проверьте, в какой кодировке записан _run_.cmd, и в какой должен быть. В Фаре при просмотре стоит кодировка 1251. И при запуске из под Фара Эксель ругаеться, что нет такого файла, в пути вместо русских букв кракозябы. Программа на МиниГуи, перевод на русский язык есть: [pre2] SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN[/pre2] Т.е. кодировка 1251 Если делаю cFile := HB_ANSItoOEM(cFile) То тогда нормально Эксель стартует, с файлом. Может надо в _run_.cmd указать явно кодовую страницу ? А как это сделать ? Нашел как делать, вот так: [pre2]hb_memowrit('_run_.cmd', 'chcp 1251' + CRLF + '@Start Excel "' + cFile + '"' + CRLF)[/pre2] Правильно поставленный вопрос почти всегда приводит к ответу ! Спасибо за подсказку !

полная версия страницы