ShellExecute Eigenschaften!

[Hansa]

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