wavlyd uden ekstrafil

...altså så den ikke behøver at følge med som en seperat fil!

linker den på som en resource

Placer din wavfil i samme dir som dit project (vi lader som om, den hedder Mail.wav).

Åben NotePad og skriv:

MAILWAV WAVE Mail.wav

Gem filen som MAILRES.RC (Husk at sætte filtype til alle files, så den ikke bliver gemt som .txt)

Åben en command prompt og cd til det dir, hvor dit project ligger. Skriv:

brcc32 MailRes

Placer 2 TButton på en form og indsæt denne kode efter linien med {$R *.DFM} (det der står mellem Herfra og Hertil):

<--- Herfra

{$R MailRes.RES}

uses
  mmsystem;

const
  ResName = \'MAILWAV\';
  ResType = \'WAVE\';

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound(ResName, HInstance, SND_RESOURCE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  WavRes: Integer;
  WavResP: PChar;
begin
  WavRes := FindResource(HInstance, PChar(ResName), PChar(ResType));
  WavRes := LoadResource(HInstance, WavRes);
  WavResP := LockResource(WavRes);
  PlaySound(WavResP, HInstance, SND_MEMORY);
  UnLockResource(WavRes);
  FreeResource(WavRes);
end;

<--- Hertil


Den første OnClick spiller lyden fra din Resource, og den anden henter den ind i memory og spiller den derfra. Du vil sandsynligvis ikke kunne høre forskel, men det rigtigste er naturligvis, at hente lyden ind i memory først.

martinlind: Er det iorden for dig at pstric får fuld point for det svar?

Selvfølgelig han har jo lavet alt koden for dig *S*

/Martin

Oki! Du kom jo først - godt nok uden kode, men... :)

Jeg takker mange gange pstric.