simail.dpr

siMail, siMail, siMail, siMail

(*
# (C) Copyright 2003
# Miha Vrhovnik, [e-mail]
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of
# the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.	See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston,
# MA 02111-1307 USA
#
# The Initial Developer of the Original Code is Miha Vrhovnik (Slovenia).
# Portions created by Miha Vrhovnik are Copyright (c)2000-2003.
# All Rights Reserved.
#==============================================================================
# Contributor(s):
#==============================================================================
# History: see whats new.txt from distribution package
#==============================================================================
*)

program siMail;

{%ToDo 'siMail.todo'}

uses
  Forms,
  Windows,
  Messages,
  Dialogs,
  fMain in 'fMain.pas' {frmMain},
  mailBox in 'mailBox.pas' {frmMailbox},
  addressBook in 'addressBook.pas' {frmAddressBook},
  maillist in 'maillist.pas' {frmMaillist},
  fMailView in 'fMailView.pas' {frmMailView},
  account in 'account.pas',
  fSplash in 'fSplash.pas' {frmSplash},
  fNewAccServerProperties in 'fNewAccServerProperties.pas' {frmNewAccServerProperties},
  fAbout in 'fAbout.pas' {frmAbout},
  fCompose in 'fCompose.pas' {frmCompose},
  fPreview in 'fPreview.pas' {frmPreview},
  tasks in 'tasks.pas' {frmTasks},
  pop3 in 'pop3.pas',
  fMailboxInfo in 'fMailboxInfo.pas' {frmMailboxInfo},
  fMyInputBox in 'fMyInputBox.pas' {frmMIB},
  fAccountProperties in 'fAccountProperties.pas' {frmAccountProperties},
  task in 'task.pas',
  fMessageInfo in 'fMessageInfo.pas' {frmMessageInfo},
  fProfiles in 'fProfiles.pas' {frmProfiles},
  fContact in 'fContact.pas' {frmContact},
  fSignatures in 'fSignatures.pas' {frmSignatures},
  fSignatureEdit in 'fSignatureEdit.pas' {frmSignatureEdit},
  cidClass in 'cidClass.pas',
  fSettings in 'fSettings.pas' {frmSettings},
  fFlagPrepare in 'fFlagPrepare.pas' {frmFlagPrepare},
  smtp in 'smtp.pas',
  fProfileEdit in 'fProfileEdit.pas' {frmProfileEdit},
  fNotification in 'fNotification.pas' {frmNotification},
  addrBk in 'addrBk.pas',
  addrBk_frm in 'addrBk_frm.pas' {frmAddrBk},
  fNewAccountWizard in 'fNewAccountWizard.pas' {frmNewAccountWizard},
  fExportMessagesWizard in 'fExportMessagesWizard.pas' {frmExportMessagesWizard},
  defFldrs in 'defFldrs.pas',
  fDefaultClient in 'fDefaultClient.pas' {frmDefaultClient},
  prevInst in 'prevInst.pas',
  dImages in 'dImages.pas' {dmImages: TDataModule},
  flatMime in 'flatMime.pas',
  update in 'update.pas',
  fThemes in 'fThemes.pas' {frmThemeConfig},
  plgAttach in 'plgAttach.pas',
  uBoyerMoore in 'uBoyerMoore.pas',
  plugInManager in 'plugInManager.pas',
  MW37 in 'Plug-ins\Import\Messages\MailWarrior\MW37.pas',
  fImportMessagesWizard in 'fImportMessagesWizard.pas' {frmImportMessagesWizard},
  fExceptionDialog in 'fExceptionDialog.pas' {frmExceptionDialog},
  uThemes in 'uThemes.pas',
  fCustomizeButtons in 'fCustomizeButtons.pas' {frmToolbarEdit};

{$R *.res}
var Mutex: THandle;

  procedure CheckPrevInst;
  begin
    Mutex := OpenMutex(MUTEX_ALL_ACCESS, False, 'SingleInstanceSi.MailProgramMutex');
    if Mutex = 0 then begin //mutex doesn't exists
      Mutex := CreateMutex(nil, False, 'SingleInstanceSi.MailProgramMutex');
    end
    else begin
      CloseHandle(Mutex);
      Halt;
    end;
  end;

begin
  Application.Initialize;
  Application.Title := 'si.Mail';
  PreviousInstance(Application.ExeName);
  CheckPrevInst;

  frmSplash := TfrmSplash.Create(nil);
  with frmSplash do
    try
      Show;
      Update;

      Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmNewAccServerProperties, frmNewAccServerProperties);
  Application.CreateForm(TfrmAbout, frmAbout);
  Application.CreateForm(TfrmPreview, frmPreview);
  Application.CreateForm(TfrmTasks, frmTasks);
  Application.CreateForm(TfrmMailboxInfo, frmMailboxInfo);
  Application.CreateForm(TfrmAccountProperties, frmAccountProperties);
  Application.CreateForm(TfrmMessageInfo, frmMessageInfo);
  Application.CreateForm(TfrmContact, frmContact);
  Application.CreateForm(TfrmSignatures, frmSignatures);
  Application.CreateForm(TfrmSignatureEdit, frmSignatureEdit);
  Application.CreateForm(TfrmSettings, frmSettings);
  Application.CreateForm(TfrmFlagPrepare, frmFlagPrepare);
  Application.CreateForm(TfrmProfileEdit, frmProfileEdit);
  Application.CreateForm(TfrmNotification, frmNotification);
  Application.CreateForm(TfrmAddrBk, frmAddrBk);
  Application.CreateForm(TfrmNewAccountWizard, frmNewAccountWizard);
  Application.CreateForm(TfrmExportMessagesWizard, frmExportMessagesWizard);
  Application.CreateForm(TfrmImportMessagesWizard, frmImportMessagesWizard);
  Close;
      repeat
        Application.ProcessMessages;
      until CloseQuery;
    finally
      Free;
    end;

  Application.Run;

  ReleaseMutex(Mutex);
  CloseHandle(Mutex);
end.