Hallo liebe Delphi Praxis,
ich arbeite an einem kleinen Projekt, bei dem ich bei Tastendruck einen kurzen Ton abspielen will (async also so, dass das Programm in der Zeit nicht einfriert).
Ersteinmal habe ich ein Großes TRichEdit Feld auf der Form.
In den uses steht mmSystem;
Im OnKeyDown Ereignis der Form habe ich folgenden Quelltext:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
const
FileName = 'leer.wav';
begin
if (Key = VK_A) then
begin
MCISendString(PChar('play ' + FileName), nil, 0, 0);
end
end;
Unerklärlicherweise lässt sich das Programm nich kompilieren und spuckt eine Fehlermeldung
Undeklarierter Bezeichner für VK_A (VK_RETURN, also Enter Taste) funktioniert).
Ich hab es mit VK_RETURN probiert und erfolgreich kompiliert, jedoch kam kein Ton... auch kein Beep-Ton wie bei PlaySound...
Ich hoffe einer der hellen Köpfe kann mir helfen, bitte ausführlich und verständlich, sprich bitte mit Quelltext =)
Ich bin nicht der
Ober-Programmierer.
_____________________
Vielen Dank Dunkelbunt