Aufrufen von Audiodatein

[Harfi]

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?

[jaenicke]

TOpenDialog ist eine Komponente, die du unter Dialogs findest.
Interessant sind insbesondere die Eigenschaften Filter und nach dem Aufruf FileName.

// EDIT:
Zudem könntest du Sounds natürlich auch im Verzeichnis deines Programms mitliefern, dieses bekommst du mit ExtractFilePath(ParamStr(0)) heraus. ;-)

[Harfi]

dankeschön...das probier ich erstmal aus

[Harfi]

Ich bin auf ein problem gestoßen. Wenn ich einen Button hinzufüge, dann markiert er diesen und nimmt die tasteneingabe nicht mehr an, vermute ich. Wie kann ich das verhindern?

[Harfi]

keiner ne idee? wär echt nett wenn mir da jemand weiterhelfen könnte.

[DeddyH]

Hast Du KeyPreview des Formulars auf true gesetzt?

[Harfi]

ok...das war das problem...dankeschön :-D