Отправлено: 10.10.05 13:31. Заголовок: Запуск внешних приложений из под хХарбор

При запуске внешнего приложения из под хХарбор( пробовал с просмотрщиком текстовых файлов readme.com ) после завершения с ним работы - не получаетися возврат в основную программу.Программа "виснет"
xHarboar 0.99.5

 Отправлено: 10.10.05 13:44. Заголовок: Re:

Интересно, а при запуске другой DOS-овской программы также виснет, или только при запуске readme.com (это борландовская программа?)?

 Отправлено: 10.10.05 13:58. Заголовок: Re:

Vlad04
Покажи код !

 Отправлено: 11.10.05 08:48. Заголовок: Re:

Код обычный:

Proc pRekct()
Local Kom:='REadme.com out.txt', ekr:=SAVESCREEN(,,,)

Set Default To (Par1)
Run (Kom)
restSCREEN(,,,,ekr)

Return
Так как я работаю с консолью для меня актуально использование редакторов .
Прбовал c Bred, AkelPad - результат тот же.

 Отправлено: 11.10.05 13:09. Заголовок: Re:

Vlad04
Забрось куда нить readme.com проверю у себя

 Отправлено: 11.10.05 15:03. Заголовок: Re:

Попробуй , может так получится ( я так с вордом работаю)
Puti:=MSWORD_PATH()
WinExec(puti+" "+ cOutFile)

****************************
Function MSWORD_PATH()
****************************
Local nHandle, cValue := ""

if RegOpenKey( HKEY_LOCAL_MACHINE,;
"SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths", @nHandle ) == 0
RegQueryValue( nHandle, "WINWORD.EXE", @cValue )
cValue := lfn2sfn(cValue)
RegCloseKey( nHandle )
endif

Return (cValue)

 Отправлено: 11.10.05 18:55. Заголовок: Re:

mmk
Ням , ням ;)
Winexec в чистом Xharbour ? Конечно я его пока не очень освоил , но разве есть там такая функция ?
Ты ручками делал Winexec ?

 Отправлено: 12.10.05 09:35. Заголовок: Re:

Хотя я использую xHarbour+FiveWin , но тем не менее :))
Посмотри WWW.xharbour.com/xhdn/ там в винаппи оказывается есть такая :)))

 Отправлено: 01.04.06 19:45. Заголовок: Re:

Приперло тоже использовать winword , но встал вопрос , а где взять функцию WinExec , в какой библиотеке или где скачать winapi.c ?

А так-же функции работы с реестром (RegOpenKey,RegQueryValue,RegCloseKey и т.д.) ?
И функции swpruncmd у меня нет , где она спряталась ?

P.S. имеется ввиду для xHarbour .

 Отправлено: 01.04.06 22:05. Заголовок: Re:

Сергей Р
Библиотеку WHAT32 можно прикрутить.
Или можно вот это юзануть
*-----------------------------------------------------------------------------*
Function _Execute( nActiveWindowhandle , cOperation , cFile , cParaMeters , cDefault , nState )
*-----------------------------------------------------------------------------*
local a:=""
If ValType ( nActiveWindowhandle ) == 'U'
nActiveWindowhandle := 0
EndIf

If ValType ( cOperation ) == 'U'
cOperation := Nil
EndIf

If ValType ( cFile ) == 'U'
cFile := ""
EndIf

If ValType ( cParaMeters ) == 'U'
cParaMeters := Nil
EndIf

If ValType ( cDefault ) == 'U'
cDefault := Nil
EndIf
If ValType ( nState ) == 'U'
nState := 10 // SW_SHOWDEFAULT
EndIf
a:=ShellExecute ( nActiveWindowhandle , cOperation , cFile , cParaMeters , cDefault , nState )
RETURN Nil

А SwpRuncmd спряталась в BlinkerЕ ;)

 Отправлено: 02.04.06 10:59. Заголовок: Re:

Спасибо Дима , а как быть с функциями работы с реестром ? И где взять библиотеку WHAT32 ?

 Отправлено: 02.04.06 12:05. Заголовок: Re:

У меня тута лежит C:\CVS\xharbour\contrib\what32\
По реестру вроде тоже должно быть.........посмотрю позже (а пока занят)

 Отправлено: 02.04.06 21:31. Заголовок: Re:

По реестру , снова WHAT32
======================================================================
File: _winreg.c
======================================================================

hb_func( regclosekey )
hb_func( regopenkeyex )
hb_func( regqueryvalueex )
hb_func( regenumkeyex )
hb_func( regsetvalueex )
hb_func( regcreatekey )
hb_func( regcreatekeyex )
hb_func( regdeletekey )
hb_func( regdeletevalue )


И вот еще
xharbour\source\rtl\winreg.prg

 Отправлено: 02.04.06 22:59. Заголовок: Re:

Dima пишет:

цитата:

У меня тута лежит C:\CVS\xharbour\contrib\what32\

Это где ?

 Отправлено: 02.04.06 23:11. Заголовок: Re:

Сергей Р
Ты выкачивал с CVS весь дистриб (сырцы) Xharbour ?

 Отправлено: 02.04.06 23:16. Заголовок: Re:

Дима , я не могу с CVS качать (я уже писал причину ADSL+прокси провайдера + IP из сети провайдера)
Так что уменя ничего нет .

 Отправлено: 02.04.06 23:39. Заголовок: Re:

Сергей Р
Куда тебе сырцы сложить (весь комплект) , что бы ты смог забрать ?

 Отправлено: 02.04.06 23:51. Заголовок: Re:

Давай на http://www.webfile.ru/ или на ящик chipusa собачище narod.ru

 Отправлено: 03.04.06 06:25. Заголовок: Re:

Что-то изменилось. На версии 0.996 внешние программы bred2r.exe и т.п. запускаются , а после завершения работы нормально закрываются.Чего не было раньше.Word не пробовал.

 Отправлено: 03.04.06 07:05. Заголовок: Re:

Сергей Р
rapidshare.de устроит ?

 Отправлено: 03.04.06 11:29. Заголовок: Re:

Дима , спасибо , но уже скачал сырцы для 060 , а вот рапида мне противопоказана ( скачать невозможно , постоянное сообщение , что с вашего IP уже качают , не помогают никакие анонимные прокси , просто сплошная )

 Отправлено: 03.04.06 16:07. Заголовок: Re:

Сергей Р
Webfile отстой
Еле дышит.
Давай другой ресурс откуда потянешь.
Только что слил послединй Xharbour , в архиве получилось (весь комплект)
5 архивов по 1.5 метра.

 Отправлено: 03.04.06 17:57. Заголовок: Re:

2Дима
Хорошо бы на http://www.filefactory.com от туда я без проблем качаю .

 Отправлено: 03.04.06 18:02. Заголовок: Re:

Сергей Р
ГУД , сделаю вечерком ;)

 Отправлено: 03.04.06 19:10. Заголовок: Re:

Сергей Р
Все же заливать круче (для меня) на rapidshare конечно.
По ходу есть куча программ которые позволяют обойти проблемы со скачиванием с этого
ресурса или по меньшей мере кол-во проблем уменьшить.
Тем не менее залил на файлфактори , раз тебе так проще ;)
Вот линки

http://www.filefactory.com/get/f.php?f=5e97c3469b769f0b0c37e313
http://www.filefactory.com/get/f.php?f=7470c449c2f68f4be394cd33
http://www.filefactory.com/get/f.php?f=180c3f928ccf9eb90940ee71
http://www.filefactory.com/get/f.php?f=b094b5b6f02694467c805a3e
http://www.filefactory.com/get/f.php?f=3784f0ba82f319eb1ce3402f

Порядок следования частей: 1,5,2,3,4

Все жалось WINRAR 3.51 , именно этой версией и распаковывай или более новой которая уже
существует в виде Beta версии.
Как скачаешь свистни , я грохну у себя на компе эти архивы !!!!!!!!!!!

Удачи ;)


ЗЫ
По ходу вышел релиз FAR 1.70 - это пестня ;) !!!
Вот бы xharbour так работал в текстовом режиме (полноэкранном) :)

 Отправлено: 03.04.06 19:52. Заголовок: Re:

Дима , огромное спасибо , все скачалось и раскрутилось (версией winrar 3.42)
А с рапиды я испробывал все программы (не помогает) , проще через браузер случайно скачать , и поверь , я не один такой несчастный . ,нас очень много .
FAR 1.70 скачал давно , но нет времени посмотреть , надо ведь еще и плагины устанавливать .

 Отправлено: 03.04.06 21:12. Заголовок: Re:

OK !
Архивы вальнул !