Автор | Сообщение |
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 10.10.05 13:31. Заголовок: Запуск внешних приложений из под хХарбор
При запуске внешнего приложения из под хХарбор( пробовал с просмотрщиком текстовых файлов readme.com ) после завершения с ним работы - не получаетися возврат в основную программу.Программа "виснет" xHarboar 0.99.5
|
|
|
Ответов - 26
, стр:
1
2
All
[только новые]
|
|
|
| постоянный участник
|
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 10.10.05 13:44. Заголовок: Re:
Интересно, а при запуске другой DOS-овской программы также виснет, или только при запуске readme.com (это борландовская программа?)?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 10.10.05 13:58. Заголовок: Re:
Vlad04 Покажи код !
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 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 - результат тот же.
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 11.10.05 13:09. Заголовок: Re:
Vlad04 Забрось куда нить readme.com проверю у себя
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 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)
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 11.10.05 18:55. Заголовок: Re:
mmk Ням , ням ;) Winexec в чистом Xharbour ? Конечно я его пока не очень освоил , но разве есть там такая функция ? Ты ручками делал Winexec ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 12.10.05 09:35. Заголовок: Re:
Хотя я использую xHarbour+FiveWin , но тем не менее :)) Посмотри WWW.xharbour.com/xhdn/ там в винаппи оказывается есть такая :)))
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 01.04.06 19:45. Заголовок: Re:
Приперло тоже использовать winword , но встал вопрос , а где взять функцию WinExec , в какой библиотеке или где скачать winapi.c ? А так-же функции работы с реестром (RegOpenKey,RegQueryValue,RegCloseKey и т.д.) ? И функции swpruncmd у меня нет , где она спряталась ? P.S. имеется ввиду для xHarbour .
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 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Е ;)
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 10:59. Заголовок: Re:
Спасибо Дима , а как быть с функциями работы с реестром ? И где взять библиотеку WHAT32 ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 12:05. Заголовок: Re:
У меня тута лежит C:\CVS\xharbour\contrib\what32\ По реестру вроде тоже должно быть.........посмотрю позже (а пока занят)
|
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 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
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 22:59. Заголовок: Re:
Dima пишет: цитата: | У меня тута лежит C:\CVS\xharbour\contrib\what32\ |
| Это где ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 23:11. Заголовок: Re:
Сергей Р Ты выкачивал с CVS весь дистриб (сырцы) Xharbour ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 23:16. Заголовок: Re:
Дима , я не могу с CVS качать (я уже писал причину ADSL+прокси провайдера + IP из сети провайдера) Так что уменя ничего нет .
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 23:39. Заголовок: Re:
Сергей Р Куда тебе сырцы сложить (весь комплект) , что бы ты смог забрать ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 02.04.06 23:51. Заголовок: Re:
|
|
|
|
| постоянный участник
|
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 03.04.06 06:25. Заголовок: Re:
Что-то изменилось. На версии 0.996 внешние программы bred2r.exe и т.п. запускаются , а после завершения работы нормально закрываются.Чего не было раньше.Word не пробовал.
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 03.04.06 07:05. Заголовок: Re:
Сергей Р rapidshare.de устроит ?
|
|
|
|
| |
Не зарегистрирован
Зарегистрирован: 01.01.70
|
|
Отправлено: 03.04.06 11:29. Заголовок: Re:
Дима , спасибо , но уже скачал сырцы для 060 , а вот рапида мне противопоказана ( скачать невозможно , постоянное сообщение , что с вашего IP уже качают , не помогают никакие анонимные прокси , просто сплошная )
|
|
|
Ответов - 26
, стр:
1
2
All
[только новые]
|
|