|
unit Unit1;g2PLinux联盟
g2PLinux联盟
interfaceg2PLinux联盟
g2PLinux联盟
usesg2PLinux联盟
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,g2PLinux联盟
Dialogs,mmsystem, StdCtrls;g2PLinux联盟
g2PLinux联盟
typeg2PLinux联盟
TForm1 = class(TForm)g2PLinux联盟
Button1: TButton;g2PLinux联盟
Button2: TButton;g2PLinux联盟
Button4: TButton;g2PLinux联盟
SaveDialog1: TSaveDialog;g2PLinux联盟
procedure Button1Click(Sender: TObject);g2PLinux联盟
procedure Button2Click(Sender: TObject);g2PLinux联盟
procedure Button3Click(Sender: TObject);g2PLinux联盟
procedure Button4Click(Sender: TObject);g2PLinux联盟
privateg2PLinux联盟
{ Private declarations }g2PLinux联盟
publicg2PLinux联盟
{ Public declarations }g2PLinux联盟
end;g2PLinux联盟
g2PLinux联盟
varg2PLinux联盟
Form1: TForm1;g2PLinux联盟
g2PLinux联盟
implementationg2PLinux联盟
g2PLinux联盟
{$R *.dfm}g2PLinux联盟
g2PLinux联盟
procedure TForm1.Button1Click(Sender: TObject);g2PLinux联盟
beging2PLinux联盟
mciSendString('close p1',0,0,0);g2PLinux联盟
mciSendStringA('open new type WAVEAudio alias p1',0,0,0);g2PLinux联盟
mciSendString('record p1',0,0,0);g2PLinux联盟
end;g2PLinux联盟
g2PLinux联盟
procedure TForm1.Button2Click(Sender: TObject);g2PLinux联盟
beging2PLinux联盟
mciSendString('stop p1',0,0,0);g2PLinux联盟
end;g2PLinux联盟
g2PLinux联盟
procedure TForm1.Button3Click(Sender: TObject);g2PLinux联盟
beging2PLinux联盟
mciSendString('play p1',0,0,0);g2PLinux联盟
end;g2PLinux联盟
g2PLinux联盟
procedure TForm1.Button4Click(Sender: TObject);g2PLinux联盟
var s:string;g2PLinux联盟
beging2PLinux联盟
if SaveDialog1.Execute theng2PLinux联盟
s:='save p1 '+SaveDialog1.filename;g2PLinux联盟
mciSendString(pchar(s),0,0,0);g2PLinux联盟
end;g2PLinux联盟
g2PLinux联盟
end.
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
