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
обратиться к администрации

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