unit MC_Long;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,MMSystem, jpeg, StdCtrls;//MMSysTem是Windows API 的接口，里面有API函數的聲明

type
  TLong = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
  private
         PtrSound : PChar;
         Sound_hRes: THandle;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Long: TLong;

implementation

{$R *.DFM}
{$R SOUND.RES}
procedure TLong.FormShow(Sender: TObject);
var SoundInfo : THandle;
begin
  SoundInfo := FindResource(HInstance,'SOUND','WAV');
  //查找到指定名稱和格式這里是 Sound 和 WAV
  Sound_hRes := LoadResource(HInstance, SOundInfo);
  //掉入資源信息
  if Sound_hRes > 32 then
  begin
    ptrSound:=LockResource(Sound_hRes);
    //鎖定資源
  end;
sndplaysound(ptrSound,snd_async or snd_Memory);
//播放指定聲音
end;

end.