[Delphi] Как постоянно генерировать новый класс окна формы?

Question

[Mik92]

Возможно ли при каждом запуске программы автоматически генерировать новый класс ее окна?
Form1 по стандарту, как сделать любой рандомный? (не название формы а именно ее класс) Это возможно? Как?

Comments

[iloer]

Не совсем понятен вопрос. В Design time создавая новую форму или в Run time при запуске приложения?
Если в Design time в редакторе то можно создать собственный класс и зарегистрировать его в среде Delphi.
а если при во время выполнения (Run time) но ничего не мешает вызвать Create описанного вами класса(формы) и использовать его экземпляр как окно

[Mik92]

Интересует именно VCL формы. При инициализации приложения, форма создается таким образом
Application.CreateForm(TForm1, Form1);
Нужно чтобы TForm1 & Form1 был рандомный при каждом запуске программы. Это реализовать можно но я не представляю как. Класс объявлен в исходном коде формы
type
TForm1 = class(TForm)

Я думал генерировать рандомную строку и присваивать новый класс форме сразу при инициализации но столкнулся с затруднениями.

[iloer]

Исходя из выше сказанного вам нужно чтобы Application.CreateForm(); создал случайный экземпляр, случайного класса, ну и развивая мысль приложение должно работать случайным образом?)))

опишите пожалуйста подробнее задачу.

[Mik92]

iloer: Немного не описываемая задача или просто я не могу своими словами ее описать.
Приложение должно работать обычным образом. Нужно всего изменить класс самой формы на любой случайный. Нужно чтобы в опциях формы Name должен быть случайным.

[iloer]

Ну все)) теперь я точно все понял)) значит при первом например запуске программы форма у вас это форма))) а при втором запуске она превращается в кнопку, а при следующем например в панель )))
Думаю вам следует ознакомиться с основами ООП ( ну или научиться хотябы разделять понятия: Класс, Свойство, Метод ).

[Mik92]

Нет не поняли)) Форма она и должна оставаться формой и со всеми компонентами что я на не положу. Нужно менять только название класса формы а именно тот что Name в свойствах формы. При каждом запуске название класса должно быть случайным.

Answer 1

[Mercury13]

Если ты имел в виду оконный класс (понятие WinApi) — переопредели TWinControl.CreateParams.

type
  TfmMain = class (TForm)
  .....
  protected
    procedure CreateParams(var Params : TCreateParams); override;
  end;

procedure TfmMain.CreateParams(var Params : TCreateParams);
begin
  inherited;
  // а затем подкорректируй Params по собственному желанию.
end;

Что, кстати, пишешь? Вирус? :)

Если ты имел в виду класс как понятие ООП — никак.

P.S. И всё-таки напиши свою задачу. Защититься от FindWindow? — я только что написал, как. Защитить «внутренности» программы от патчей? Придумать хакоустойчивое API?

Comments

[Mik92]

Нет пишу не вирус, это для того чтобы запускать программу в так называемом "Безопасном режиме". Да, и тоже для защит от FindWindow. Спасибо большое, ваше решение то что я и пытался сделать.

[Mik92]

Как сделать чтобы WinClassName был случайным?