procedure TForm2.play_snd(mode_ : Integer); var ini1:TINiFile;
begin
ini1:=TINiFile.Create(root+'wikibrowse.ini');
if ini1.ReadBool('system','sounds',false) then begin
        PlaySound(PChar(root+'Support\media'+inttostr(mode_)+'.wav'),0,SND_PURGE+SND_ASYNC);
end;
ini1.free;
End;