|
|
|
|
|
|
|
|
WLanguage procedure called by AppControl Procedure ("Callback") called by AppControl to process the remote control messages. This procedure must be global. // Project initialization code
// Customization with a procedure
AppControl("C:\MyApp\StopFile.Txt", AppControl_Callback)
// ----------------------------------
// -- AppControl_Callback global procedure
PROCÉDURE AppControl_Callback(AccessMode, MessageToDisplay, DispDuration)
SWITCH AccessMode
CASE acForbidden
IF UserName "ADMIN" THEN Open(WIN_UnableToConnect)
CASE acWarning
IF UserName <> "ADMIN" THEN Info(MessageToDisplay)
CASE acStop
IF UserName <> "ADMIN" THEN EndProgram()
END Syntax
AppControl_Callback(<Mode> , <Message> , <Display time>)
<Mode>: Integer constant Current remote control mode: | | | acForbidden | Access denied to the application.Caution: The program is not automatically stopped when the application is stopped: EndProgram must be found in your code in order to end the application. | | acStop | Application shutdown. | | acWarning | Warning of imminent shutdown. |
<Message>: Character string Message corresponding to the current mode. <Display time>: Integer Maximum display time of a window, if any (in seconds). |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|