Tastenton bei Tastendruck

[shmia]

Hier mal ein Beispiel, wie man die Ziffern 0 bis 9 sprechen lassen kann.

Delphi-Quellcode:

uses ..., MMSystem {benötigt für PlaySound()};

function ApplicationPath: string;  // Hilfsfunktion
begin
   Result := ExtractFilePath(ParamStr(0));
end;

procedure TFrmTest.EditLieferscheinNrKeyPress(Sender: TObject;
  var Key: Char);
var
   s:string;
begin
   if Key in ['0'..'9'] then
   begin
      // Wave-Datei liegen im Unter-Verzeichnis "Wave"
      // also "0.wav" bis "9.wav"
      s := ApplicationPath+'Wave\'+ Key+'.WAV';
      PlaySound(PChar(s), 0, SND_FILENAME or SND_ASYNC);
   end;
end;

Das Archiv im Anhang enthält die 10 Wave-Dateien.