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;


HTML generated by Time2HELP
http://www.time2help.com