Автор | Сообщение |
|
| |
Пост N: 2
Зарегистрирован: 23.06.08
|
|
Отправлено: 24.06.08 17:47. Заголовок: Как запуcкать приложения без использования __Run
Здравствуйте ! Подскажите пожалуйста, как можно запустить приложение не используя командную строку ?
|
|
|
Ответов - 72
, стр:
1
2
3
4
All
[только новые]
|
|
|
| модератор
|
Пост N: 804
Зарегистрирован: 25.05.05
|
|
Отправлено: 24.06.08 18:05. Заголовок: SkyNET пишет: как м..
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
|
|
|
|
| постоянный участник
|
Пост N: 627
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.07.08 16:30. Заголовок: gfilatov пишет: Get..
gfilatov пишет: цитата: | ShellExecute( GetDeskTopWindow(), cVerb, cFile, , , 1 ) |
| А где взять функцию GetDeskTopWindow() для хХарбора отдельно ? И что за параметр cVerb ? А вообще-то лучше привести примеры вызова этой функции ...
|
|
|
|
| модератор
|
Пост N: 815
Зарегистрирован: 25.05.05
|
|
Отправлено: 27.07.08 16:50. Заголовок: Andrey пишет: где в..
Andrey пишет: HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (HWND)GetDesktopWindow() ); }
|
|
|
|
| постоянный участник
|
Пост N: 628
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.07.08 17:01. Заголовок: Я вообще-то не силен..
Я вообще-то не силен в С и поставил так: #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 *** Где править ?
|
|
|
|
| модератор
|
Пост N: 816
Зарегистрирован: 25.05.05
|
|
Отправлено: 27.07.08 18:08. Заголовок: Andrey пишет: Где п..
Andrey пишет: HB_FUNC( GETDESKTOPWINDOW ) { hb_retnl( (LONG)GetDesktopWindow() ); }
|
|
|
|
| постоянный участник
|
Пост N: 629
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 01:44. Заголовок: Нет функции ShellExe..
Нет функции ShellExecute() в чистом хХарборе ! Пришлось цеплять what32.lib и заработало ... А без этой библы обойтись можно ?
|
|
|
|
| модератор
|
Пост N: 817
Зарегистрирован: 25.05.05
|
|
Отправлено: 28.07.08 10:41. Заголовок: Andrey пишет: Нет ф..
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 ) ) ) ; }
|
|
|
|
| постоянный участник
|
Пост N: 630
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 11:12. Заголовок: Получилось , заработ..
Получилось , заработало !!! А где можно посмотреть синтаксис этой функции ? В хелпе по хХарбору нет. Методом проб и смотря здесь на форуме получил для себя образцы: #define SW_SHOWNORMAL 1 - а за что этот параметр отвечает ? ShellExecute(GetDeskTopWindow(), 'open', 'myHelp.Chm' , , , SW_SHOWNORMAL) ShellExecute( GetDeskTopWindow(), "open", "notepad.exe", "test5.prg" , , 1 )
|
|
|
|
| модератор
|
Пост N: 818
Зарегистрирован: 25.05.05
|
|
Отправлено: 28.07.08 11:33. Заголовок: Andrey пишет: где м..
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.
|
|
|
|
| постоянный участник
|
Пост N: 631
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 12:30. Заголовок: Блин, с моим английс..
Блин, с моим английским буду разбираться долго.... Так бы сразу и сказал, что искать в WinAPI нужно ....
|
|
|
|
| постоянный участник
|
Пост N: 632
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 12:33. Заголовок: Ура, нашел на нашем ..
Ура, нашел на нашем языке...... Функция 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
|
|
|
|
|
| постоянный участник
|
Пост N: 633
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 12:35. Заголовок: И еще про окна: Ко..
И еще про окна: Константы состояния окна при открытии\показе. Группа ссылок: Окна 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 - Выводит окно так, чтобы оно меньше всего перекрывалось с другими окнами.
|
|
|
|
| постоянный участник
|
Пост N: 634
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.07.08 14:17. Заголовок: Спасибо Григорий !!!..
Спасибо Григорий !!! Кому нужно, привожу пример полностью (на чистом хХарборе): скопировать в файл 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
|
|
|
|
| постоянный участник
|
Пост N: 655
Зарегистрирован: 12.09.06
|
|
Отправлено: 01.09.08 18:50. Заголовок: А как сделать запуск..
А как сделать запуск, если строка запуска слишком длинная ? Типа: 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) а потом удалять этот бат-файл. А по другому нельзя ?
|
|
|
|
| постоянный участник
|
Пост N: 656
Зарегистрирован: 12.09.06
|
|
Отправлено: 03.09.08 13:51. Заголовок: Спасибо, сам разобра..
Спасибо, сам разобрался ..... 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)
|
|
|
|
| постоянный участник
|
Пост N: 701
Зарегистрирован: 12.09.06
|
|
Отправлено: 13.10.08 21:09. Заголовок: Проблема с запуском ..
Проблема с запуском 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
|
|
|
|
| |
Пост N: 8
Зарегистрирован: 02.10.08
|
|
Отправлено: 14.10.08 08:44. Заголовок: Извиняйте, а почему ..
Извиняйте, а почему не пользоваться для архивации встроенным в xHarobour зипом (hbzip.lib в контрибах) ? Тогда и с батником проблем не будет.
|
|
|
|
| постоянный участник
|
Пост N: 702
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.10.08 13:35. Заголовок: Кроме ZIP'a есть..
Кроме ZIP'a есть еще вызов батников. А их тогда как вызывать. Это в качестве примера, чтоб разобраться с CMD....
|
|
|
|
| постоянный участник
|
Пост N: 532
Зарегистрирован: 09.10.06
|
|
Отправлено: 14.10.08 16:12. Заголовок: WAPI функция ShellEx..
WAPI функция ShellExecute принимает в качестве аргументов 6 параметров, а вы, что передаете цитата: | ShellExecute(GetDeskTopWindow(), 'open',cFile, "", "" , , SW_SHOWNORMAL) |
|
|
|
|
|
| постоянный участник
|
Пост N: 703
Зарегистрирован: 12.09.06
|
|
Отправлено: 14.10.08 19:37. Заголовок: Семён Семёнович ......
Семён Семёнович ...... уже склероз !!! Спасибо Петр ! Всегда так бывает, все баги на поверхности лежат .....
|
|
|
|
| |
Пост N: 318
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 14:03. Заголовок: Andrey пишет: Ура, ..
Andrey пишет: цитата: | Ура, нашел на нашем языке...... |
| Где нашёл? Поделись на aynn[at]li.ru
|
|
|
|
|
| постоянный участник
|
Пост N: 863
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 14:20. Заголовок: Да не помню где взял..
Да не помню где взял... Давай адрес - вышлю ..
|
|
|
|
| |
Пост N: 319
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 14:51. Заголовок: Andrey пишет: Давай..
Andrey пишет: Так написан адрес-то! Или тебя [at] смутило?
|
|
|
|
| постоянный участник
|
Пост N: 864
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 15:52. Заголовок: Лукашевский пишет: ..
Лукашевский пишет: Смутило ! Это на каком языке ? aynn@li.ru - не прокатило !
|
|
|
|
| |
Пост N: 321
Зарегистрирован: 08.04.06
|
|
Отправлено: 05.06.09 16:01. Заголовок: Andrey пишет: aynn@..
Andrey пишет: цитата: | aynn@li.ru - не прокатило ! |
| Очень странно... Сегодня мне отправляли письмо на этот ящик, я его получил. Может, ты чего не так пишешь? Смотри в uppercase: AYNN@LI.RU
|
|
|
|
| постоянный участник
|
Пост N: 866
Зарегистрирован: 12.09.06
|
|
Отправлено: 05.06.09 16:11. Заголовок: :sm189: Файлы опуб..
Файлы опубликованы: http://files.mail.ru/FCT0WW Файлы будут храниться до 10 июня 2009 года, каждое скачивание файлов продлевает их срок хранения еще на 5 дней.
|
|
|
|
| постоянный участник
|
Пост N: 131
Зарегистрирован: 21.04.09
|
|
Отправлено: 06.08.09 11:54. Заголовок: Добрый день. Подска..
Добрый день. Подскажите, а можно ли затормозить выполнение программы до того момента, пока то, что вызывалось ShellExecute, завершит свою работу?
|
|
|
|
| постоянный участник
|
Пост N: 891
Зарегистрирован: 12.09.06
|
|
Отправлено: 06.08.09 19:19. Заголовок: Один из вариантов: ..
Один из вариантов: 1) Создать файл, любой хоть текстовый... (например exit.txt) 2) Вызвать ShellExecute() 3) Пока существует файл exit.txt программа не работает.... Можно повесить табличку типа: Работайте с программой такой-то... 4) А из программы вызываемой ShellExecute() удалите файл exit.txt 5) И переключите фокус на предыдущую программу.
|
|
|
|
| постоянный участник
|
Пост N: 257
Зарегистрирован: 25.12.07
|
|
Отправлено: 09.08.09 09:53. Заголовок: Подскажите, а можно ..
цитата: | Подскажите, а можно ли затормозить выполнение программы до того момента, пока то, что вызывалось 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; Один в один переведите в С-синтаксис и все.
|
|
|
|
| постоянный участник
|
Пост N: 132
Зарегистрирован: 21.04.09
|
|
Отправлено: 11.08.09 09:28. Заголовок: Не сложилась у меня ..
Не сложилась у меня дружба с Delphi, с С тоже не очень, так что спасибо за совет, которій мне не удастся воплотить в жизнь
|
|
|
|
| Администратор
|
Пост N: 1199
Зарегистрирован: 23.05.05
|
|
Отправлено: 11.08.09 11:40. Заголовок: #pragma BEGINDUMP #..
#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 Извини, не проверял (с)
|
|
|
|
|
| постоянный участник
|
Пост N: 259
Зарегистрирован: 25.12.07
|
|
Отправлено: 12.08.09 13:04. Заголовок: Urri пишет: так что..
Urri пишет: цитата: | так что спасибо за совет, которій мне не удастся воплотить в жизнь |
| Pasha пишет: Ну, я надеялся, что с переводом вам помогут Паш, у меня, правда есть одно небольшое примечание: Тип Cardinal в дельфях это DWORD, поэтому, вообще говоря, $FFFFFFFF - это не -1, а 4294967295 К тому же в GetExitCodeProcess второй параметр идет указателем, поэтому, скорее всего, неявного приведения типов здесь не будет. То есть, результат может оказаться другим числом. Если я правильно понимаю LONG используется, потому что нельзя вернуть DWORD? Если так, то, может быть, несколько лучше будет так: Добавить еще переменную: DWORD dResult = 0хFFFFFFFF; В GetExitCodeProcess использовать ее: GetExitCodeProcess(proc.hProcess, (LPDWORD) &dResult ) ) Ну и перед возвратом - hb_retnl( lResult ); сделать явное присвоение: lResult = dResult;
|
|
|
|
| Администратор
|
Пост N: 1200
Зарегистрирован: 23.05.05
|
|
Отправлено: 12.08.09 13:38. Заголовок: С учетом исправлений..
С учетом исправлений Сергея, функция будет выглядеть так: 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 ); } Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ?
|
|
|
|
| постоянный участник
|
Пост N: 728
Зарегистрирован: 09.10.06
|
|
Отправлено: 12.08.09 16:58. Заголовок: Тип Cardinal в Pasca..
Тип Cardinal в Pascal - это unsigned int или unsigned long в C или DWORD в терминологии Microsoft. Для того чтобы вернуть unsigned long необходимо использовать Harbour API функцию hb_retnint без всякого приведения и боязни получить неправильный результат. Pasha пишет: цитата: | Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ? |
| Я использую моношириннный шрифт + цитата
|
|
|
|
| постоянный участник
|
Пост N: 260
Зарегистрирован: 25.12.07
|
|
Отправлено: 12.08.09 18:42. Заголовок: Петр пишет: Для тог..
Петр пишет: цитата: | Для того чтобы вернуть unsigned long необходимо использовать Harbour API функцию hb_retnint без всякого приведения |
| Ну, если можно вернуть ulong, то, конечно, его и надо возвращать Хотя, взглянув на объявление hb_retnint догадаться об этом трудно (возможно у меня старенькая версия харбура, и тем более я не С-шник). Например в hbapi.h: 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 */ Как видим даже комменты одинаковые, а в определении HB_LONG: typedef LONG HB_LONG; ?
|
|
|
|
| Администратор
|
Пост N: 1201
Зарегистрирован: 23.05.05
|
|
Отправлено: 12.08.09 19:24. Заголовок: В харборе тип данных..
В харборе тип данных NUMERIC - только знаковый. Неважно, как описана переменная в С-коде, на уровне prg она будет всегда signed. Внутренний фомат при этом может быть разным: 16/32/64-битовое целое, или double
|
|
|
|
| постоянный участник
|
Пост N: 729
Зарегистрирован: 09.10.06
|
|
Отправлено: 12.08.09 22:19. Заголовок: Sergey Spirin пишет:..
Sergey Spirin пишет: цитата: | Как видим даже комменты одинаковые, а в определении HB_LONG: typedef LONG HB_LONG; |
| О комментариях - без комментариев HB_LONG в зависимости от условий принимает значение #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 При сборке 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
|
|
|
|
| постоянный участник
|
Пост N: 261
Зарегистрирован: 25.12.07
|
|
Отправлено: 13.08.09 13:35. Заголовок: Петр пишет: HB_LONG..
Петр пишет: цитата: | HB_LONG в зависимости от условий принимает значение.... |
| Ok Чтож, будем знать теперь, что int в названии функции не просто int, а целый Int64, да и HB_LONG не просто long, а по-long-ее будет
|
|
|
|
| |
Пост N: 2800
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 15:34. Заголовок: Pasha пишет: HB_FUN..
Pasha пишет: что то не компилится по 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
|
|
|
|
| |
Пост N: 2801
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 15:42. Заголовок: ага , понял. в 0хFFF..
ага , понял. в 0хFFFFFFFF буковка х русская в исходнике
|
|
|
|
| |
Пост N: 2802
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 15:46. Заголовок: еще не все ;) Suspic..
еще не все ;) Suspicious pointer conversion in function HB_FUN_EXECANDWAIT в строке char * szProg = hb_parc(1); что ему надо ? ;) PS Harbour 3.2
|
|
|
|
|
| постоянный участник
|
Пост N: 1126
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.13 18:03. Заголовок: Ему надо const char..
Ему надо const char * szProg = hb_parc(1);
|
|
|
|
| |
Пост N: 2803
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 18:22. Заголовок: Петр Да теперь там ..
Петр Да теперь там не ругается но ругается в другом месте 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 ) )
|
|
|
|
| постоянный участник
|
Пост N: 1129
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.13 19:04. Заголовок: Это естественно - об..
Это естественно - обычное приведение типов Или игнорируйте, или функцию для использования с Harbour нужно переписать. За пример можно взять WIN_RUNDETACHED, библиотека hbwin
|
|
|
|
| |
Пост N: 2804
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 19:08. Заголовок: Петр Понятно ;) Зна..
Петр Понятно ;) Знал бы С сюда бы не написал ;) Спасибо и на этом.
|
|
|
|
| постоянный участник
|
Пост N: 1130
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.13 21:36. Заголовок: Понятно ;) Возможно..
Понятно ;) Возможно потребуется напильник - не компилировал и не тестировал. цитата: | #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 |
|
|
|
|
|
| постоянный участник
|
Пост N: 2755
Зарегистрирован: 12.09.06
|
|
Отправлено: 19.03.13 21:51. Заголовок: Дима, ты про эту фун..
|
|
|
|
| |
Пост N: 2805
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 22:07. Заголовок: Петр пишет: Возможн..
Петр пишет: цитата: | Возможно потребуется напильник - не компилировал и не тестировал |
| Спасибо но... 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
|
|
|
|
| постоянный участник
|
Пост N: 1132
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.13 22:26. Заголовок: А теперь ?..
А теперь ?
|
|
|
|
| |
Пост N: 2806
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 22:34. Заголовок: Петр пишет: А тепер..
Петр пишет: Теперь все собирается. Проверю завтра. Спасибо ! Каковы параметры функции (как в WAPI_ShellExecute) ?
|
|
|
|
| постоянный участник
|
Пост N: 1133
Зарегистрирован: 09.10.06
|
|
Отправлено: 19.03.13 22:59. Заголовок: Dima пишет: Каковы ..
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 поменять Что, собственно, делать-то нужно?
|
|
|
|
| |
Пост N: 2807
Зарегистрирован: 17.05.05
|
|
Отправлено: 19.03.13 23:18. Заголовок: Петр пишет: Что, со..
Петр пишет: цитата: | Что, собственно, делать-то нужно? |
| Ни чего ;) 2 параметра я понял. Просто уточнил. Этот язык С для меня как китайская грамота ;) Завтра проверю и отпишу. Спасибо !
|
|
|
|
| |
Пост N: 2808
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.03.13 09:05. Заголовок: Петр пишет: 2-й пар..
Петр пишет: цитата: | 2-й параметр в ExecAndWait |
| Все работает как надо , но если вторым параметром поставить 0 (он же SW_HIDE) то экран портится тем что выводит вызываемая программа. Похоже SW_HIDE не срабатывает. В WAPI_ShellExecute если вызвать туже программу с установкой SW_HIDE то все нормально Хотелось бы что бы запускаемый процесс происходил скрыто. PS GTWIN
|
|
|
|
| |
Пост N: 2809
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.03.13 09:37. Заголовок: Переделал сам (вроде..
Переделал сам (вроде пашет как и хотел) Вот этот кусочек 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 ) ) {
|
|
|
|
| постоянный участник
|
Пост N: 2757
Зарегистрирован: 12.09.06
|
|
Отправлено: 20.03.13 10:45. Заголовок: Dima пишет: Передел..
Dima пишет: цитата: | Переделал сам (вроде пашет как и хотел) |
| Пример (готовый) в студию !
|
|
|
|
| |
Пост N: 2810
Зарегистрирован: 17.05.05
|
|
Отправлено: 20.03.13 11:05. Заголовок: Andrey пишет: Приме..
Andrey пишет: цитата: | Пример (готовый) в студию ! |
| Да не вопрос. 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
|
|
|
|
| |
Пост N: 2828
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.03.13 00:07. Заголовок: Andrey пишет: Приме..
Andrey пишет: цитата: | Пример (готовый) в студию ! |
| Что в студии говорят ?
|
|
|
|
| постоянный участник
|
Пост N: 2764
Зарегистрирован: 12.09.06
|
|
Отправлено: 21.03.13 00:35. Заголовок: Dima пишет: Что в с..
Dima пишет: Да еще не добрался... Целый день как пчелка тружусь, с 10 и вот сейчас до ночи 01:33.... Отвечаю и между делом пытаюсь что-то написать своё...
|
|
|
|
| |
Пост N: 90
Зарегистрирован: 19.05.05
|
|
Отправлено: 21.03.13 09:32. Заголовок: Работает, запускает ..
Работает, запускает и в обычном режиме и в скрытом. Но в обычном режиме данные за вызванным приложением портятся. Но это, наверное, издержки ожидания окончания вызванного процесса Терминал GTWVT
|
|
|
|
| постоянный участник
|
Пост N: 850
Зарегистрирован: 27.01.07
|
|
Отправлено: 21.03.13 09:45. Заголовок: Может вместо CREATE_..
Может вместо CREATE_NEW_CONSOLE использовать CREATE_NO_WINDOW?
|
|
|
|
| |
Пост N: 2829
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.03.13 09:58. Заголовок: PSP пишет: Может в..
PSP пишет: цитата: | Может вместо CREATE_NEW_CONSOLE использовать CREATE_NO_WINDOW? |
| Счас попробуем.... Да и так работает правда я ставил SW_HIDE
|
|
|
|
| Администратор
|
Пост N: 2776
Зарегистрирован: 23.05.05
|
|
Отправлено: 21.03.13 10:24. Заголовок: nick_mi пишет: Терм..
nick_mi пишет: Можно в этой функции добавить 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 ) )
|
|
|
|
| |
Пост N: 774
Зарегистрирован: 11.06.10
|
|
Отправлено: 21.03.13 10:29. Заголовок: Может зря раздел С/С..
Может зря раздел С/С++ удалили?
|
|
|
|
| |
Пост N: 173
Зарегистрирован: 16.12.08
|
|
Отправлено: 21.03.13 11:53. Заголовок: В принципе С/С++ раз..
В принципе С/С++ раздел нужен, но только применительно к (x)Harbour.
|
|
|
|
| |
Пост N: 2831
Зарегистрирован: 17.05.05
|
|
Отправлено: 21.03.13 11:56. Заголовок: santy пишет: В прин..
santy пишет: цитата: | В принципе С/С++ раздел нужен, но только применительно к (x)Harbour. |
| Ни кто и не против
|
|
|
|
| постоянный участник
|
Пост N: 1134
Зарегистрирован: 09.10.06
|
|
Отправлено: 21.03.13 21:30. Заголовок: Pasha пишет: Можно ..
Pasha пишет: цитата: | Можно в этой функции добавить 3-й логический параметр: |
| Это ведь не универсальная функция-обертка WinAPI, а отдельно взятый частный случай. Конечно можно добавить третий параметр, так, как вы написали, или чуть по другому, но завтра кому-то понадобится более гибкое управление процессом, добавится четвертый параметр и т.д. Лучше напильник в руки и подгонять под себя, вернее под свои нужды. А, возможно, кого-то и устроят стандартные Harbour функции hb_processOpen, hb_processClose, hb_processRun, hb_processValue Не вседа нужно изобретать велосипед.
|
|
|
|
| постоянный участник
|
Пост N: 1135
Зарегистрирован: 09.10.06
|
|
Отправлено: 21.03.13 21:34. Заголовок: AlexMyr пишет: Може..
AlexMyr пишет: цитата: | Может зря раздел С/С++ удалили? |
| ИМХО, это обсуждение не имеет никакого отношения к С/С++, К WinApi - да.
|
|
|
|
| |
Пост N: 2852
Зарегистрирован: 17.05.05
|
|
Отправлено: 22.03.13 16:21. Заголовок: Петр пишет: hb_proc..
Петр пишет: Таки да решает задачу EXECANDWAIT
|
|
|
|
| |
Пост N: 125
Зарегистрирован: 15.12.06
|
|
Отправлено: 04.04.13 18:26. Заголовок: Тут выше упоминалась..
Тут выше упоминалась функция ShellExecute() - как я понял, если передавать ей родительский hWnd, то вызываемое приложение должно само закрываться при закрытии родительского окна, для этого ведь передаётся? А у меня не закрывается, даже при закрытии всей программы, что надо делать? Просто открывается папка для просмотра, и она остаётся висеть, надо закрывать вручную, как быть?
|
|
|
|
| постоянный участник
|
Пост N: 6830
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.09.20 13:29. Заголовок: Вопрос возник по She..
Вопрос возник по ShellExecute() Есть такой код (сам исходник в ANSI кодировке): hb_memowrit('_run_.cmd', '@Start Excel "' + cFile + '"' + CRLF) ShellExecute( 0, "Open", '_run_.cmd',,, SW_HIDE ) InkeyGui(1000) fErase('_run_.cmd') Если нет русских букв, то всё нормально. Если есть, то файл не находиться, вместо русских букв (после запуска Экселя) в пути кракозябы. Почему так ?
|
|
|
|
| moderator
|
Пост N: 1430
Зарегистрирован: 06.07.06
|
|
Отправлено: 29.09.20 13:42. Заголовок: Проверьте, в какой к..
Проверьте, в какой кодировке записан _run_.cmd, и в какой должен быть.
|
|
|
|
| постоянный участник
|
Пост N: 6831
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.09.20 18:00. Заголовок: alkresin пишет: Про..
alkresin пишет: цитата: | Проверьте, в какой кодировке записан _run_.cmd, и в какой должен быть. |
| В Фаре при просмотре стоит кодировка 1251. И при запуске из под Фара Эксель ругаеться, что нет такого файла, в пути вместо русских букв кракозябы. Программа на МиниГуи, перевод на русский язык есть: SET CODEPAGE TO RUSSIAN SET LANGUAGE TO RUSSIAN Т.е. кодировка 1251 Если делаю cFile := HB_ANSItoOEM(cFile) То тогда нормально Эксель стартует, с файлом. Может надо в _run_.cmd указать явно кодовую страницу ? А как это сделать ? Нашел как делать, вот так: hb_memowrit('_run_.cmd', 'chcp 1251' + CRLF + '@Start Excel "' + cFile + '"' + CRLF) Правильно поставленный вопрос почти всегда приводит к ответу ! Спасибо за подсказку !
|
|
|
Ответов - 72
, стр:
1
2
3
4
All
[только новые]
|
|