mc_long.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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.