Let your Delphi program support external parameters

Procedure TFORM1.FormCreate (Sender: TOBJECT);

VARI: Integer; for i: = 1 to Paramcount Dobeginif Lowercase (paramstr (i)) = 'Beep' Thenbeepelse IF LowerCase (paramstr (i)) = 'exit' theApplication.terminate; end; end;