Home

Page 76
Page 76
background image

Система

69

library

uses Windows, Messages;

var

SysHook : HHook

 0;

Wnd : Hwnd

 0;

function

 : integer;

 : word;

lParam : longint) : longint; stdcall;

begin

//Передаем сообщение другим ловушкам в системе

 Code,

//Проверяем сообщение
if code =

 then

begin

//Получаем идентификатор окна, сгенерировавшего сообщение

Wnd :=

//Проверяем тип сообщения.

//Если была нажата левая кнопка мыши
//и удержана кнопка Control, то...

if

 =

 then

if

 then

begin

//Убрать в окне, отправившем сообщение, звездочки

 em_setpasswordchar, 0, 0);

//Перерисовать окно

 nil, true);

end;

end;

end;

//Процедура запуска

procedure

begin

//Если State = true,

if

 then

Boolean) export; stdcall;


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.