Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить значение из программы при её завершении.. [D5, D6]


Fin ©   (2007-11-12 12:36:00) 

Добрый день!
Из одной программы запускаю другую, и результат работы (значение переменной) второй программы по её завершении хочу передать в первую. Подскажите как реализовать.
Спасибо.


Fixi4eeG   (2007-11-12 12:53:00) [1]

ExitCode


Dib@zol   (2007-11-12 12:48:00) [2]

При запуске "дочерней" проги сохрани число, возвращённое WinExec'ом. Это хендл порождённого процесса - собсно той проги. Запусти по этому хендлу Буферная_переменная:=WaitForSingleObject(Твой_тот_самый_хендл, INFINTE); + CloseHandle(Буферная_переменная); + GetExitCodeProcess(Твой_тот_самый_хендл, Буферная_переменная); И в буферную возвратится код выхода программы.

В ней, т.е. дочерней, проге, при выходе пропиши вот это:
halt(Код_возврата);

И усё.


MBo   (2007-11-12 12:43:00) [3]

если это число до 4 байт, то можно GetExitCodeProcess


Наверх

Титульная страница Поиск, карта сайта Написать письмо