Текущий архив: 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.044 c