Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

Winlogon notification package на Delphi 


Снежок   (2001-12-29 17:02) [0]

Срочно нужна помощь!
Кто-нибудь писал на Delphi Winlogon notification package? Регистрирую все правильно. Библиотека линкуется после рестарта машины. Но события не ловятся. При возникновении любого из событий должна быть произведена запись "Test" в текстовый файл(функция WriteStrToLog)
Никак не пойму в чем я ошибаюсь. При этом Функции нормально вызываются и работают из тестовой программы, а Winlogon их почему то не хочет выполнять. Пожалуйста подскажите что-нибудь господа системщики.

библиотека помещается в ..winnt\system\
Ключи в реестре:
...Winlogon\Notifi\MyNotifiPack
Asynchronouse=0
Impersonate=0
DLLName=notif.dll
Lock=WLEventLock
Logon=WLEventLogon
..... и т.д. (пары ключ-имя функции)

Вот код моей длл:
library notif;
uses
SysUtils,
Classes,Windows;

type
PWSTR=PWideChar;

PWLX_NOTIFICATION_INFO=^_WLX_NOTIFICATION_INFO;
_WLX_NOTIFICATION_INFO=record
Size :ULONG ;
Flags :ULONG ;
UserName :PWSTR ;
Domain :PWSTR ;
WindowStation :PWSTR ;
hToken :THANDLE ;
hDesktop :HDESK ;
pStatusCallback:LongInt;
end;


procedure WriteStrToLog;
var
F :TextFile;
begin
AssignFile(F,"C:\Winlogon.log");
try
if not FileExists("C:\Winlogon.log") then
Rewrite(F);
Append(F);
then
Writeln(F,"Test");
finally
CloseFile(F);
end;
end;

procedure WLEventLock(pInfo:PWLX_NOTIFICATION_INFO);safecall;{или stdcall}
begin
WriteStrToLog();
end;

procedure WLEventLogoff(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventLogon(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventShutDown(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventStartScreenSaver(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventStartShell(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventStartUp(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventStopScreenSaver(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

procedure WLEventUnLock(pInfo: PWLX_NOTIFICATION_INFO);safecall;
begin
WriteStrToLog();
end;

{$R *.RES}
exports
WLEventLock name "WLEventLock",
WLEventUnLock name "WLEventUnLock",
WLEventLogon name "WLEventLogon",
WLEventLogoff name "WLEventLogoff",
WLEventShutDown name "WLEventShutDown",
WLEventStartScreenSaver name "WLEventStartScreenSaver",
WLEventStopScreenSaver name "WLEventStopScreenSaver",
WLEventStartShell name "WLEventStartShell",
WLEventStartUp name "WLEventStartUp";
begin
end.



Bachin   (2001-12-29 18:40) [1]

Чуть ошибся: Notify




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.022 c
3-90451           VIB                   2002-02-01 14:30  2002.02.28  
SQL


14-90633          Mz                    2002-01-08 10:53  2002.02.28  
подмена заголовка IP пакета


1-90550           Palmik                2002-02-11 15:02  2002.02.28  
Печать из винды на матричном принторе!!!


3-90473           sal                   2002-02-02 01:29  2002.02.28  
разделить connect к БД между приложением и dll


3-90465           MVova                 2002-01-31 16:55  2002.02.28  
Как отключить конект???