[Delphi] How to constantly generate a new form window class?

Question

Delphi

Is it possible to automatically generate a new window class each time a program is started?
Form1 according to the standard, how to make any random? (not the name of the form, but its class) Is it possible? How?

Answer 1

If you meant window class (WinApi concept) - override TWinControl.CreateParams.

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

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

By the way, what are you writing? Virus? :)
If you meant class as an OOP concept, no way.
PS And still write your task. Protect yourself from FindWindow? I just wrote how. Protect the "guts" of the program from patches? Come up with a hack-resistant API?