FormClose method |
Applies to
TForm2
Declaration
procedure FormClose(Sender: TObject; var Action: TCloseAction);Implementation
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin try if get_ini_params('system','trig_manager')='1' then WinExec(PChar('"'+root+'wbaccnter.exe" f'),1); _log.Add('WikiBrowse Shutdown Init at : '+DateTimeToStr(now)); Application.Terminate; except on E : Exception do _log_entry_error(E.ClassName,E.Message,'E10000'); end;End; |
|