Mega Code Archive
Include a wav file in your exe
<![CDATA[
{* Scroll down for English text. *}
{Schritt 1:
Erstelle eine Script Datei (*.RC) mit einem
Text Editor (z.B Notepad) und füge schreibe etwa folgendes:}
1 WAVE "MyWav.wav"
{'1' gibt den Index der Ressource an.
'WAVE' gibt an, dass es sich um eine Wave Datei handelt.
Und schliesslich gibt der dritte Eintrag den Namen der
Wave Datei an.
Schritt 2:
Speichere nun die Datei als MyWav.RC
Schritt 3:
Mit Borland's Resource Compiler, BRCC32.EXE,
wird die Datei nun in eine .RES Datei compiliert.
Im MS-DOS Prompt, im Verzeichnis wo sich MyWav.RC befindet,
nun folgendes eingeben:}
BRCC32 MyWav.RC
{Dies erzeugt eine Ressourcen-Datei MyWav.Res
Schritt 4:
Nun muss noch eine Compiler Directive dem Sourcecode hinzugefügt werden.
Der Eintrag sollte unmittelbar nach der Form Directive folgen, so wie hier:}
{$R *.DFM}
{$R MyWAV.RES}
{Schritt 5:
So kann dann die Wav-Datei abgespielt werden }
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar(1), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
end;
{
Es können natürlich auch mehrere .Wav Dateien in eine Exe-Datei
eingebunden werden.
Einfach eine andere Index Nummer nehmen und anstatt
PChar(1) PChar(Index) schreiben.
Tipp: Noch MMSystem der Uses Klausel hinzufügen!
}
{
STEP 1:
Create a resource script file (*.RC) with a simple text editor like
Notepad and add the following line:}
1 WAVE "MyWav.wav"
{The '1' is simply the index of the resource.
The 'WAVE' specifies that we are dealing with a WAVE FILE user-defined resource.
The third and final entry is the name of the Wav file.
STEP 2:
Save the file as MyWav.RC
STEP 3:
User Borland's Resource Compiler, BRCC32.EXE, to compile it into a .RES file.
At the MS-DOS command line, type:}
BRCC32 MyWav.RC
{This will create a resource file called MyWav.RES.
STEP 4:
Add a compiler directive to the source code of your program. It should immediately
follow the form directive, as shown here:}
{$R *.DFM}
{$R MyWAV.RES}
{STEP 5:
Add the following code to your project to play the sound:
}
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound(PChar(1), hInstance, SND_ASYNC or SND_MEMORY or SND_RESOURCE);
end;
{
You can add as many .Wav files as you want,
just by adding another index number to your list,
and call it using the PChar(index) in the PlaySound line.
Hint: MMSystem must be included in the uses clause!
}
]]>