sendmail.dpr

来自「由于工作需要」· DPR 代码 · 共 68 行

program SendMail;

uses
  Forms,
  UMain in 'UMain.pas' {FrmMain},
  USendStatus in 'USendStatus.pas' {FrmSendStatus},
  SysUtils,
  Dialogs,
  Controls,
  OverbyteIcsSmtpProt in '..\..\OverbyteIcsV6beta\Delphi\Vc32\OverbyteIcsSmtpProt.pas';

{$R *.res}

var
  i: Integer;
  vFileName, vVersionInfo: string;
  vAuto: Boolean;

begin
  Application.Initialize;
  //Application.MainFormOnTaskbar := True;
  Application.Title := '备份代码到邮箱';
  FrmMain := TFrmMain.Create(Application);
  if ParamCount >= 1 then
  begin
    vAuto := False;
    vFileName := '';
    vVersionInfo := '';
    for I := 1 to ParamCount do
    begin
      if Pos('-auto', Trim(LowerCase(ParamStr(i)))) = 1 then
      begin
        vAuto := True;
      end;
      if Pos('-file', Trim(LowerCase(ParamStr(i)))) = 1 then
      begin
        vFileName := ParamStr(i);
        Delete(vFileName, 1, 5);
        vFileName := Trim(vFileName);
      end;
      if Pos('-ver', Trim(LowerCase(ParamStr(i)))) = 1 then
      begin
        vVersionInfo := ParamStr(i);
        Delete(vVersionInfo, 1, 4);
        vVersionInfo := Trim(vVersionInfo);
      end;
    end;
    if vAuto then
    begin
      if (FrmMain.edtSmtpServer.Text = '') or (FrmMain.edtSmtpUser.Text = '') or (FrmMain.edtMailAddr.Text = '') then
      begin
        if FrmMain.ShowModal = mrok then
        begin
          FrmMain.SendMail(vFileName,vVersionInfo, False);
        end;
      end
      else
        FrmMain.SendMail(vFileName,vVersionInfo, False);
    end
    else
      FrmMain.ShowModal;
  end
  else
    FrmMain.ShowModal;
  Application.Run;
end.