Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Командная строка [D6, Win95/98]

spROOT13 © (2002-08-25 21:56:00)
Мастера, как проделать следующее.
Чтобы при запуске моей программы с параметром
myprog.exe -param1
запускалась одна только форма Form1
А при команде
myprog.exe -param2
только одна форма Form2

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

spROOT13 (2002-08-25 22:42:00) [1]
СПАСИБО

Ученик (2002-08-25 22:37:00) [2]
Немного другой вариант, нет проблем при запуске из 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:23:00) [3]
"Ой спасибо блин большое..."
Масяня

Ученик (2002-08-25 22:18:00) [4]
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:12:00) [5]
Когда без параметра тогда появляется главная форма напимер MainForm какой- нибудь

Ученик (2002-08-25 22:10:00) [6]
А что делать если без параметров ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »