开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
PeFSound.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

PeFSound.pas：源码内容
  1. unit PeFSound;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Buttons, StdCtrls;
  9. type
  10.   TSoundForm = class(TForm)
  11.     Label1: TLabel;
  12.     btnOK: TBitBtn;
  13.     btnCancel: TBitBtn;
  14.     btnLoad: TSpeedButton;
  15.     OpenDialog1: TOpenDialog;
  16.     btnPlay: TBitBtn;
  17.     ComboBox1: TComboBox;
  18.     procedure btnLoadClick(Sender: TObject);
  19.     procedure btnPlayClick(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  26. var
  27.   SoundForm: TSoundForm;
  29. implementation
  31. {$R *.DFM}
  33. uses
  34.   MMSystem;
  36. procedure TSoundForm.btnLoadClick(Sender: TObject);
  37. begin
  38.   if OpenDialog1.Execute then
  39.     ComboBox1.Text := OpenDialog1.FileName;
  40. end;
  42. procedure TSoundForm.btnPlayClick(Sender: TObject);
  43. begin
  44.   PlaySound (PChar (ComboBox1.Text), 0, snd_Async);
  45. end;
  47. end.