Отправлено: 24.06.08 17:47. Заголовок: Как запуcкать приложения без использования __Run

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

 Отправлено: 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

 Отправлено: 27.07.08 16:30. Заголовок: gfilatov пишет: Get..

gfilatov пишет:

цитата:

ShellExecute( GetDeskTopWindow(), cVerb, cFile, , , 1 )

А где взять функцию GetDeskTopWindow() для хХарбора отдельно ?

И что за параметр cVerb ?

А вообще-то лучше привести примеры вызова этой функции ...

 Отправлено: 27.07.08 16:50. Заголовок: Andrey пишет: где в..

Andrey пишет:

цитата:

где взять эту функцию

HB_FUNC( GETDESKTOPWINDOW )
{
hb_retnl( (HWND)GetDesktopWindow() );
}

 Отправлено: 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 ***

Где править ?

 Отправлено: 27.07.08 18:08. Заголовок: Andrey пишет: Где п..

Andrey пишет:

цитата:

Где править ?

HB_FUNC( GETDESKTOPWINDOW )
{
hb_retnl( (LONG)GetDesktopWindow() );
}

 Отправлено: 28.07.08 01:44. Заголовок: Нет функции ShellExe..

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

 Отправлено: 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 )
) ) ;
}

 Отправлено: 28.07.08 11:12. Заголовок: Получилось , заработ..

Получилось , заработало !!!

А где можно посмотреть синтаксис этой функции ?
В хелпе по хХарбору нет.
Методом проб и смотря здесь на форуме получил для себя образцы:

#define SW_SHOWNORMAL 1 - а за что этот параметр отвечает ?

ShellExecute(GetDeskTopWindow(), 'open', 'myHelp.Chm' , , , SW_SHOWNORMAL)

ShellExecute( GetDeskTopWindow(), "open", "notepad.exe", "test5.prg" , , 1 )

 Отправлено: 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.

 Отправлено: 28.07.08 12:30. Заголовок: Блин, с моим английс..

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

 Отправлено: 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

 Отправлено: 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 - Выводит окно так, чтобы оно меньше всего перекрывалось с другими окнами.

 Отправлено: 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

 Отправлено: 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)
а потом удалять этот бат-файл.

А по другому нельзя ?

 Отправлено: 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)

 Отправлено: 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

 Отправлено: 14.10.08 08:44. Заголовок: Извиняйте, а почему ..

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

 Отправлено: 14.10.08 13:35. Заголовок: Кроме ZIP'a есть..

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

 Отправлено: 14.10.08 16:12. Заголовок: WAPI функция ShellEx..

WAPI функция ShellExecute принимает в качестве аргументов 6 параметров, а вы, что передаете

цитата:

ShellExecute(GetDeskTopWindow(), 'open',cFile, "", "" , , SW_SHOWNORMAL)

 Отправлено: 14.10.08 19:37. Заголовок: Семён Семёнович ......

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

 Отправлено: 05.06.09 14:03. Заголовок: Andrey пишет: Ура, ..

Andrey пишет:

цитата:

Ура, нашел на нашем языке......

Где нашёл? Поделись на aynn[at]li.ru

 Отправлено: 05.06.09 14:20. Заголовок: Да не помню где взял..

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

 Отправлено: 05.06.09 14:51. Заголовок: Andrey пишет: Давай..

Andrey пишет:

цитата:

Давай адрес - вышлю ..

Так написан адрес-то! Или тебя [at] смутило?

 Отправлено: 05.06.09 15:52. Заголовок: Лукашевский пишет: ..

Лукашевский пишет:

цитата:

Или тебя [at] смутило?

Смутило !
Это на каком языке ?
aynn@li.ru - не прокатило !

 Отправлено: 05.06.09 16:01. Заголовок: Andrey пишет: aynn@..

Andrey пишет:

цитата:

aynn@li.ru - не прокатило !

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

 Отправлено: 05.06.09 16:11. Заголовок: :sm189: Файлы опуб..

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

 Отправлено: 06.08.09 11:54. Заголовок: Добрый день. Подска..

Добрый день.

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

 Отправлено: 06.08.09 19:19. Заголовок: Один из вариантов: ..

Один из вариантов:

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

4) А из программы вызываемой ShellExecute() удалите файл exit.txt
5) И переключите фокус на предыдущую программу.

 Отправлено: 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;

Один в один переведите в С-синтаксис и все.

 Отправлено: 11.08.09 09:28. Заголовок: Не сложилась у меня ..

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

 Отправлено: 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

Извини, не проверял (с)

 Отправлено: 12.08.09 13:04. Заголовок: Urri пишет: так что..

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;

 Отправлено: 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 );

}


Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ?

 Отправлено: 12.08.09 16:58. Заголовок: Тип Cardinal в Pasca..

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

Pasha пишет:

цитата:

Заодно вопрос. Какой тэг использовать для кода, чтобы форум его не форматировал ?

Я использую моношириннный шрифт + цитата

 Отправлено: 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;

?

 Отправлено: 12.08.09 19:24. Заголовок: В харборе тип данных..

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

 Отправлено: 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

 Отправлено: 13.08.09 13:35. Заголовок: Петр пишет: HB_LONG..

Петр пишет:

цитата:

HB_LONG в зависимости от условий принимает значение....

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

 Отправлено: 19.03.13 15:34. Заголовок: Pasha пишет: HB_FUN..

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

 Отправлено: 19.03.13 15:42. Заголовок: ага , понял. в 0хFFF..

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

 Отправлено: 19.03.13 15:46. Заголовок: еще не все ;) Suspic..

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

PS
Harbour 3.2

 Отправлено: 19.03.13 18:03. Заголовок: Ему надо const char..

Ему надо

const char * szProg = hb_parc(1);

 Отправлено: 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 ) )

 Отправлено: 19.03.13 19:04. Заголовок: Это естественно - об..

Это естественно - обычное приведение типов

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

 Отправлено: 19.03.13 19:08. Заголовок: Петр Понятно ;) Зна..

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

 Отправлено: 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

 Отправлено: 19.03.13 21:51. Заголовок: Дима, ты про эту фун..

Дима, ты про эту функцию спрашивал ?
Я для хХарбора сделал - 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

 Отправлено: 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 
 

 Отправлено: 19.03.13 22:26. Заголовок: А теперь ?..

А теперь ?

 Отправлено: 19.03.13 22:34. Заголовок: Петр пишет: А тепер..

Петр пишет:

цитата:

А теперь ?

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

 Отправлено: 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 поменять

Что, собственно, делать-то нужно?

 Отправлено: 19.03.13 23:18. Заголовок: Петр пишет: Что, со..

Петр пишет:

цитата:

Что, собственно, делать-то нужно?

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

 Отправлено: 20.03.13 09:05. Заголовок: Петр пишет: 2-й пар..

Петр пишет:

цитата:

2-й параметр в ExecAndWait

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

PS
GTWIN

 Отправлено: 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 ) ) 
 { 
  
 

 Отправлено: 20.03.13 10:45. Заголовок: Dima пишет: Передел..

Dima пишет:

цитата:

Переделал сам (вроде пашет как и хотел)

Пример (готовый) в студию !

 Отправлено: 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  
 

 Отправлено: 21.03.13 00:07. Заголовок: Andrey пишет: Приме..

Andrey пишет:

цитата:

Пример (готовый) в студию !

Что в студии говорят ?

 Отправлено: 21.03.13 00:35. Заголовок: Dima пишет: Что в с..

Dima пишет:

цитата:

Что в студии говорят ?

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

 Отправлено: 21.03.13 09:32. Заголовок: Работает, запускает ..

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

 Отправлено: 21.03.13 09:45. Заголовок: Может вместо CREATE_..

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

 Отправлено: 21.03.13 09:58. Заголовок: PSP пишет: Может в..

PSP пишет:

цитата:

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

Счас попробуем....

Да и так работает правда я ставил SW_HIDE

 Отправлено: 21.03.13 10:24. Заголовок: nick_mi пишет: Терм..

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 ) )

 Отправлено: 21.03.13 10:29. Заголовок: Может зря раздел С/С..

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

 Отправлено: 21.03.13 11:53. Заголовок: В принципе С/С++ раз..

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

 Отправлено: 21.03.13 11:56. Заголовок: santy пишет: В прин..

santy пишет:

цитата:

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

Ни кто и не против

 Отправлено: 21.03.13 21:30. Заголовок: Pasha пишет: Можно ..

Pasha пишет:

цитата:

Можно в этой функции добавить 3-й логический параметр:

Это ведь не универсальная функция-обертка WinAPI, а отдельно взятый частный случай.
Конечно можно добавить третий параметр, так, как вы написали, или чуть по другому, но завтра кому-то понадобится более гибкое управление процессом, добавится четвертый параметр и т.д.
Лучше напильник в руки и подгонять под себя, вернее под свои нужды.


А, возможно, кого-то и устроят стандартные Harbour функции
hb_processOpen, hb_processClose, hb_processRun, hb_processValue
Не вседа нужно изобретать велосипед.

 Отправлено: 21.03.13 21:34. Заголовок: AlexMyr пишет: Може..

AlexMyr пишет:

цитата:

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

ИМХО, это обсуждение не имеет никакого отношения к С/С++,
К WinApi - да.

 Отправлено: 22.03.13 16:21. Заголовок: Петр пишет: hb_proc..

Петр пишет:

цитата:

hb_processRun

Таки да решает задачу EXECANDWAIT

 Отправлено: 04.04.13 18:26. Заголовок: Тут выше упоминалась..

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

 Отправлено: 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')

Если нет русских букв, то всё нормально.
Если есть, то файл не находиться, вместо русских букв (после запуска Экселя) в пути кракозябы.
Почему так ?

 Отправлено: 29.09.20 13:42. Заголовок: Проверьте, в какой к..

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

 Отправлено: 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)

Правильно поставленный вопрос почти всегда приводит к ответу !
Спасибо за подсказку !