Мне нужно, чтобы при обычном включении открывалась к примеру вторая форма(2), при автозагрузке программы, открывалась первой первая форма(1). Как это сделать?
Я вторую форму сделал главной(2), спрятал ее и при обычной загрузке норм,
| Код |
procedure TForm2.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := false;
end;
|
но как ее открыть при автозагрузке?
| Код |
procedure TForm2.FormActivate(Sender: TObject);
var
i: integer;
autorun: boolean;
begin
//Проверяю, как запущена прграмма, если атозапуск, то
Autorun:=false; //снимаем флаг
//проходимся по всем параметрам командной строки
for i:=1 to ParamCount do
begin
if(ParamStr(i)='-a') then //если это тот ключик
Autorun:=true; //взодим флаг
end;
//проверяем флаг если взведен то из автозапуска иначе ручками запущена
if (Autorun) then
begin
|
Добавлено @ 14:05
я хочу сделать, так:
ПРога бэкапа, если запускать из винды, то просто открывается в трей, если с виндой, то автоматически вылазиет окно с полосой прогресса копирования файлов... |