procedure open_web_page(url:String);
var ini1:TIniFile; inetpath:String;
begin
ini1:=TIniFile.Create(form1.root+'wikibrowse.ini');
inetpath:=ini1.ReadString('system','web_browser','');
StrReplace(inetpath,'%url%',url, [rfIgnoreCase, rfReplaceAll]);
inetpath:=form1.compile_path(inetpath);
if trim(inetpath)='' then ShellExecute(0,'open',PChar(url),nil,nil,SW_MAXIMIZE)
else WinExec(PChar(inetpath),SW_MAXIMIZE);
ini1.free;
End;