1 Исследовательский раздел 4


Модуль блокировки программы от несанкционированного доступа



страница74/75
Дата06.06.2019
Размер1.28 Mb.
Название файла12.doc
1   ...   67   68   69   70   71   72   73   74   75

4.1.3Модуль блокировки программы от несанкционированного доступа


unit lockScreen_;
interface
uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls,variables;
type

TlockScreen__ = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure WNDPROC(var m : tmessage); override;

private

canclose : integer;



{ Private declarations }

public


{ Public declarations }

end;
var

lockScreen__: TlockScreen__;
implementation
{$R *.DFM}
procedure TlockScreen__.WNDPROC(var m : tmessage);

begin


inherited wndproc(m);

end;
procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then



begin

if edit1.text=password__ then

begin

canclose:=1;



close;

end else edit1.text:='';

end;

end;
procedure TlockScreen__.FormClose(Sender: TObject;



var Action: TCloseAction);

begin


if canclose=1 then action:=cafree else action:=canone;

end;
procedure TlockScreen__.FormCreate(Sender: TObject);

begin

canclose:=0;



end;
procedure TlockScreen__.FormResize(Sender: TObject);

begin


panel1.left:=(clientwidth-panel1.width) div 2;

panel1.top:=(clientheight-panel1.height) div 2;

end;
end.



Топология звезда
Основные принципы работы.


Поделитесь с Вашими друзьями:
1   ...   67   68   69   70   71   72   73   74   75


База данных защищена авторским правом ©genew.ru 2017
обратиться к администрации

    Главная страница
Контрольная работа
Курсовая работа
Лабораторная работа
Рабочая программа
Методические указания
Практическая работа
Теоретические основы
Методические рекомендации
Пояснительная записка
Общая характеристика
Учебное пособие
Общие сведения
История развития
Практическое задание
Федеральное государственное
Теоретическая часть
Физическая культура
Теоретические аспекты
Направление подготовки
Дипломная работа
Техническое задание
Образовательная программа
государственное бюджетное
Техническое обслуживание
Методическая разработка
Общие положения
квалификационная работа
Самостоятельная работа
Выпускная квалификационная
учебная программа
Общие требования
Общая часть
Технологическая карта
Краткая характеристика
Рабочая учебная
История возникновения
Решение задач
Исследовательская работа
Организация работы
История создания
Методическое пособие
Основная часть
Метрология стандартизация
Внеклассное мероприятие
Название дисциплины
государственное автономное
Государственное регулирование
Техническая эксплуатация
Технологическая часть
Рабочая тетрадь
Информационная безопасность