Курсовая работа: Базы данных. Создание программы Телефонный справочник

unit Progress;

interface

uses

Windows, SysUtils, Classes, Forms, Dialogs, StdCtrls,

DB, DBTables, Controls, ComCtrls, Registry,ShellApi, Messages, Graphics,

ExtCtrls ;

const

MM_BASE = WM_USER;

MM_OKSTART = MM_BASE + $1;

MM_DATAERROR = MM_BASE + $2;

MM_KeyDown = MM_BASE + $3;

MM_ENDTHREAD = MM_BASE + $4;

type

TMainForm = class(TForm)

ProgressBar1: TProgressBar;

lbPersent: TLabel;

Table2: TTable;

Image1: TImage;

Table1: TTable;

Timer1: TTimer;

lbMessage: TLabel;

procedure FormCreate(Sender: TObject);

procedure ProgressAOM (var MSG: tagMSG; var Handled: boolean);

procedure RegApplication;

procedure DataError(var Message: TMessage); message MM_DATAERROR;

procedure Timer1Timer(Sender: TObject);

procedure EndThread(var Message:TMessage); message MM_ENDTHREAD;

private

IsCanStart: boolean;