21 lines
394 B
Plaintext
21 lines
394 B
Plaintext
uses Unit1;
|
|
|
|
{$IFDEF SMART_INTERNAL_AUTO_REFRESH}
|
|
uses SmartCL.AutoRefresh;
|
|
TW3AutoRefresh.Create.Start;
|
|
{$ENDIF}
|
|
|
|
var Application: TApplication;
|
|
|
|
{$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS}
|
|
uses SmartCL.System;
|
|
try
|
|
{$ENDIF}
|
|
Application := TApplication.Create;
|
|
Application.RunApp;
|
|
{$IFDEF SMART_INTERNAL_HANDLE_EXCEPTIONS}
|
|
except
|
|
on e: Exception do
|
|
ShowMessage(e.Message);
|
|
end;
|
|
{$ENDIF} |