В Assistant WebMatser пользователи жаловались, что их раздражают «щелчки» при обработке страниц программой (программа использует двиг IE). Ну и в инете есть способы решения этой проблемы, но они не работают (хотя в теории — должны) или сообщения, типа, выключается в реестре там-то, но некоторым лень самим писать код и ищут уже готовенький :). В общем, ниже процедура, которая включает или отключает эти щелчки (кстати, скоро будет релиз dll Assistant WebMatser, в которой будут некоторые полезные процедуры и функции, в том числе и эта).
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
procedure EnableDisableIESound(option: integer); function GetSpecialPath(CSIDL: word): string; var s: string; begin SetLength(s, MAX_PATH); if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true) then s := ''; result := PChar(s); end; var Reg: TRegistry; begin if option=1 then begin {on} Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', true); Reg.WriteString('',GetSpecialPath(CSIDL_WINDOWS) +'\media\Windows Navigation Start.wav'); Reg.CloseKey; except ShowMessage('RegError #'); {RegError #1} Exit; end; Reg.Free; end else begin {off} Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', true); Reg.WriteString('',''); Reg.CloseKey; except ShowMessage('RegError #2'); {RegError #2} Exit; end; Reg.Free; end; end; |
Вызов:
1 2 |
EnableDisableIESound(1); // для включения "шелчков" EnableDisableIESound(0); // для отключения "щелчков" |