Quelle  Agenda.dpr   Sprache: Delphi

program Agenda;

uses
  Forms, Windows, Dialogs,
  Utilities in 'Utilities.pas',
  Feedback in 'Feedback.pas' {Feedform},
  reabout in 'reabout.pas'   {AboutBox},
  reAlert in 'reAlert.pas'   {AlertBox},
  reEditor in 'reEditor.pas' {Editor},
  reLang in 'reLang.pas'     {LangBox},
  reAgenda in 'reAgenda.pas' {MainForm1},
  reOption in 'reOption.pas' {OptionBox},
  reSounds in 'reSounds.pas' {SoundsBox},
  reSpeech in 'reSpeech.pas' {SpeechBox},
  reSplash in 'reSplash.pas' {SplashForm},
  reThreads in 'reThreads.pas',
  reThreads2 in 'reThreads2.pas',
  reThreads3 in 'reThreads3.pas',
  DBAccess in 'DBAccess.pas',
  MailData in 'MailData.pas' {MailForm},
  SpeechLib_TLB in '..\..\..\externer Code Agenda und Columbo\Speech Delphi 7 package\SpeechLib_TLB.pas';

{$R *.res}
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, False, PChar(AppName));
  if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    ShowMessage(' :-( ');
  end else  begin
    Application.Initialize;
    Application.Title    := 'Agenda';
    Application.HelpFile := 'agenda.hlp';
    Application.CreateForm(TMainForm1, MainForm1);
    Application.Run;
  end;
  MainForm1.Free;
  ExitProcess(0);
  //TerminateProcess(0,0);
end.