Afspilning af lyd

Kode 

PlaySound(PChar('C:\\Documents and setting\\flyvemaskine\\brandbil....lyd.wav'),0,SND_ASYNC);

Hvis det er WAV filer du vil have til at afspille kan du gøre sådan her:


TIlføje MMSystem til Uses.

Så bruger du denne kode:

Kode 

PlaySound(PChar('C:\\Documents and setting\\flyvemaskine\\brandbil....lyd.wav'),0,SND_ASYNC);

Du kan bare ændre stien til filen!

Håber du kan bruge den

Hilsen Morten

Kode 

Var dir: string;
Begin
dir := ExtractFilePath(Application.ExeName);
PlaySound(PChar(dir + 'brandbil....lyd.wav'),0,SND_ASYNC);