Защита данных от несанкционированного доступа
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: изложение на тему, контрольная работа 6
| Добавил(а) на сайт: Vonifat.
Предыдущая страница реферата | 21 22 23 24 25 26 27 28 29 30 31 | Следующая страница реферата
Views, Memory, StdDlg, CRT, DOS, SetConf;
Const {константы кодов команд} cmAboutBox = 700; cmCode = 1001; cmDeCode = 1002; cmSetPass = 1005; cmLockDisk = 1006; cmOptions = 1007; cmKeyDisk = 1008; cmPasswords = 1009;
RMenuBar: TStreamRec = ( {Запись для работы с потоком, TV}
ObjType: 2000;
VmtLink: Ofs(TypeOf(TMenuBar)^);
Load: @TMenuBar.Load;
Store: @TMenuBar.Store);
Var
Save23hInt : Pointer; {Переменные сохранения векторов прерываний}
Save1bhInt : Pointer;
MyApp : TApplication;
MyRes : TResourceFile;
MyStream : PBufStream;
{Формирование подменю "Файлы"} function MyStdFileMenuItems(Next: pMenuItem): pMenuItem; begin
MyStdFileMenuItems:=
NewItem('Выбрать...', 'F3', kbF3, cmOpen, hcOpen,
NewItem('Сменить каталог...', '', kbNoKey, cmChangeDir, hcChangeDir,
NewLine(
NewItem('Выход в ДОС', '', kbNoKey, cmDosShell, hcDosShell,
NewItem('Завершение', 'Alt+X', kbAltX, cmQuit, hcExit,
Next))))); end;
{Формирование основного меню} procedure CreateMenuBar; var
MenuBar: PMenuBar;
R : TRect; begin
R.Assign(0, 0, 80, 1);
MenuBar:= New(pMenuBar, Init(R, NewMenu(
NewSubMenu('~Ф~айлы', hcNoContext, NewMenu(
MyStdFileMenuItems(nil)),
NewSubMenu('~З~ащита', hcNoContext, NewMenu(
NewItem('~У~становить пароль', 'F5', kbF5, cmSetPass, 1005,
NewItem('~Б~локировать винчестер', '', kbNoKey, cmLockDisk, 1006, nil))),
NewSubMenu('~К~лючевая дискета', hcNoContext, NewMenu(
NewItem('~Д~обавить проверку по ключу', '', kbNoKey, cmKeyDisk,
1008, nil)),
NewSubMenu('~К~риптография', hcNoContext, NewMenu(
NewItem('Зашифровать файл данных','', kbNoKey, cmCode, 1001,
NewItem('Расшифровать файл данных','', kbNoKey, cmDeCode, 1002, nil))),
NewSubMenu('~Н~астройки', hcNoContext, NewMenu(
NewItem('Криптография...','F9', kbF9, cmOptions, 1007,
NewItem('Пароли...','F8', kbF8, cmPasswords, 1008, nil))),
NewItem('~О~ программе', '', kbAltJ, cmAboutBox, 700, nil)))))))));
MyRes.Put(MenuBar, Config);
Dispose(MenuBar, Done); end;
{Процедура управления формой курсора} procedure SetCursorSize(c_start,c_end:byte); var regs: registers; begin with regs do begin ah:=$01; ch:=c_start; cl:=c_end; end; intr($10,regs); end;
{Процедура замены вектора преываний}
{$F+} procedure My23hInt;Interrupt; begin end;
{$F-}
{Процедура копирования файлов} procedure CopyFyle(FromCopy: string); const
TempLength = 1125.28; var
ToCopy : string;
Source, Target : file;
NumRead, NumWrite: word; buf : string;
TempPos, Temp : real; begin
Рекомендуем скачать другие рефераты по теме: конспект урока 5 класс, оформление доклада.
Категории:
Предыдущая страница реферата | 21 22 23 24 25 26 27 28 29 30 31 | Следующая страница реферата
Главная