Lautsprechersteuerung

[EWeiss]

Zitat:

Leider hängt sich Delphi nach wie vor gnadenlos auf wenn ich die Demo aufrufe.

Rufe nicht die Projekt Datei auf die ist für D2010.
Verwende die AudioVolumeAdj_Eng.dpr

Wenn es dann immer noch nicht geht musst du es halt von Hand für D7 ändern.
Wie gesagt ich habe kein D7.

Hier wird das Volumen gesetzt

Delphi-Quellcode:

procedure TForm1.tbMasterVolumeChange(Sender: TObject);
begin
  AudioVolume1.SetMasterVolume((tbAppVolume.Max - tbMasterVolume.Position) / tbMasterVolume.Max);
end;

und so bekommst du aktuelle Position.
tbMasterVolume.Position := round((1.0 - AudioVolume1.GetMasterVolume) * tbMasterVolume.Max);

Wenn niemand hilft der D7 hat kann ich leider auch nichts mehr tun. Sorry

gruss