ein Buchstaben Ticker mit Timer & PlaySound

[City Light]

Hallo ich versuche einen Buchstaben Ticker zu bauen ,aber so das bei jedem Buchstabe ein Sound zu hören ist...nur ist mir diese Methode zu langsam. Gibt es die Möglichkeit es schneller zu machen :?:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
const
  MATRIX_TEXT = 'Wake up Neo';
begin
  with label1 do
  begin
    if Length(Caption) < Length(MATRIX_TEXT) then
      Caption := Caption + MATRIX_TEXT[Length(Caption) + 1];
    PlaySound('c:\Sound.wav', 0, SND_FILENAME);
  end;
end;

[DennyC]

Hallo!

Also soweit ich das einschätzen kann, ist es wohl der Befehl PlaySound, der Deinen Ticker bremst. Denn in dieser Form wartet Dein Programm, bis der Sound fertig abgespielt ist. Um dem entgegen zu wirken, versuch's mal damit:

Delphi-Quellcode:

PlaySound('c:\Sound.wav', 0, SND_FILENAME OR SND_ASYNC);

Denny

[edit=Daniel B]Delphi-Tags eingefügt. MfG Daniel B.[/edit]

[City Light]

Hi DennyC

ja danke ,aber das hatte ich auch schon versucht. Bei mir bleibt der Sound weg und spielt Sie nur ein einzieges mal ab...wenn man aber die Boxen ganz laut stellt kann man es aber hören das es geht ,nur sehr sehr leise und am schluß dann richtig laut, meine Musik file ist 0.15 sec lang , Vorschläge :?: