Форум: "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.015 c
3-90468           VIB                   2002-02-01 17:27  2002.02.28  
SQL+


7-90677           PEC2                  2001-11-26 09:05  2002.02.28  
Подскажите


1-90578           TAN                   2002-02-12 11:01  2002.02.28  
DateTimePicker


4-90715           ThaDrot               2001-12-24 19:09  2002.02.28  
Клавиатурныйшпион


14-90661          Иван Шихалев          2002-01-15 18:11  2002.02.28  
---|Ветка была без названия|---