Главная страница
    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.051 c
1-1120122756
LLlMblra
2005-06-30 13:12
2005.07.18
Определение позиции курсора относительно экрана


14-1119351318
Vikarij
2005-06-21 14:55
2005.07.18
Printer, нет бумаги


14-1119614514
Ega23
2005-06-24 16:01
2005.07.18
С днем рождения! 24 июня


1-1119693968
Duck
2005-06-25 14:06
2005.07.18
Освобождение памяти


1-1119609462
JTAG
2005-06-24 14:37
2005.07.18
Вычистить остатки компонента из программы как?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский