Thema: Delphi Aufrufen von Audiodatein

Einzelnen Beitrag anzeigen

Harfi

Registriert seit: 3. Okt 2008
Ort: MV
44 Beiträge
 
Turbo Delphi für Win32
 
#1

Aufrufen von Audiodatein

  Alt 5. Mär 2009, 15:35
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!"
  Mit Zitat antworten Zitat