Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.07.18;
Скачать: [xml.tar.bz2];

Вниз

Запуск из 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.052 c
14-1119712856
lookin
2005-06-25 19:20
2005.07.18
Открытая страница и дополнительный трафик...


4-1117084968
Usachev
2005-05-26 09:22
2005.07.18
com-порт


4-1114846064
RamDrive
2005-04-30 11:27
2005.07.18
Создание виртуального диска в runtime?


1-1119677865
syte_ser78
2005-06-25 09:37
2005.07.18
Отображение окна


10-1096551187
AntonSh
2004-09-30 17:33
2005.07.18
COM Server





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский