Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Вниз

Запуск стороннего приложения   Найти похожие ветки 

 
Ламот   (2006-04-04 14:14) [0]

Добрый день, подскажите пож., необходимо запустить "чужое" приложение, дождаться пока оно отработает (будет закрыто пользователем) и продолжить выполнение своей программки... если мне не изменяет память - была когда-то соответствующая функция, которой в качестве параметров передовался путь к приложению и флаги (в том числе - ждать)... ежелить такие функции есть - напомните пож. как они звучат (называются).
Зарание пасиба! ))


 
Сергей М. ©   (2006-04-04 14:18) [1]

Среди стандартных ф-ций в составе Делфи таковых нет.

Запуск :

CreateProcess()
ShellExecute()

Ожидание :

WaitForSingleObject(), MsgWaitForMultipleObujects()


 
Ламот   (2006-04-04 14:24) [2]

2 Сергей М. © - дякую! вопросов больше не имеем! )))


 
Ламот   (2006-04-05 17:41) [3]

... поторопился с выводами...
объясните пож.
1. ShellExecute() по моему должен возвращать хендл запущенного приложения или код ошибки, так?!
2. что такое 42 — это значение, которое возвращает мне ShellExecute(), когда отрабатывает без ошибки...
3. итого, мне нужно запустить приложение и получить его хендл, с createprocess - не разобрался (параметров там слишком много), WinExec - тоже хендла не возвращает... в какую сторону рыть?!
Извените если чересчур сумбурно получилось! ))


 
MBo ©   (2006-04-05 17:48) [4]

в FAQ есть пример для CreateProcess


 
Khim ©   (2006-04-05 19:08) [5]

var
h: hwnd;
begin
if findwindow("nil","заголовок окна")<>0 then
h:=findwindow("nil","заголовок окна")<>0 then
h-хендл твоего окна


 
TUser ©   (2006-04-05 19:33) [6]

procedure RunAndWait;
var
{$ifdef fpc}
  PI:_PROCESS_INFORMATION;
  SI:STARTUPINFO;
{$else}
  SI: _STARTUPINFOA;
  PI: _PROCESS_INFORMATION;
{$endif}
begin
  FillChar(SI, sizeof(SI), #0);
  SI.cb:=sizeof(SI);
  FillChar(PI, sizeof(PI), #0);
  CreateProcess(nil,PAnsiChar(Command),nil,nil,false,0,nil,nil,SI,PI);
  WaitForSingleObject(PI.hProcess,INFINITE);
end;


 
Anatoly Podgoretsky ©   (2006-04-05 20:04) [7]

Khim ©   (05.04.06 19:08) [5]
h:=findwindow("nil","заголовок окна")<>0 then

А это что такое, хочешь сказать, что Дельфи это съест?


 
Ламот   (2006-04-06 09:25) [8]

2 MBo © - от теперь точно ОНО, пасиба! )))
2 Khim © - пасибо за участие...
2 TUser © - Ого! первый раз вижу подобные кострукции в Var"e... ща буду пробовать! )))

В общем рискну: всем еще раз пасиба, вопрос... "прикрыт", как минимум до появления новых! :))


 
Ламот   (2006-04-06 11:35) [9]

Надеюсь я не сильно надоел? ))
Еще вопрос — как можно прочитать параметры, передаваемые моей программе из командной строки?


 
Leonid Troyanovsky ©   (2006-04-06 11:50) [10]


> Ламот   (06.04.06 11:35) [9]

> Еще вопрос — как можно прочитать параметры, передаваемые
> моей программе из командной строки?


ParamStr

--
Regards, LVT.


 
Ламот   (2006-04-06 11:54) [11]

2 Leonid Troyanovsky © - Дякую, пробую... ))


 
Desdechado ©   (2006-04-06 12:12) [12]

с запускателями есть еще нехрошая фича - 16-битные программы очень тяжело отследить, дышит он а или уже отдышалась, ибо запускаются через ntvdm


 
Ламот   (2006-04-06 15:22) [13]

2 Desdechado © - ого! надеюсь я таких запускать не стану...! )))



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.011 c
2-1144704080
Vovanchik
2006-04-11 01:21
2006.04.23
IB


1-1142917383
_Mike_
2006-03-21 08:03
2006.04.23
should match case of ancestor TComponent.Create


3-1140767621
Bee-Bee
2006-02-24 10:53
2006.04.23
Летит база от ShotDown, глюк сортировки, неверная сортировка


3-1141048241
Supklo
2006-02-27 16:50
2006.04.23
Как подключиться к Transbase


15-1144197219
Bogdan1024
2006-04-05 04:33
2006.04.23
Война и мир





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский