unit6.pas

Delphi写得用来投票的小程序 欢迎下载

unit Unit6;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, jpeg,mmsystem;

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    Bevel1: TBevel;
    Image1: TImage;
    Label1: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

{$R *.dfm}

procedure TOKBottomDlg.FormShow(Sender: TObject);
var
        Result:Integer;
        ReturnStr:array[0..1024] of Char;
begin
        Result:=mciSendString('play applause.wav',ReturnStr,1024,0);
end;

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
begin
        Close;
end;

end.