Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.30;
Скачать: CL | DM;

Вниз

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

 
Morfey COOL ©   (2002-09-17 12:19) [0]

Help ! Не могу найти рабочий пример запуска внешнего приложения. Помогите кто может чайнику исходником... ! Спасибо заранее.


 
REA   (2002-09-17 12:45) [1]

CreateProcess (сто раз было на форуме) или WinExec


 
AFrolov ©   (2002-09-17 12:45) [2]

ShellExecute


 
AL2002 ©   (2002-09-17 12:50) [3]

ShellExecute(Handle, "open", "c:\Windows\notepad.exe", nil, nil, SW_SHOWNORMAL);


 
andrey_pst ©   (2002-09-17 13:15) [4]

var
PChTmp : PChar;
si : STARTUPINFO;
pi : PROCESS_INFORMATION;
ExitCodes : DWORD; // коды возврата архиватора (архивация)
...
// свернем контракт в архив RAR:
// выделим память под строку с нулевым символом
PChTmp := StrNew(PChar(ExtractShortPathName(GetCurrentDir) + "\rar.exe a " + fdPath + Label8.Caption + "\" + Label5.Caption + "\fd_" + n_kontrakt + ".rar " + fdPath + Label8.Caption + "\" + Label5.Caption + "\" + n_kontrakt + "\*.xls -df -ep -m5 -ri15:0 -s -rr"));
ZeroMemory(@si, sizeof(si));
si.cb := SizeOf(si);
// запустим Rar.exe
if not CreateProcess( nil, PChTmp, nil, nil, False, 0, nil, nil, si, pi ) then
MessageDlg("ОШИБКА !!!." + #13 + "Не могу запустить архиватор.", mtError, [mbOK], 0);
QFS_SKontr.Last // переходим к последнему контракту
else
begin
WaitForSingleObject(pi.hProcess, INFINITE); // ждем окончания процесса
GetExitCodeProcess(pi.hProcess, ExitCodes); // получаем код возврата
// посмотрим что вернулось:
case ExitCodes of
255 :
begin
MessageDlg("ОШИБКА АРХИВАТОРА № 255 !!!." + #13 + "Процесс архивации прерван пользователем." + #13 +
"Файлы не были полностью заархивированы и отправлены получателю." + #13 +
"Программа будет остановлена." + #13 +
"С вопросами обращайтесь к системному администратору.", mtError, [mbOK], 0);
QFS_SKontr.Last; // переходим к последнему контракту
end;
...
end;

CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
StrDispose(PChTmp); // освободим память из под строки с нулевым символом



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

Текущий архив: 2002.09.30;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
7-98364
Trad
2002-07-18 15:15
2002.09.30
Проблемы с печатью


3-97966
:: Hamster ::
2002-09-09 10:16
2002.09.30
Организация Transaction..или в чём тут может быть дело ?!


14-98338
?
2002-09-05 22:42
2002.09.30
IP


3-97976
Bishop
2002-09-07 16:23
2002.09.30
Экспорт в Excel


1-98076
Anar
2002-09-19 10:11
2002.09.30
Поиск файлов с помощью компонента FileSearch