Hallo,
ich wollte mich mal mit etwas, für mich neuem, beschäftigen- Audiodatein. Der nötige Code war auch schnell gefunden. Das Programm soll beim drücken einer Taste einn bestimmte Audiodatei abspielen. So weit so gut:
Delphi-Quellcode:
unit U_Keysound;
interface
uses
mmSystem,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TKeysound1 =
class(TForm)
procedure FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Keysound1: TKeysound1;
implementation
{$R *.dfm}
procedure TKeysound1.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if (key= 112)
then sndPlaySound(PChar('
C:\BLEEP20.wav'),SND_ASYNC);
end;
end.
Nun soll man natürlich nicht immer den Quellcode ändern um ein andere Datei abspielen zu können. Dem Namen (C:\BLEEP20.wav) der Datei sollte man wohl eine Variable zuordnen können, doch wie erzeuge ich ein Fenster mit dem man diesen Namen ausliest?(bzw die datei auswählt) Ich stell mir sowas wie vor wie das "öffnen-fenster" wohl jeder windowsanwendung. Gibt es dafür ein Befehl...oder bessere Lösungsmöglichkeiten?
Telefonieren zwei Informatiker:"Na, wie ist das Wetter bei Dir?"... "Caps Lock."..."Hä?"..."Shift ohne Ende!"