procedure TForm1.AboutWikiBrowse1Click(Sender: TObject);
begin try
if Sender<>nil then play_snd(1);
WinExec(PChar('"'+root+'wbcmrun.exe" "'+root+'support\about_wb.wmc"'),1);
except end;End;