Application.Terminate a MessageDlg Delphi

1. Prozrad duvod, proc ukoncujes aplikaci v mainform.create. Treba se to da udelat jinak

2. Nijak. Napsat si vlastni formular. Delphi se snazi, aby formulare vypadaly jako systemove. Pokud chces primo Windows formular, zavolej MessageBox()

Ve FormCreate mam ser.čislo meho FlashDisku.
Program zkontroluje zda to sedí a pokud ne tak Application.Terminat.
Fungovat to funguje, ale to probliknuti

Zkontroluj to primo v DPR a pokud cislo nesouhlasi, vubec nevytvarej hlavni formular a program ukonci

Presne takto sa to robí...

príklad:

program MyApp;
 
 uses
   Forms,
   main in 'main.pas' {MainForm},
 
 {$R *.res}
 
 begin
   if (nejaká podmienka je splnená) then
   begin
     Application.Initialize;
     Application.CreateForm(TMainForm, MainForm) ;
     Application.Run;
   end else
   begin
     Application.MessageBox('Nemáte oprávnenie na spustenie aplikácie. Chýbné číslo.', 'Protected Delphi application') ;
   end;
 end.