【delphi开源代码栏目提醒】:网学会员--在 delphi开源代码编辑为广大网友搜集整理了:dy225.pas绩等信息,祝愿广大网友取得需要的信息,参考学习。
unit dy225;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,mmsystem;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//引用动态连接库中的函数
function waveOutGetNumDevs: longint ;stdcall ;external 'winmm.dll' name 'waveOutGetNumDevs';
procedure TForm1.Button1Click(Sender: TObject);
begin
if waveOutGetNumDevs = 0 then
radiogroup1.itemindex := 1
else
radiogroup1.itemindex := 0 ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.
上一篇:
dy224.pas
下一篇:
汝康皮肤护理液医治烧伤的可行性和效果分析