Дипломная работа: Защита данных от несанкционированного доступа

end;

{Объект "О Программе"}

PAboutBox = ^TAboutBox;

TAboutBox = object(TDialog)

constructor Init;

end;

{Основной объект}

PMyApp = ^TMyApp;

TMyApp = object(TApplication)

constructor Init; {инициализация}

destructor Done; virtual; {завершениеработы}

procedure HandleEvent(var Event: TEvent); virtual; {обработкасобытий}

procedure InitMenuBar; virtual; {инициализацияменю}

procedure InitDeskTop; virtual; {инициализациярабочегополя}

procedure InitStatusLine; virtual; {инициализациястрокисостояния}

procedure FileOpen(WildCard: PathStr); {окнодляработысфайлами}

function GetPalette: PPalette; virtual; {изменениестандартнойпалитры}

end;

{ Русифицированная функция формирования сообщения }

function MyMessageBoxRect(var R: TRect;

const Msg: string; Params: pointer;

AOptions: word): word;

const

ButtonName: array[0..3] of string[6] = ('Ага', 'Нека', 'Ага', 'Нека');

Commands: array[0..3] of Word = (cmYes, cmNo, cmOK, cmCancel);

Titles: array[0..3] of string[11] =

('Предупреждение', 'Ошибка', 'Информация', 'Подтверждение');

var

I, X : integer;