While SHowMessage play sound

[k4ni]

Hey, ich habe eine frage, wie kann cih machen das es in der zeit solang ein msgdialog (ShowMessage()) auf ist das es inder zeit einen bestimmten sound abspielt bis man auf ok klickt ?

Also ich dachte daran:

Delphi-Quellcode:

while ShowMessage('klololol') do
sndPlaySound(PChar('logged.wav'),SND_ASYNC);

geht aber nicht weil er einen Boolean wert erwartet, wie muss ich vorgehen ?

[SirThornberry]

Delphi-Quellcode:

//Was hier steht wird gemacht bevor die Message angezeigt wird
ShowMessage('irgendwas');
//Was hier steht wird erst gemacht wenn die Nachricht nicht mehr angezeigt wird

Wenn du das beachtest solltest du die Lösung finden (das ist ja die Aufgabe des Programmierers)

[DeddyH]

Ich würde es so versuchen (Pseudo-Code):

Delphi-Quellcode:

StarteSound(Loop);
if MessageBox(...) = idOK then
  StoppeSound;

[k4ni]

yo daran hab ich auch gedacht dann hab ichs so gemacht

Delphi-Quellcode:

sndPlaySound(PChar('C:\Datei.wav'),SND_LOOP);
ShowMessage('irgendwas');
sndPlaySound(nil,0);

doch so spielt er den sound nur einmal ab :(
(http://www.dsdt.info/tipps/?id=350)


Ich versuch mal was Deddyh sagte, danke!!

[DeddyH]

So geht' s:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(PChar('E:\Stenkelfeld\Aspirin.wav'),0,SND_ASYNC or SND_LOOP);
  showmessage('Huhu');
  PlaySound(nil,0,0);
end;

[k4ni]

yopp DeddyH, danke fuer deine schnelle hilfe, geht super!!!