Командная строка

← →
spROOT13 (2002-08-25 21:56) [0]

Мастера, как проделать следующее.
Чтобы при запуске моей программы с параметром
myprog.exe -param1
запускалась одна только форма Form1
А при команде
myprog.exe -param2
только одна форма Form2

Пожалуйста напишите примерчик.

← →
Ученик (2002-08-25 22:10) [1]

А что делать если без параметров ?

← →
spROOT13 (2002-08-25 22:12) [2]

Когда без параметра тогда появляется главная форма напимер MainForm какой- нибудь

← →
Ученик (2002-08-25 22:18) [3]

Project-View Source

begin
Application.Initialize;
if ParamStr(1) = "Param1" then
Application.CreateForm(TForm1, Form1)
else if ParamStr(1) = "Param2" then
Application.CreateForm(TForm2, Form2)
else begin
Application.CreateForm(TMainForm, MainForm)
end;
Application.Run;
end;

Но, возможны проблемы при добавлении новых форм

← →
spROOT13 (2002-08-25 22:23) [4]

"Ой спасибо блин большое..."
Масяня

← →
Ученик (2002-08-25 22:37) [5]

Немного другой вариант, нет проблем при запуске из Delphi и добавления форм

var
App : TApplication;
begin
Application.Initialize;
App := Application;
if ParamStr(1) = "Param1" then
App.CreateForm(TForm1, Form1)
else if ParamStr(1) = "Param2" then
App.CreateForm(TForm2, Form2)
else begin
Application.CreateForm(TMainForm, MainForm);
end;
Application.Run;
end.

← →
spROOT13 (2002-08-25 22:42) [6]

СПАСИБО

Командная строка Найти похожие ветки