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

Вниз

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

 
oleg_SYS ©   (2004-03-21 22:04) [0]

Нужно запустить другую программу, но передать ей ещё параметр запуска (это DOS-приложение).
Код:
ShellExecute (Form1.Handle, nil, PChar("C:\prog.exe parametri"), nil, nil, SW_RESTORE);

Не работает :(
Функция WinExec тоже не рабоатет.
Чё делать?


 
Плохиш   (2004-03-21 22:12) [1]


> Чё делать?

Застрелиться!


 
oleg_SYS ©   (2004-03-21 22:33) [2]

О, нашёл!


procedure TForm1.Button1(Sender: TObject);
var
 SEInfo: TShellExecuteInfo;
 ExitCode: DWORD;
 ExecuteFile, ParamString, StartInString: string;
begin
 ExecuteFile := "c:\autoехес.bat";
 FillChar(SEInfo, SizeOf(SEInfo), 0);
 SEInfo.cbSize := SizeOf(TShellExecuteInfo);
 with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    lpDirectory := PChar(StartInString);
    nShow := SW_SHOWNORMAL;
  end;
 if ShellExecuteEx(@SEInfo) then
   begin
    repeat
     Application.ProcessMessages;
     GetExitCodeProcess(SEInfo.hProcess, ExitCode);
   until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
   end;
end;


 
Cardinal ©   (2004-03-21 22:44) [3]

>Не работает :(

У меня работает почему-то



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

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

Наверх




Память: 0.47 MB
Время: 0.068 c
1-1079866444
Def_128
2004-03-21 13:54
2004.04.11
Ошибка при работе с DLL. "access violation at ... "


14-1079692733
Chcnger
2004-03-19 13:38
2004.04.11
Список сайтов, как очистить


1-1082388392
Тимохов
2004-04-19 19:26
2004.04.11
Thread.Terminated II.


1-1082450584
Романов Р.В.
2004-04-20 12:43
2004.04.11
Организовать последовательное выполнение приложений


1-1082661442
Yegorchic
2004-04-22 23:17
2004.04.11
TImage.Picture.Loadfromfile