Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки