Текущий архив: 2002.09.05;
Скачать: CL | DM;
Вниз
Командная строка Найти похожие ветки
← →
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]СПАСИБО
Страницы: 1 вся ветка
Текущий архив: 2002.09.05;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
