Защита данных от несанкционированного доступа
Категория реферата: Рефераты по информатике, программированию
Теги реферата: изложение на тему, контрольная работа 6
Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата
DrawBuffer: TDrawBuffer; begin
MoveStr(DrawBuffer, Text, GetColor(1));
WriteLine(0, 0, Size.X, Size.Y, DrawBuffer); end;
procedure TMyDesktop.InitBackground; var
R: TRect; begin
GetExtent(R);
Background := New(PMyBackground, Init(R, '___')); end;
{Изменить стандартную палитру} function TMyStaticText.GetPalette: PPalette; const
{Синяя палитра}
CMyCluster =
#64#65#66#67#68#69#70#71#72#73#74#75#76#77#78#79#80#81#82+
#83#84#85#86#87#88#89#90#91#92#93#94#95;
P: string [32] = CMyCluster; begin
GetPalette := @P; end;
{Окно "О Программе"} constructor TAboutBox.Init; var
R: TRect; begin
R.Assign(0, 0, 30, 16); inherited Init(R, 'О программе');
Options := Options or ofCentered;
R.Assign(10, 13, 20, 15);
Insert(New(PButton, Init(R, '~А~га', cmOK, bfDefault)));
R.Assign(11, 2, 19, 3);
Insert(New(pMyStaticText, Init(R, 'Sub Rosa')));
R.Assign(1, 4, 29, 5);
Insert(New(pStaticText, Init(R, 'Система защиты данных от НСД')));
R.Assign(5, 5, 29, 6);
Insert(New(pStaticText, Init(R, 'выполнена учащимися')));
R.Assign(10, 6, 29, 7);
Insert(New(pStaticText, Init(R, 'гр. 4641')));
R.Assign(6, 7, 29, 8);
Insert(New(pStaticText, Init(R, 'Егановым Максимом')));
R.Assign(14, 8, 22, 9);
Insert(New(pStaticText, Init(R, 'и')));
R.Assign(6, 9, 29, 10);
Insert(New(pStaticText, Init(R, 'Юзефовичем Артемом')));
R.Assign(6, 11, 29, 12);
Insert(New(pStaticText, Init(R, 'МГВРК, Минск, 1996'))); end;
{Работа программы начинается здесь...} constructor TMyApp.Init; var
ReturnVal, i : Word;
DirInfo, DirInfo1, DirInfo2 : SearchRec;
DirInfo3, DirInfo4, DirInfo5: SearchRec;
Pas : string; st : char; begin
OptInd := 1;
{Инициализировать файл ресурсов}
MyRes.Init(New(PBufStream, Init('Setup.res', stOpen, 1024))); if MyRes.Stream^.Status stOK then begin
Write('Нарушение целостности!'); halt(1); end;
RegisterType(RMenuBar);
{Проверить целостность системы}
MainDir := GetCurDir;
FindFirst('plus', AnyFile, DirInfo);
FindFirst('passw', AnyFile, DirInfo1);
FindFirst('block', AnyFile, DirInfo2);
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Предыдущая страница реферата | 19 20 21 22 23 24 25 26 27 28 29 | Следующая страница реферата