Разработка приложений в системе Delphi. Шейкер Т.Д. - 165 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

interface
procedure BeepMe; external 'Beeper';
procedure BeepMeTwo; external 'Beeper' name 'BeepMe';
procedure BeepMeThree; external 'Beeper' index 1;
implementation
end.
unit SoundUnitForm; // Модуль формы
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
uses SoundUnit;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
BeepMe;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
BeepMeTwo;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
pMeThree; Bee
end;
end.
program Sound; // Файл проекта
uses
Forms,
SoundUnitForm in 'SoundUnitForm.pas' {Form1},
SoundUnit in 'SoundUnit.pas';
{$R *.
begin
RES}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
165
interface
 procedure BeepMe; external 'Beeper';
 procedure BeepMeTwo; external 'Beeper' name 'BeepMe';
 procedure BeepMeThree; external 'Beeper' index 1;
implementation
end.

unit SoundUnitForm;    // Модуль формы
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  end;
var
  Form1: TForm1;
implementation
uses SoundUnit;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
 BeepMe;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 BeepMeTwo;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
 BeepMeThree;
end;
end.
program Sound;   // Файл проекта
uses
  Forms,
  SoundUnitForm in 'SoundUnitForm.pas' {Form1},
  SoundUnit in 'SoundUnit.pas';
{$R *.RES}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.




                                165

Страницы