Главная страница
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.156 c
14-1079688206
Ihor Osov'yak
2004-03-19 12:23
2004.04.11
NAT + personal firewall = trounle


1-1082297859
killer
2004-04-18 18:17
2004.04.11
сравнение двух символов...


14-1079337120
Piter
2004-03-15 10:52
2004.04.11
Новый клиент для этого форума - Magic Forum beta2


14-1082333245
Dudao
2004-04-19 04:07
2004.04.11
Delphi 8 VCL form application


6-1079105001
moor38
2004-03-12 18:23
2004.04.11
Как в сети по IP адресу узнать имя машины?