|
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.
¤ Dauer der Verarbeitung: 0.26 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
