Delphi WEBBROWSER

A IE ti také vydává zvuky? Protože ta komponenta není nic jiného než jádro IE.
Pokud to zakážeš v IE, tak nebude klikat ani komponenta

Ano, ano, vím že to využívá jádro IE. Avšak tohle mě nenapadlo :)

Ještě bych se chtěl optat, zdali jdou vypnout celkově zvuky CELÉHO formuláře.. V událostech, nebo tak něco.

Zvuky (zvuk při kliknutí, navigaci apod.) jsou věcí prohlížeče, ne stránky.

S týmto nemá zrejme Delphi nič spoločné...
Zvuky sa mi v IE ani vo FF neobjavujú, avšak v komponente TWebBrowser pri navigácii áno.

Všetko je vec systému - otvor si ovládacie panely - zvuky a hľadaj udalosti programov.
U mňa (WIN7) je to položka "Začať navigáciu".
Ak to chceš "ošéfovať" programovo - potom si zmeň v registroch:
HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\ Navigating\.Current - hodnota Default znamená zvuk (Windows Navigation Start.wav)
1. Po spustení programu si hodnotu ulož
2. Zmeň hodnotu na prázdnu
3. Pred skončením programu obnov pôvodnú hodnotu

A na jakou hodnotu bych měl

HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\ Navigating\.Current - hodnota Default znamená zvuk (Windows Navigation Start.wav)

změnit ?

Tak jsem to zkoušel.

Napsal jsem to takhle -

 registry:=TRegistry.Create;
 registry.Rootkey:=HKEY_CURRENT_USER;
 registry.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current',False);
 registry.WriteString('(Výchozí)','test');
 registry.free ;

Avšak, původní hodnota se nepřepíše, ale vytvoří se nový záznam TEST...

Pokud zapisujes vychozi hodnotu, dela se to takto:

registry.WriteString('','test');

Nezapisoval jsem původní hodnotu.

V cestě

HKEY_CURRENT_USER\AppEvents\Schemes\Apps\Explorer\ Navigating\.Current

mam klíč označený jako

výchozí

, který obsahuje - Windows Navigation Start.wav

Zkoušel jsem přepsat Windows Navigation Start.wav na test.

"Vychozi hodnota" nema nazev. Zapisuje se jako prazdny retezec v nazvu klice.
Ted uz je ti to jasnejsi?
Pouzij priklad, ktery jsem uvedl misto toho tveho.

registry:=TRegistry.Create;
registry.Rootkey:=HKEY_CURRENT_USER;
if registry.OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current',False) then
  registry.WriteString('','test');
registry.CloseKey;
registry.free ;

Jo ták :)

Už to chápu.

Děkuji moc ! :)