|
program Agenda13;
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.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
