Запуск ЕХЕ-шника с параметром?

← →
IronHawk © (2002-12-01 02:52) [0]

Допустим у меня на форме есть куча PageControl-ов и мне надо чтоб открывался соответсвующий по команде в строке запуска
скажем так:
c:\>Project.exe -3
после выполнения прога должна запустится с активной вкладкой под номером 3 !
Как так реализовать?
Заранее спасибо...

← →
Для (2002-12-01 03:31) [1]

кучи PageControl"ов не достаточно одного параметра в командной строке, чтобы установить нужную вкладку в нужном PageControl"е.
Для некоего PageControl"а, установка активной закладки не так cложна. Например в OnCreate формы пишем:
PageControl.ActivePage:=StrToInt(ParamStr(1));
с обязательной проверкой на существование того самого параметра в "строке запуска".
Но "минус" или "тире" - уже на вашей совести.

← →
Viktor Kushnir © (2002-12-01 07:49) [2]

А вообще для работы с параметрами запуска есть две процедуры:
Paramcount - возвращает колличество полученных параметров. всегда >= 1
ParamStr(I: Integer) :String; Возвращает I-ый параметр в виде строки.
ParamStr(0) = Application.exename

← →
IronHawk © (2002-12-01 15:52) [3]

Главоное что все поняли что я хочу.

> Viktor Kushnir © (01.12.02 07:49)

Спасибо!
У кого ещё есть какие предложения?

Например так:

procedure TForm1.FormCreate(Sender: TObject); var SelectPage: Integer; begin if (ParamCount > 0) and (ParamStr(1)[1] = "-") then begin SelectPage := StrToInt(Copy(ParamStr(1), 2, Length(ParamStr(1)))); if (PageControl1.PageCount >= SelectPage) and (SelectPage > 0) then PageControl1.ActivePage := PageControl1.Pages[SelectPage - 1]; end; end;

Удачи.

Запуск ЕХЕ-шника с параметром? Найти похожие ветки