Условие создания главной формы - Прочее - Безопастность! - Каталог статей - Сайт абсолютно для всех!!!

Суббота, 03.12.2016, 05:24
Приветствую Вас Гость | RSS

Сайт для всех!

Каталог статей

Главная » Статьи » Безопастность! » Прочее

Условие создания главной формы

Существует ли в Delphi возможность создавать главную форму по условию? Я хочу использовать условие IF (в зависимости от передаваемого параметра) для того, чтобы определить какая форма будет главной при старте приложения. Фактически "другую" форму НЕ нужно будет загружать.

Хитрость здесь заключается в том, что мы предоставляем компилятору весь необходимый для создания форм код, но не допускаем его выполнения (IF FALSE THEN), при этом компилятор не ругается, а мы тем временем (во время выполнения приложения) выбираем и создаем главную форму. Вот пример кода, измененный .DPR-файл, который при старте случайным образом выбирает из друх форм главную:


begin
 if FALSE then
 begin
 Application.CreateForm(TForm1, Form1);
 Application.CreateForm(TForm2, Form2);
 end;
 Randomize;
 if Random < 0.5 then
 Application.CreateForm(TForm1, Form1)
 else
 Application.CreateForm(TForm2, Form2);
 Application.Run;
end.

Пара "подходящих" для CreateForm форм заключено в никогда не выполнимый блок, тем самым приводя компилятор в состояние свинячего восторга.

Категория: Прочее | Добавил: FuDjI (01.03.2008) | Автор: Firdavs E W
Просмотров: 237 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Категории раздела
Зашита [3]
Создание вирусов [4]
Взлом [10]
Прочее [37]
Поиск
Наш опрос
Как вы попали в этот сайт?
Всего ответов: 14
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0
    Copyright MyCorp © 2016