Стр. 324 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
324
14. Окончательный вариант приложения приведен в листинге 27.1. Ком-
ментарии удалены.
Листинг 27.1
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dia-
logs, MPlayer, StdCtrls, Buttons, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
ProgressBar1: TProgressBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label1: TLabel;
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
Timer1: TTimer;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ProgressBar1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure GetHMS(Value:integer;var h,m,s:byte);
function GetHHMMSS(h,m,s:byte):string;
var
Form1: TForm1;
dir:string;
pause:boolean;
h,m,s:byte;
implementation