bonjour à tous
J'ai une application à laquelle je passe un paramètre.
Dans FormCreate je veux tester si un paramètre est présent, si pas de paramètre fin de l'application:
mais ça ne marche pas, l'application se lance même sans paramètre et plante.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 procedure TForm1.FormCreate(Sender: TObject); begin if paramstr(1)='' then application.Terminate; end;
Partager