Форум: "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.013 c
4-90712           Prof!                 2002-01-02 08:49  2002.02.28  
Help me!!!!!!! (DLL)


3-90521           a1st                  2002-02-05 16:42  2002.02.28  
qreport 3.0 -> 3.0.5 - перестало работать!?


7-90681           viksoft               2001-11-04 14:17  2002.02.28  
Как отформатировать винт (HDD) ?


4-90714           Profi .               2001-12-30 16:27  2002.02.28  
SHELLEXECUTE !!!! HELP !!!


14-90636          Diana                 2002-01-10 10:58  2002.02.28  
ТЗ