Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Передача параметров

Автор: DEER 17.2.2006, 12:01

Здравстуйте.

Есть проект написан на Delphi 7, нужно добавить в него функционал, чтобы можно было бы запускать его в командной строке с задаными параметрами.

Как это делается в Delphi ?

Проект НЕ консольный

Спасибо

Автор: Демо 17.2.2006, 12:05

Раз приложение с GUI, то можешь параметры обрабатывать в OnCreate основной формы - ParamStr.
Либо в любом месте программы, где тебе это удобно, в том числе и в файле проекта - .DPR.

Автор: Guedda 17.2.2006, 12:11

Код


{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение параметров командной строки приложения

Зависимости: Windows, SysUtils
Автор:       Dimka Maslov, [email protected], ICQ:148442121, Санкт-Петербург
Copyright:   Dimka Maslov
Дата:        29 марта 2003 г.
***************************************************** }

function Parameters: string;
var
  P: PChar;
begin
  P := GetCommandLine;
  if P^ = '"' then
  begin
    Inc(P);
    P := StrPos(P, '"');
    Inc(P);
  end
  else
    P := StrPos(P, ' ');
  Inc(P);
  Result := P;
end;

Взято из http://delphiworld.narod.ru

Автор: <Spawn> 17.2.2006, 12:27

Guedda, Зачем изобретать велосипед? Все уже сделано за нас и лежит, как уже сказали, в ParamStr. Количество параметров в ParamCount (или как то так - Дельфи под рукой нет, чтоб проверить...)

Автор: DEER 17.2.2006, 12:28

Демо, Guedda спасибо по репе smile

Автор: Snowy 17.2.2006, 12:38

Вариант, предложенный Guedda возвращает коммандную строку целиком.
Если нужны отдельные параметры, то нужно использовать ParamCount и ParamStr.