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

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

Запуск из Delphi приложения с ключиками [D5, Win2k]

Алена ©   (2005-06-21 17:10:00) 

Как запустить из Delphi приложение с ключиками, например RAR (с набором что, сколько и куда... паковать) ???

---

Anatoly Podgoretsky   (2005-06-28 13:27:00) [1]

Алена   (21.06.05 17:37) [5]
Обратить внимание на 4 и 5 параметры ShellExecute

---

DarkSet   (2005-06-28 13:19:00) [2]

Хм, лично я ничего не понял.. У меня та же проблема - запустить по нажатию кнопочки приложение с ключами, в моем случае ворд с указанием открываемого файла. Но вот взяв то что выше и подставиви вместо ComandStr ту командную строку что мне надо ниче не получилось.

Можно какие то объяснения поподробнее?

И в принципе мне не надо ждать завершения процесса или еще чего, запустить и забыть.

---

Алена   (2005-06-21 20:10:00) [3]

Спасибо Ребята за помощь, все получилось!!!

---

BJValentine   (2005-06-21 18:02:00) [4]

А вообще вот что хорошо катит



var
   IpStartupInfo: TStartupinfo;
   IpProcessInformation: TProcessInformation;
begin
   FillChar(IpStartupInfo,Sizeof(IpStartupInfo),#0);
   IpStartupInfo.cb := Sizeof(IpStartupInfo);
   IpStartupInfo.dwFlags := STARTF_FORCEONFEEDBACK or STARTF_USESHOWWINDOW;
   IpStartupInfo.wShowWindow := sw_hide;
   if not CreateProcess(nil,pchar(ComandStr), nil, nil,
                        false,NORMAL_PRIORITY_CLASS,
                        nil, nil,
                        IpStartupInfo, IpProcessInformation)
      then Result:=false
      else
          begin
              {Ожидаем окончание процесса}
              WaitForSingleObject(IpProcessInformation.hProcess,infinite);
              CloseHandle(IpProcessInformation.hProcess);
              Result:=true;
          end;
end;



---

BJValentine   (2005-06-21 17:59:00) [5]

А такой гадостью как WinExec не брезгвуете?

---

Алена   (2005-06-21 17:37:00) [6]

Совершенно верно из своей проги хочу запустить EXE-шник (тоже свой), но с набором ключей. В коммандной строке работает, а вот пытаюсь использовать ShellExecute, не получается....

---

kaZaNoVa   (2005-06-21 17:31:00) [7]

ShellExecute(0,'open',nil,'"E:\Program Files\WinRAR\Rar.exe" /?','',SW_SHOW);

может так?

---

iskatel   (2005-06-21 17:27:00) [8]

а так и пиши в одну строчку с именем экзешника, прям как в коммандной строке пишешь, или, если хочешь можешь отдельно - в ShellExecute для этого отдельный параметр есть...

я так понял девушка из своей проги хочет RAR запустить, а вы ей про бипы )))

---

Гаврила   (2005-06-21 17:21:00) [9]

Если я правильно понял, вопрос про запуск приложения с ключом из под отладчика?
см. главное меню \ Run \ parameters

---

BJValentine   (2005-06-21 17:13:00) [10]


procedure TForm1.FormCreate(Sender: TObject);

var
 i: Integer;
 for i := 0 to ParamCount – 1 do
 begin
   if LowerCase(ParamStr(i)) = 'beep' then
     Beep(10000,1000)
   else if (LowerCase(ParamStr(i)) = 'exit' then
     Application.Terminate;
 end;
end;


Поиск->ParamStr->Example

---

Наверх