Danke für die Antworten,
ich probiere beide aus.
Ergebnis dann im EDIT =)
EDIT:
Ich habe das Nummern-Sprechprogramm versucht.
Ersteinmal will ich fragen ob es nur bei mir so ist, dass die Wav Dateien irgendwie abgehackt klingen also Fün.... statt Fünf.
Außerdem:
bei mir kommt ersteinmal nur ein Beep Ton =(
Schreibe ich meine Zahlen in ein EditFeld, passiert auch nichts =(
Woran kanns liegen?
Ich habe genau den Quelltext benutzt...
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, mmSystem, StdCtrls;
type
TForm1 =
class(TForm)
procedure FormKeyPress(Sender: TObject;
var Key: Char);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function ApplicationPath:
string;
// Hilfsfunktion
begin
Result := ExtractFilePath(ParamStr(0));
end;
procedure TForm1.FormKeyPress(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;
end.