Quelle  Autor.dpr

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

{%TogetherDiagram 'ModelSupport_Autor\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\rtf2html\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\AboutBox\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\Autor\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\OptionClassGen\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\UtilitiesOwn\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\main\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\Browser\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\Utilities\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\UniRtf2HtmlUnit1\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\OptionClass\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\GIFImage\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\reSplash\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\Interfaces\default.txaPackage'}
{%TogetherDiagram 'ModelSupport_Autor\default.txvpck'}
{%TogetherDiagram 'ModelSupport_Autor\main\default.txvpck'}
{%TogetherDiagram 'ModelSupport_Autor\Autor\default.txvpck'}
{%DotNetAssemblyCompiler '..\Columbo IDE\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',
  AboutBox in 'AboutBox.pas',
  reSplash in 'reSplash.pas' {SplashForm},
  Utilities in '..\Delphi Utilities\Utilities.pas',
  OptionClass in 'OptionClass.pas' {OptionDialog},
  OptionClassGen in '..\Delphi Utilities\OptionClassGen.pas' {OptionDialogGen},
  GIFImage in '..\externer Code\GIFImage\GIFImage.pas',
  Interfaces in '..\Columbo IDE\Sources\Interfaces.pas',
  mysql in 'mysql.pas',
  DBAccess in 'DBAccess.pas',
  Lizenz in 'Lizenz.pas' {Aktivform};

{$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(Title)));
    //checklicensesum();
    setlicenseMachineId(GetWinProductId());
    // free version
    SetSecretRegistryValue(Installkey,Opt.r.DaysUsed,ProductNumber);
    SetSecretFile(Installkey,Opt.r.DaysUsed,ProductNumber);
    SplashForm := TSplashForm.Create(Application);
    SplashForm.Show;
    SplashForm.Update;
    Application.Title := 'Autor';
    Application.Icon.LoadFromFile('autor.ico');
    Application.HelpFile:= 'autor.hlp';
    Application.CreateForm(TForm1, Form1);
    Application.CreateForm(TAktivform, Aktivform);
    SplashForm.Close;
    Application.Run;
    Opt.R.Activated:=true;
    // activate
    Opt.r.WindowsProductId:=GetWinProductId;
    Opt.SetDaysUsed(Installkey,Productnumber);
    //setlicensesum();
    Opt.putoptions(PChar(OptionsfileName(Title)));
    Form1.Destroy
  end;
end.