sms.~dpr

利用delphi编写的手机短信发送程序

program SMS;

uses
  Forms, SysUtils, QDialogs,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas',
  Unit3 in 'Unit3.pas' {Form3};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '恒天益达短信王 Ver 1.05';
  if now > 37615 then begin 
    ShowMessage ( ' 软件已经超期。'+#10+#13+'请您购买正版软件。'+#10+#13+ '谢谢。');
    application.Terminate ;
    exit;
  end;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.ShowMainForm := false;
  Application.Run;
end.