27 lines
440 B
Plaintext
27 lines
440 B
Plaintext
uses MainUnit;
|
|
|
|
{$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS}
|
|
uses W3System;
|
|
{$ENDIF}
|
|
|
|
{$IFDEF SMART_INTERNAL_AUTO_REFRESH}
|
|
uses W3AutoRefresh;
|
|
TW3AutoRefresh.Create.Start;
|
|
{$ENDIF}
|
|
|
|
var Application: TApplication;
|
|
|
|
{$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS}
|
|
try
|
|
{$ENDIF}
|
|
|
|
Application := TApplication.Create;
|
|
Application.RunApp;
|
|
|
|
{$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS}
|
|
except
|
|
on e: Exception do
|
|
ShowMessage(e.Message);
|
|
end;
|
|
{$ENDIF}
|