WikiBrowse_CentralClick method

Applies to
TForm2

Declaration
procedure WikiBrowse_CentralClick(Sender: TObject);

Implementation

procedure TForm2.WikiBrowse_CentralClick(Sender: TObject);
var ini1:TIniFile; str1:String;
begin try
if Sender<>nil then play_snd(1);
ini1:=TINiFile.Create(root+'wikibrowse.ini');
str1:=trim(compile_path(ini1.ReadString('system','wikibrws_cntrl','')));
if StrLeft(str1,1)<>'"' then str1:='"'+str1;
WinExec(PChar(str1),1);
ini1.Free;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'E30000');
end;End;


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