Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.056 c
4-1116498180
iskatel
2005-05-19 14:23
2005.07.18
служба доступа к файлаи принтерам


1-1120394991
Толян
2005-07-03 16:49
2005.07.18
Загрузка кода изи MEMO


1-1120042870
sofs
2005-06-29 15:01
2005.07.18
Загрузка последеней версии файла


14-1119449626
Cosinus
2005-06-22 18:13
2005.07.18
Господа, кто рботал или работает админом... Подскажите по VPN...


14-1119378830
Sulimxar
2005-06-21 22:33
2005.07.18
Производительность