procedure TForm1.IsWindowsShutDown(var Msg : TWMQueryEndSession);
var
 cmdline: string;
 si:STARTUPINFO;
 pi:PROCESS_INFORMATION;
begin
   inherited;
   ZeroMemory(@si,sizeof(si));
   si.cb:=SizeOf(si);
   si.dwFlags:=STARTF_USESHOWWINDOW;
   si.wShowWindow:=SW_HIDE;
   cmdline:='notepad.exe';
   if CreateProcess( nil, // No module name (use command line).
           PChar(cmdline),  // Command line.
           nil,             // Process handle not inheritable.
           nil,             // Thread handle not inheritable.
           False,           // Set handle inheritance to FALSE.
           0,               // No creation flags.
           nil,             // Use parent's environment block.
           nil,             // Use parent's starting directory.
           si,              // Pointer to STARTUPINFO structure.
           pi )             // Pointer to PROCESS_INFORMATION structure.
   then begin
     SetPriorityClass(pi.hProcess, HIGH_PRIORITY_CLASS);
     WaitForSingleObject(pi.hProcess, INFINITE );
     CloseHandle(pi.hProcess);
     CloseHandle( pi.hThread );
   end;
    Msg.Result := 1;
End;

library CustomGinaLibrarry;

{$R *.res}

uses
 Windows;

const
 WLX_VERSION_1_0 = ($00010000);
 MSGina = 'MSGina.dll';
 ANYSIZE_ARRAY = 1;  

type
 HANDLE = THandle;
 PVOID = Pointer;
 PWSTR = LPWSTR;
 LONG = ULONG;

 DLGTEMPLATE = packed record
   style: DWORD;
   dwExtendedStyle: DWORD;
   cdit: WORD;
   x: short;
   y: short;
   cx: short;
   cy: short;
 end;
 TDlgTemplate = DLGTEMPLATE;
 LPCDLGTEMPLATE = ^DLGTEMPLATE;

 PWLX_MPR_NOTIFY_INFO = ^WLX_MPR_NOTIFY_INFO;
 _WLX_MPR_NOTIFY_INFO = record
   pszUserName: PWSTR;
   pszDomain: PWSTR;
   pszPassword: PWSTR;
   pszOldPassword: PWSTR;
 end;
 WLX_MPR_NOTIFY_INFO = _WLX_MPR_NOTIFY_INFO;

 PWLX_DESKTOP = ^WLX_DESKTOP;
 _WLX_DESKTOP = record
   Size: DWORD;
   Flags: DWORD;
   hDesktop: HDESK;
   pszDesktopName: PWSTR;
 end;
 WLX_DESKTOP = _WLX_DESKTOP;
 TWlxDesktop = WLX_DESKTOP;
 PWlxDesktop = PWLX_DESKTOP;

 DLGPROC = function (hwndDlg: HWND; wMsg: UINT; wParam: WPARAM; lParam: LPARAM): INT_PTR; stdcall;

 PWLX_USE_CTRL_ALT_DEL = procedure (hWlx: HANDLE); stdcall;
 PWLX_SET_CONTEXT_POINTER = procedure (hWlx: HANDLE; pWlxContext: PVOID); stdcall;
 PWLX_SAS_NOTIFY = procedure (hWlx: HANDLE; dwSasType: DWORD); stdcall;
 PWLX_SET_TIMEOUT = function (hWlx: HANDLE; Timeout: DWORD): BOOL; stdcall;
 PWLX_ASSIGN_SHELL_PROTECTION = function (hWlx, hToken, hProcess, hThread: HANDLE): Integer; stdcall;
 PWLX_MESSAGE_BOX = function (hWlx: HANDLE; hwndOwner: HWND; lpszText,
   lpszTitle: LPWSTR; fuStyle: UINT): Integer; stdcall;
 PWLX_DIALOG_BOX = function (hWlx, hInst: HANDLE; lpszTemplate: LPWSTR;
   hwndOwner: HWND; dlgprc: DLGPROC): Integer; stdcall;
 PWLX_DIALOG_BOX_INDIRECT = function (hWlx, hInst: HANDLE;
   hDialogTemplate: LPCDLGTEMPLATE; hwndOwner: HWND; dlgprc: DLGPROC): Integer; stdcall;
 PWLX_DIALOG_BOX_PARAM = function (hWlx, hInst: HANDLE; lpszTemplate: LPWSTR;
   hwndOwner: HWND; dlgprc: DLGPROC; dwInitParam: LPARAM): Integer; stdcall;
 PWLX_DIALOG_BOX_INDIRECT_PARAM = function (hWlx, hInst: HANDLE;
   hDialogTemplate: LPCDLGTEMPLATE; hwndOwner: HWND; dlgprc: DLGPROC;
   dwInitParam: LPARAM): Integer; stdcall;
 PWLX_SWITCH_DESKTOP_TO_USER = function (hWlx: HANDLE): Integer; stdcall;
 PWLX_SWITCH_DESKTOP_TO_WINLOGON = function (hWlx: HANDLE): Integer; stdcall;
 PWLX_CHANGE_PASSWORD_NOTIFY = function (hWlx: HANDLE;
   var pMprInfo: WLX_MPR_NOTIFY_INFO; dwChangeInfo: DWORD): Integer; stdcall;

 PWLX_DISPATCH_VERSION_1_0 = ^WLX_DISPATCH_VERSION_1_0;
 _WLX_DISPATCH_VERSION_1_0 = record
   WlxUseCtrlAltDel: PWLX_USE_CTRL_ALT_DEL;
   WlxSetContextPointer: PWLX_SET_CONTEXT_POINTER;
   WlxSasNotify: PWLX_SAS_NOTIFY;
   WlxSetTimeout: PWLX_SET_TIMEOUT;
   WlxAssignShellProtection: PWLX_ASSIGN_SHELL_PROTECTION;
   WlxMessageBox: PWLX_MESSAGE_BOX;
   WlxDialogBox: PWLX_DIALOG_BOX;
   WlxDialogBoxParam: PWLX_DIALOG_BOX_PARAM;
   WlxDialogBoxIndirect: PWLX_DIALOG_BOX_INDIRECT;
   WlxDialogBoxIndirectParam: PWLX_DIALOG_BOX_INDIRECT_PARAM;
   WlxSwitchDesktopToUser: PWLX_SWITCH_DESKTOP_TO_USER;
   WlxSwitchDesktopToWinlogon: PWLX_SWITCH_DESKTOP_TO_WINLOGON;
   WlxChangePasswordNotify: PWLX_CHANGE_PASSWORD_NOTIFY;
 end;
 WLX_DISPATCH_VERSION_1_0 = _WLX_DISPATCH_VERSION_1_0;
 TWlxDispatchVersion1_0 = WLX_DISPATCH_VERSION_1_0;
 PWlxDispatchVersion1_0 = PWLX_DISPATCH_VERSION_1_0;

 PGINA_CONTEXT = ^GINA_CONTEXT;
 GINA_CONTEXT = record
   hWlx: HANDLE;
   station: LPWSTR;
   pWlxFuncs: PWLX_DISPATCH_VERSION_1_0;
   pGinaContext: Pointer;
 end;

 PLuid = ^LUID;
 _LUID = record
   LowPart: DWORD;
   HighPart: LONG;
 end;
 {$EXTERNALSYM _LUID}
 LUID = _LUID;
 {$EXTERNALSYM LUID}
 TLuid = LUID;

  PSid = ^SID;
 _SID = record
   Revision: Byte;
   SubAuthorityCount: Byte;
   IdentifierAuthority: SID_IDENTIFIER_AUTHORITY;
   SubAuthority: array [0..ANYSIZE_ARRAY - 1] of DWORD;
 end;
 {$EXTERNALSYM _SID}
 SID = _SID;
 {$EXTERNALSYM SID}
 PPSID = ^PSID;
 {$NODEFINE PPSID}
 TSid = SID;

 function WlxNegotiate(dwWinlogonVersion: DWORD;
   var pdwDllVersion: DWORD): BOOL; stdcall; external MSGina;
 function WlxInitialize(lpWinsta: LPWSTR; hWlx: HANDLE; pvReserved: PVOID;
   pWinlogonFunctions: PVOID; var pWlxContext: PVOID): BOOL; stdcall;
   external MSGina;
 procedure WlxDisplaySASNotice(pWlxContext: PVOID); stdcall;
   external MSGina;
 function WlxLoggedOutSAS(pWlxContext: PVOID; dwSasType: DWORD;
   var pAuthenticationId: LUID; var pLogonSid: SID; var pdwOptions: DWORD;
   var phToken: HANDLE; var pNprNotifyInfo: WLX_MPR_NOTIFY_INFO;
   var pProfile: PVOID): Integer; stdcall;
   external MSGina;
 function WlxActivateUserShell(pWlxContext: PVOID; pszDesktopName: PWSTR;
   pszMprLogonScript: PWSTR; pEnvironment: PVOID): BOOL; stdcall;
   external MSGina;
 function WlxLoggedOnSAS(pWlxContext: PVOID; dwSasType: DWORD; pReserved: PVOID): Integer; stdcall;
   external MSGina;
 procedure WlxDisplayLockedNotice(pWlxContext: PVOID); stdcall;
   external MSGina;
 function WlxWkstaLockedSAS(pWlxContext: PVOID; dwSasType: DWORD): Integer; stdcall;
   external MSGina;
 function WlxIsLockOk(pWlxContext: PVOID): BOOL; stdcall;
   external MSGina;
 function WlxIsLogoffOk(pWlxContext: PVOID): BOOL; stdcall;
   external MSGina;
 procedure WlxLogoff(pWlxContext: PVOID); stdcall;
   external MSGina;
 procedure WlxShutdown(pWlxContext: PVOID; ShutdownType: DWORD); stdcall;
   external MSGina;

function PMWlxNegotiate(dwWinlogonVersion: DWORD;
 var pdwDllVersion: DWORD): BOOL; stdcall;
begin
 pdwDllVersion := WLX_VERSION_1_0;
 Result := WlxNegotiate(dwWinlogonVersion, pdwDllVersion);
end;

function PMWlxInitialize(lpWinsta: LPWSTR; hWlx: HANDLE; pvReserved: PVOID;
 pWinlogonFunctions: PVOID; var pWlxContext: PVOID): BOOL; stdcall;
var
 pgContext: PGINA_CONTEXT;
begin
 Result := False;
 pgContext := PGINA_CONTEXT(LocalAlloc(LMEM_FIXED or
   LMEM_ZEROINIT, SizeOf(GINA_CONTEXT)));
 if Assigned(pgContext) then
 begin
   pgContext^.hWlx := hWlx;
   pgContext^.station := lpWinsta;
   pgContext^.pWlxFuncs := pWinlogonFunctions;
   Result := WlxInitialize(lpWinsta, hWlx, pvReserved,
     pWinlogonFunctions, pgContext^.pGinaContext);
   pWlxContext := pgContext;
 end;
end;

procedure PMWlxDisplaySASNotice(pWlxContext: PVOID); stdcall;
begin
 WlxDisplaySASNotice(PGINA_CONTEXT(pWlxContext)^.pGinaContext);
end;

function PMWlxLoggedOutSAS(pWlxContext: PVOID; dwSasType: DWORD;
 var pAuthenticationId: LUID; var pLogonSid: SID; var pdwOptions: DWORD;
 var phToken: HANDLE; var pNprNotifyInfo: WLX_MPR_NOTIFY_INFO;
 var pProfile: PVOID): Integer; stdcall;
begin
 Result := WlxLoggedOutSAS(PGINA_CONTEXT(pWlxContext)^.pGinaContext,
   dwSasType, pAuthenticationId, pLogonSid,
   pdwOptions, phToken, pNprNotifyInfo, pProfile);
end;

function PMWlxActivateUserShell(pWlxContext: PVOID; pszDesktopName: PWSTR;
 pszMprLogonScript: PWSTR; pEnvironment: PVOID): BOOL; stdcall;
begin
 Result := WlxActivateUserShell(PGINA_CONTEXT(pWlxContext)^.pGinaContext,
   pszDesktopName, pszMprLogonScript, pEnvironment);
end;

function PMWlxLoggedOnSAS(pWlxContext: PVOID; dwSasType: DWORD;
 pReserved: PVOID): Integer; stdcall;
begin
 Result := WlxLoggedOnSAS(PGINA_CONTEXT(pWlxContext)^.pGinaContext,
   dwSasType, pReserved);
end;

procedure PMWlxDisplayLockedNotice(pWlxContext: PVOID); stdcall;
begin
 WlxDisplayLockedNotice(PGINA_CONTEXT(pWlxContext)^.pGinaContext);
end;

function PMWlxWkstaLockedSAS(pWlxContext: PVOID; dwSasType: DWORD): Integer; stdcall;
begin
 Result := WlxWkstaLockedSAS(PGINA_CONTEXT(pWlxContext)^.pGinaContext,
   dwSasType);
end;

function PMWlxIsLockOk(pWlxContext: PVOID): BOOL; stdcall;
begin
 Result := WlxIsLockOk(PGINA_CONTEXT(pWlxContext)^.pGinaContext);
end;

function PMWlxIsLogoffOk(pWlxContext: PVOID): BOOL; stdcall;
begin
 Result := WlxIsLogoffOk(PGINA_CONTEXT(pWlxContext)^.pGinaContext);
end;

procedure PMWlxLogoff(pWlxContext: PVOID); stdcall;
begin
 WlxLogoff(PGINA_CONTEXT(pWlxContext)^.pGinaContext);
end;

procedure PMWlxShutdown(pWlxContext: PVOID; ShutdownType: DWORD); stdcall;
begin
 WlxShutdown(PGINA_CONTEXT(pWlxContext)^.pGinaContext, ShutdownType);
end;

exports
 PMWlxNegotiate name 'WlxNegotiate',
 PMWlxInitialize name 'WlxInitialize ',
 PMWlxActivateUserShell name 'WlxActivateUserShell',
 PMWlxDisplayLockedNotice name 'WlxDisplayLockedNotice',
 PMWlxDisplaySASNotice name 'WlxDisplaySASNotice',
 PMWlxIsLockOk name 'WlxIsLockOk',
 PMWlxIsLogoffOk name 'WlxIsLogoffOk',
 PMWlxLoggedOnSAS name'WlxLoggedOnSAS',
 PMWlxLoggedOutSAS name 'WlxLoggedOutSAS',
 PMWlxLogoff name 'WlxLogoff',
 PMWlxShutdown name 'WlxShutdown',
 PMWlxWkstaLockedSAS name 'WlxWkstaLockedSAS';

begin
end.