program Autor;
//------------------------------------------------------------------------------
//
//        Probleme/offene Punkte
//
//    1. ftp-Zugang
//    2. Upload
//    3. XML-Parsing
//    4. Webseite
//    5. Lizenz festlegen
//    ...
//
//------------------------------------------------------------------------------




{%DotNetAssemblyCompiler '..\Columbo Optionen\OptionsDll.dll'}

uses
  Forms,
  Windows,
  Dialogs,
  SysUtils,
  Browser in 'Browser.pas' {MainForm},
  main in 'main.pas' {Form1},
  UtilitiesOwn in 'UtilitiesOwn.pas',
  UniRtf2HtmlUnit1 in 'UniRtf2HtmlUnit1.pas',
  rtf2html in 'rtf2html.pas',
  OptionClass in 'OptionClass.pas' {OptionDialog},
  AboutBox in 'AboutBox.pas',
  GIFImage in '..\externer Code Agenda und Columbo\GIFImage\GIFImage.pas',
  reSplash in 'reSplash.pas' {SplashForm},
  OptionClassGen in 'OptionClassGen.pas' {OptionDialogGen},
  Utilities in '..\Columbo IDE und Batch\Sources\Utilities.pas';

{$R *.res}
//------------------------------------------------------------------------------
//        Uses
//------------------------------------------------------------------------------
var
  Mutex : THandle;
begin
  Mutex := CreateMutex(nil, False, PChar(Title));
  if (Mutex = 0) OR (GetLastError = ERROR_ALREADY_EXISTS) then
  begin
    ShowMessage('Autor läuft bereits!');
  end else  begin
    //------------------------------------------------
    // memory tracking
    //------------------------------------------------
    GlobalMemoryStatus(MS);InitialMemory:=MS.dwAvailPhys;
    Application.Initialize;
    Opt.InitOptions(PChar(OptionsfileName(Productnumber)));
    SplashForm := TSplashForm.Create(Application);
    SplashForm.Left:=Opt.r.Left+Opt.r.Width div 2-SplashForm.Width div 2;
    SplashForm.Top:=Opt.r.Top+opt.r.Height div 2-SplashForm.height div 2;
    SplashForm.Show;
    SplashForm.Update;
    Application.Title := 'Autor';
    Application.Icon.LoadFromFile('autor.ico');
    Application.HelpFile:= 'autor.hlp';
    Application.CreateForm(TForm1, Form1);
    SplashForm.Close;
    Application.Run;
    Opt.putoptions(PChar(OptionsfileName(Productnumber)));
    Form1.Destroy
  end;
end.