?? sendmail.dpr
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -