Главная страница
    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.08 c
3-1118057488
makle
2005-06-06 15:31
2005.07.18
Сжать и сохранить базу Access


8-1111582014
Zoidberg
2005-03-23 15:46
2005.07.18
Создание трехмерного объекта в OpenGL


8-1108111231
Fenix
2005-02-11 11:40
2005.07.18
Работа с кадрами в AVI


11-1103113734
Valet
2004-12-15 15:28
2005.07.18
EditBox не редактируется ручками в W2K SP3 Eng


14-1119730079
Unleashed
2005-06-26 00:07
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский