Заставить работать Winlogon

[slm]

Вопрос смешной - как заставить winlogon загрузить библиотеку(это сделано) и сделать так, чтобы через, допустим, 30 секунд показалось сообщение с текстом, которое будет зависеть от имени экспортной процедуры.
код, который не работает, но позволит понять что я хочу:

library exper;


uses
  SysUtils,
  Classes,
  dialogs,
  shellapi,
  windows;

{$R *.res}
 procedure show;  export;  stdcall;
 var

  begin
sleep(30000);
ShowMessage('Hello');
  end;
 procedure showOnceMore;  export;  stdcall;
 var

  begin
sleep(30000);
ShowMessage('Another Hello');
  end;
  procedure start; stdcall;export;
  begin
  shellexecute(0, nil, 'rundll32.dll', 'exper.dll, show', nil, sw_shownormal);
   end;
  exports show, start, showoncemore;
begin
end.

Если передать в winlogon
dllname -- exper.dll
logon -- show (showoncemore) - в этом случае виснет на 30 сек. winlogon (естественно ).
А если передать в winlogon
dllname -- exper.dll
logon -- start - библиотека грузится, но ничего не происходит.
ВСЕМ СПАСИБО

[Stilet]

Если передать в winlogon

Чет не пойму как ты "передаешь"...

[slm]

Извини, что долго отвечал - мучил winlogon
Передаю просто - создю ключи в winlogon/notify/xxx, записываю два строковых параметра - dllname с параметром exper.dll и logon с параметром function_name (экспортная функция)

[Iron Monk]

Я думаю, использовать Sleep при загрузке Winlogon, не самая лучшая мысль.

Посмотри проверенные коды, причем(!), программы запускаются даже в безопасном режиме.

Пишем DLL'ку:

library Test;

uses
windows;

procedure StartRegedit;
var
Stinfo: TStartupinfo;
Prinfo: TProcessInformation;

begin
ZeroMemory(@Stinfo, SizeOf(Stinfo));
Stinfo.cb := SizeOf(Stinfo);
Stinfo.lpDesktop := PChar('winsta0\default');
CreateProcess(nil, 'Regedit.exe', nil, nil, false, 0, nil, nil, Stinfo, Prinfo);
end;
exports
StartRegedit;
begin
end.

компилим, копируем её в System32.
создаем и запускаем файл реестра:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Notify\R unTest]

"Asynchronous"=dword:00000001
"Impersonate"=dword:00000000
"DllName"="Test.dll"
"Logon"="StartRegedit"

после перезагрузки, в любом режиме, запустится редактор реестра.

Если в программе нет необходимости запускать визуальную оболочку, поступаем еще проще:


library Test;

uses
Windows;
begin
WinExec('notepad',0);
end.


Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows NT\CurrentVersion\Winlogon\Notify\R unTest]

"Asynchronous"=dword:00000001
"DllName"="Test.dll"
"Logoff"="WinlogonLogoffEvent"
"Startup"="WinlogonStartupEvent "
"Impersonate"=dword:00000000
"Asynchronous"=dword:00000001

И даже нет необходимости из Dll экспортировать функцию, программа отработает как надо.
notepad-для примера, можно посмотреть, висит ли он в процессах.

можно, к примеру, создать чего-либо:

library Test;

uses
Windows;
begin
CreateDir('C:\TestDir);
end.

С уважением, Iron Monk.