Einzelnen Beitrag anzeigen

Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#7
  Alt 7. Feb 2003, 20:03
Hi Christian,

folgendes hier :

Code:
procedure Ttest.DBEdit24DblClick(Sender: TObject);
begin
  WaveAbspielen ('\WINNT\Media\Utopia Windows starten.WAV');
//  ShellExecute(0, 'open',PChar('WINWORD') , nil, nil, SW_SHOW);
  ShellExecute(0, 'open',PChar('http://'+DBEdit14.Text) , nil, nil, SW_SHOW);
end;
spielt mir eine Wave-Datei ab, während der Browser gestartet wird, ohne ihn zu stören. Da hat die Form nix damit zu tun.

Nein, das stimmt so nicht. Nehme alles zurück und behaupte das Gegenteil und lasse es trotzdem so stehen. Aber folgendes ist in diesem Zusammenhang auch noch interessant:

Code:
PROCEDURE WaveAbspielen (DateiName : string);
  VAR flag : byte;
  BEGIN
    flag:=SND_ASYNC;
    sndPlaySound(PChar (DateiName), Flag);
  END;
Die Wave-Datei hat mich irritiert. Das SND_ASYNC sorgt für das beschriebene Verhalten.

Gruß
Hansa
  Mit Zitat antworten Zitat