Delphi: Zvuk pri refreshe stranky.

Mmartin

Ahoj, mam v programe element TWebBrowser, no pri kazdom refreshi stranky tak akoby potichu buchne. Neviete niekto, ako tomuto predist?

je to vec nastavenia windowsu, takže jediná vec čo mi napadne je to pri štarte vypnúť a pri vypnutí zapnúť späť. Je to škaredé riešenie, ale funguje.

Kód: Vybrať všetko

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnActivate := AppActivate;
  Application.OnDeactivate := AppDeactivate;
end;

procedure TForm1.AppActivate(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', False);
    if ReadString('') <> '' then
      RememberSoundFile := ReadString('');
    WriteString('', '');
  finally
    Free;
  end;
end;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_CURRENT_USER;
    OpenKey('AppEvents\Schemes\Apps\Explorer\Navigating\.Current', False);
    WriteString('', RememberSoundFile);
  finally
    Free;
  end;
end;

RememberSoundFile je globálna premenná

Mmartin

Diky moc, funguje perfektne, az na to, ze mi vyhadzuje tuto hlasku (priloha).
To ma byt co? Google moc nepomohol v tuto chvilu

to je ťažko povedať keď neviem čo všetko máš v zdrojáku. Odkrokuj si to a uvidíš kde a prečo ti to hádže

Mmartin

Uz to fahci, mal som bordel v premennach.

Delphi: Zvuk pri refreshe stranky.

Delphi: Zvuk pri refreshe stranky.

Re: Delphi: Zvuk pri refreshe stranky.

Re: Delphi: Zvuk pri refreshe stranky.

Re: Delphi: Zvuk pri refreshe stranky.

Re: Delphi: Zvuk pri refreshe stranky.