1:

uses mmsystem;                    

1:

sndPlaySound(PChar(Filename),SND_ASYNC);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses mmsystem;

{$R sound.res}
{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle := FindResource(HInstance, PChar('SOUND1'), 'WAVE');
MyHandle := LoadResource(HInstance, MyHandle);
end;
begin
SndPlaySound(LockResource(MyHandle), SND_LOOP OR SND_MEMORY);
UnlockResource(MyHandle);
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm4.FormCreate(Sender: TObject);
var
FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'SOUND1', 'WAVE');
  if FindHandle<>0 then begin
    ResHandle:=LoadResource(HInstance, FindHandle);
    if ResHandle<>0 then begin
      ResPtr:=LockResource(ResHandle);
      if ResPtr<>Nil then
        SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory);
      UnlockResource(ResHandle);
    end;
    FreeResource(FindHandle);
  end;
end;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit Unit4; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ShellAPI, StdCtrls, mmsystem; 

type 
  TForm4 = class(TForm) 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    procedure FormCreate(Sender: TObject); 
    procedure Label3Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 



var 
  Form4: TForm4; 

implementation 

{$R sound.res} 
{$R *.dfm}


procedure TForm4.FormCreate(Sender: TObject); 
var 
FindHandle, ResHandle: THandle; 
  ResPtr: Pointer; 
begin 
FindHandle:=FindResource(HInstance, 'SOUND1', 'WAVE'); 
  if FindHandle<>0 then begin 
    ResHandle:=LoadResource(HInstance, FindHandle); 
    if ResHandle<>0 then begin 
      ResPtr:=LockResource(ResHandle); 
      if ResPtr<>Nil then 
        SndPlaySound(PChar(ResPtr), snd_ASync or snd_Memory); 
      UnlockResource(ResHandle); 
    end; 
    FreeResource(FindHandle); 
  end; 
end; 
procedure TForm4.Label3Click(Sender: TObject); 
begin 
ShellExecute( 0, 'open', PCHar ('http://www.bastardpop.co.uk'), nil, nil, sw_show); 
end; 

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
var
FindHandle, ResHandle: THandle;
  ResPtr: Pointer;
begin
FindHandle:=FindResource(HInstance, 'SOUND1', 'WAVE');
  if FindHandle<>0 then begin
    ResHandle:=LoadResource(HInstance, FindHandle);
    if ResHandle<>0 then begin
      ResPtr:=LockResource(ResHandle);
      if ResPtr<>Nil then
        sndPlaySound(PChar(ResPtr), SND_ASYNC);
      UnlockResource(ResHandle);
    end;
    FreeResource(FindHandle);
  end;
end;                    

1:
2:
3:
4:

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  sndPlaySound(nil, 0);
end;                    

1:
2:

' Sound stoppen:
sndPlaySound vbNullString, SND_ASYNC