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

Вниз

Запуск из Delphi приложения с ключиками   Найти похожие ветки 

← →
Алена   (2005-06-21 17:10) [0]

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

---

← →
BJValentine   (2005-06-21 17:13) [1]


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

---

← →
Гаврила ©   (2005-06-21 17:21) [2]

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

---

← →
iskatel ©   (2005-06-21 17:27) [3]

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

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

---

← →
kaZaNoVa ©   (2005-06-21 17:31) [4]

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

может так?

---

← →
Алена   (2005-06-21 17:37) [5]

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

---

← →
BJValentine   (2005-06-21 17:59) [6]

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

---

← →
BJValentine   (2005-06-21 18:02) [7]

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



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;



---

← →
Алена   (2005-06-21 20:10) [8]

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

---

← →
DarkSet   (2005-06-28 13:19) [9]

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

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

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

---

← →
Anatoly Podgoretsky ©   (2005-06-28 13:27) [10]

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

---

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

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

Наверх

Память: 0.49 MB
Время: 0.053 c