Lautstärke auf XP ändern mit delphi

[Noobinator]

Hy leute

Ich brauche mal wieder eure geniale hilfe

und zwar bastele ich mir gerade einen Mediaplayer zusammen.
Nun ist das Ganze ein Schulprojekt, und auf unseren Schulrechnern ist die Systemlautstärke deaktiviert.
kann man diese irgendwie im Formcreate aktivieren, und dann die Lautstärke über ein Spinedit einstellen?

Ich habe schon Google und die SuFu gefordert, aber da habe ich nichts gefunden, was mir wirklich hilft.
Vielleicht bin ich auch zu dumm zum suchen

naja hoffe ihr könnt mir helfen

Mfg
Noobinator

[Evian]

Geh mal zu den Schweizern und geb in die Suchleiste "Lautstärke" ein. Es gibt dort mehrere Artikel zu diesem Thema und der Code ist auch relativ einfach.

[Noobinator]

Zitat von Evian:

Geh mal zu den Schweizern und geb in die Suchleiste "Lautstärke" ein. Es gibt dort mehrere Artikel zu diesem Thema und der Code ist auch relativ einfach.

hmm ich check den trotzdem nicht...
könnte das mal bitte posten und kommentieren? wäre echt nett.
achso brauche nicht nur das ändern, sondern erstmal das aktivieren der Lautstärke.
Oder geht das automatisch? also dass der sound aktiviert wird, sobald man die Lautstärke hochschraubt?

[SirThornberry]

schau mal hier, da ist die Funktion in 2facher Ausführung vorhanden:
http://www.delphipraxis.net/internal...ct.php?t=73473

[Noobinator]

ich habe diesen Code jetzt in meine Unit eingebunden
[code=delphi]uses
MMSystem;

function GetMasterMute(
Mixer: hMixerObj;
var Control: TMixerControl): MMResult;
// Returns True on success
var
Line: TMixerLine;
Controls: TMixerLineControls;
begin
ZeroMemory(@Line, SizeOf(Line));
Line.cbStruct := SizeOf(Line);
Line.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;
Result := mixerGetLineInfo(Mixer, @Line,
MIXER_GETLINEINFOF_COMPONENTTYPE);
if Result = MMSYSERR_NOERROR then
begin
ZeroMemory(@Controls, SizeOf(Controls));
Controls.cbStruct := SizeOf(Controls);
Controls.dwLineID := Line.dwLineID;
Controls.cControls := 1;
Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;
Controls.cbmxctrl := SizeOf(Control);
Controls.pamxctrl := @Control;
Result := mixerGetLineControls(Mixer, @Controls,
MIXER_GETLINECONTROLSF_ONEBYTYPE);
end;
end;

procedure SetMasterMuteValue(
Mixer: hMixerObj;
Value: Boolean);
var
MasterMute: TMixerControl;
Details: TMixerControlDetails;
BoolDetails: TMixerControlDetailsBoolean;
Code: MMResult;
begin
Code := GetMasterMute(0, MasterMute);
if Code = MMSYSERR_NOERROR then
begin
with Details do
begin
cbStruct := SizeOf(Details);
dwControlID := MasterMute.dwControlID;
cChannels := 1;
cMultipleItems := 0;
cbDetails := SizeOf(BoolDetails);
paDetails := @BoolDetails;
end;
LongBool(BoolDetails.fValue) := Value;
Code := mixerSetControlDetails(0, @Details,
MIXER_SETCONTROLDETAILSF_VALUE);
end;
if Code <> MMSYSERR_NOERROR then
raise Exception.CreateFmt('SetMasterMuteValue failure, '+
'multimedia system error #%d',

Code:

);
end;

und das ins Formcreate geschrieben:

SetMasterMuteValue(100,true); nur irgendwie geht das doch nicht.
woran liegt das?

ok habe es Geschafft^^ mein Fehler lag hier:

SetMasterMuteValue(100,false);/false statt true danke euch

[Noobinator]

ok doch noch ne Frage.. wie kann ich mithilfe eines Spinedit die Lautstärke ändern?
habe das in diesem Quellcode nicht gefunden...
bräuchte ich noch...
MFG
Noobinator

[mOzZzI]

Zitat von Noobinator:

ok doch noch ne Frage.. wie kann ich mithilfe eines Spinedit die Lautstärke ändern?
habe das in diesem Quellcode nicht gefunden...
bräuchte ich noch...
MFG
Noobinator

Hi,
*Antwort aus dem Arm rüttel*

Delphi-Quellcode:

{Timer auf die Form und im OnTimer Ereignis diesen Code einfügen}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 SetMasterMuteValue(spinedit1.Value,false);
end;

Grüße Philipp

[SirThornberry]

mit dem oben geposteten source stellt man nur ein ob mute oder nicht. Die Lautstärke wird damit überhaupt nicht gesetzt.

[mOzZzI]

Zitat von SirThornberry:

mit dem oben geposteten source stellt man nur ein ob mute oder nicht. Die Lautstärke wird damit überhaupt nicht gesetzt.

SetMasterMuteValue

sry

[Noobinator]

ja das habe ich auch gemerkt... aber wie geht jetzt die Lautstärke?