Home

Page 116
Page 116
background image

Система 109

procedure
begin

if

 0,

 0) <> 0 then

begin

 не могу я прочитать пароли.', 'Error',

 or mb_IconWarning) ;

end

else

if Count

 0 then

 нету');

end;

end.

В обработчике события создания формы

 вызывается недокументи-

рованная ФУНКЦИЯ

 Эта фунКЦИЯ

 Пароли

в кэше и возвращает их в процедуру, указанную в качестве четвертого пара-

метра.

Теперь посмотрим, как объявлена эта функция. Объявление состоит из двух

строк. В первой просто описано, что она представляет собой:

function

lp:

w: Word;
b: Byte;

PC: PChar;

dw: Dword

): Word; stdcall;

Второе объявление этой функции я рассмотрю подробнее, потому что оно

более полное:

function

 //Имя функции

(lp: lpStr; //Должен быть NIL

w: Word; //Должен быть 0

b: Byte; //Должен быть

PC: PChar; //Адрес функции, в которую вернутся пароли

dw: DWord): Word; //Опять 0
external

 //Имя DLL-файла в котором находится эта функция

name

 //Имя функции в DLL-файле.


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

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