| 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; |
|
|