| 1 | program SunriseChat;
|
|---|
| 2 |
|
|---|
| 3 | {%TogetherDiagram 'ModelSupport_SunriseChat\default.txaPackage'}
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Forms,
|
|---|
| 7 | UMainWindow in 'UMainWindow.pas' {MainWindow},
|
|---|
| 8 | USunriseChatCore in 'USunriseChatCore.pas' {SunriseChatCore: TDataModule},
|
|---|
| 9 | UAutoRegistry in 'UAutoRegistry.pas',
|
|---|
| 10 | UInfoWindow in 'UInfoWindow.pas' {InfoWindow},
|
|---|
| 11 | UOptionsWindow in 'UOptionsWindow.pas' {OptionsWindow},
|
|---|
| 12 | UAboutWindow in 'UAboutWindow.pas' {AboutWindow},
|
|---|
| 13 | UNetworkTest in 'UNetworkTest.pas' {NetworkTest},
|
|---|
| 14 | UNewRoom in 'UNewRoom.pas' {NewRoom},
|
|---|
| 15 | UPing in 'UPing.pas',
|
|---|
| 16 | ULogExceptions in 'ULogExceptions.pas' {LogExceptions},
|
|---|
| 17 | ULocalization in 'ULocalization.pas' {Localization: TDataModule},
|
|---|
| 18 | UTextFileStream in 'UTextFileStream.pas',
|
|---|
| 19 | UWaitingDialog in 'UWaitingDialog.pas' {WaitingDialog},
|
|---|
| 20 | UEthernetAddress in 'UEthernetAddress.pas';
|
|---|
| 21 |
|
|---|
| 22 | {$R *.res}
|
|---|
| 23 | {$R WindowsXP.RES}
|
|---|
| 24 |
|
|---|
| 25 | begin
|
|---|
| 26 | Application.Initialize;
|
|---|
| 27 | Application.CreateForm(TSunriseChatCore, SunriseChatCore);
|
|---|
| 28 | Application.CreateForm(TLocalization, Localization);
|
|---|
| 29 | Application.CreateForm(TMainWindow, MainWindow);
|
|---|
| 30 | Application.CreateForm(TLogExceptions, LogExceptions);
|
|---|
| 31 | LogExceptions.AppVersion := ClientVersion;
|
|---|
| 32 | LogExceptions.AppReleaseDate := ClientReleaseDate;
|
|---|
| 33 | Application.CreateForm(TWaitingDialog, WaitingDialog);
|
|---|
| 34 | if not MainWindow.StopProgram then begin
|
|---|
| 35 | Application.CreateForm(TNewRoom, NewRoom);
|
|---|
| 36 | Application.CreateForm(TInfoWindow, InfoWindow);
|
|---|
| 37 | Application.CreateForm(TOptionsWindow, OptionsWindow);
|
|---|
| 38 | Application.CreateForm(TAboutWindow, AboutWindow);
|
|---|
| 39 | Application.CreateForm(TNetworkTest, NetworkTest);
|
|---|
| 40 | Application.Run;
|
|---|
| 41 | end;
|
|---|
| 42 | end.
|
|---|
