home *** CD-ROM | disk | FTP | other *** search
/ Freelog 11 / Freelog011.iso / BestOf / PhoenixMail / Source / phoenix / Phoenix.dpr < prev    next >
Text File  |  1999-02-12  |  4KB  |  108 lines
  1. {*****************************************************************************
  2.  *
  3.  *  Phoenix.dpr - Phoenix Mail (19-July-1998)
  4.  *
  5.  *  Copyright (c) 1998-99 Michael Haller
  6.  *
  7.  *  Author:     Michael Haller
  8.  *  E-mail:     michael@discountdrive.com
  9.  *  Homepage:   http://www.discountdrive.com/sunrise
  10.  *
  11.  *  This program is free software; you can redistribute it and/or
  12.  *  modify it under the terms of the GNU General Public License
  13.  *  as published by the Free Software Foundation;
  14.  *
  15.  *  This program is distributed in the hope that it will be useful,
  16.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18.  *  GNU General Public License for more details.
  19.  *
  20.  *  You should have received a copy of the GNU General Public License
  21.  *  along with this program; if not, write to the Free Software
  22.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
  23.  *
  24.  *----------------------------------------------------------------------------
  25.  *
  26.  *  Revision history:
  27.  *
  28.  *     DATE     REV                 DESCRIPTION
  29.  *  ----------- --- ----------------------------------------------------------
  30.  *
  31.  *****************************************************************************}
  32.  
  33. program Phoenix;
  34.  
  35. uses
  36.   Forms,
  37.   Controls,
  38.   SysUtils,
  39.   Main in 'Main.pas' {MainForm},
  40.   BASE64Sup in 'BASE64Sup.pas',
  41.   MailParser in 'MailParser.pas',
  42.   PXStuff in 'PXStuff.pas',
  43.   FMMailOptions in 'FMMailOptions.pas' {MailOptionsForm},
  44.   ParserSup in 'ParserSup.pas',
  45.   DateSup in 'DateSup.pas',
  46.   FMAccount in 'FMAccount.pas' {AccountForm},
  47.   FMFolder in 'FMFolder.pas' {FolderForm},
  48.   FMOnline in 'FMOnline.pas' {OnlineForm},
  49.   FMEnviro in 'FMEnviro.pas' {EnviroForm},
  50.   FMInfo in 'FMInfo.pas' {InfoForm},
  51.   FMSplash in 'FMSplash.pas' {SplashForm},
  52.   FMTips in 'FMTips.pas' {TipsForm},
  53.   FMSelectMail in 'FMSelectMail.pas' {SelectMailForm},
  54.   FMAddress in 'FMAddress.pas' {AddressForm},
  55.   FMEditAdr in 'FMEditAdr.pas' {EditAdrForm},
  56.   FMDirectory in 'FMDirectory.pas' {DirectoryForm},
  57.   FMSignature in 'FMSignature.pas' {SignatureForm},
  58.   FMSelBook in 'FMSelBook.pas' {SelBookForm},
  59.   FMSearch in 'FMSearch.pas' {SearchForm},
  60.   LangSup in 'LangSup.pas',
  61.   FMLanguage in 'FMLanguage.pas' {LanguageForm},
  62.   FMStdMail in 'FMStdMail.pas' {StdMailForm},
  63.   FMSpellCheck in 'FMSpellCheck.pas' {SpellCheckForm},
  64.   TDOnline in 'TDOnline.pas';
  65.  
  66. {$R *.RES}
  67.  
  68. begin
  69.   Application.Initialize;
  70.   if CheckForPrevInstance = False then Exit;
  71.   if CheckCDROMStart = False then begin
  72.     ClearUpCheckForPrevInstance;
  73.     Exit;
  74.   end;
  75.   CheckColorDepth;
  76.   SplashForm := TSplashForm.Create(Application);
  77.   SplashForm.Show;
  78.   Application.ProcessMessages;
  79.   InitializePX;
  80.   CheckVersion;
  81.   CheckForStandardEMailProgram;
  82.   Application.CreateForm(TMainForm, MainForm);
  83.   Application.CreateForm(TMailOptionsForm, MailOptionsForm);
  84.   Application.CreateForm(TAddressForm, AddressForm);
  85.   Application.ProcessMessages;
  86.   SplashForm.Free;
  87.   if (ParamCount >= 1) and (LowerCase(ParamStr(1)) = '-min') then begin
  88.     Application.ShowMainForm := False;
  89.     MainForm.AppMinimize(Application);
  90.   end else begin
  91.     MainForm.Show;
  92.     if bShowTips then begin
  93.       TipsForm := TTipsForm.Create(Application);
  94.       TipsForm.ShowModal;
  95.       TipsForm.Free;
  96.     end;
  97.   end;
  98.   if MainForm.GetActualAccount = nil then MainForm.New1Click(Application);
  99.   if sWriteNewMessage1 <> '' then begin
  100.     MainForm.NewMessage(True, True, sWriteNewMessage2, sWriteNewMessage1, '', nil);
  101.     sWriteNewMessage1 := '';
  102.     sWriteNewMessage2 := '';
  103.   end;
  104.   if bGoOnlineAtStart then MainForm.GoOnline1Click(Application);
  105.   Application.Run;
  106.   ClearUpPX;
  107. end.
  108.