Расширение MSGINA - это просто.

Return_Type WlxFunction(Params_List)
{
	return Wlxtbl.WlxFunction(Params_List);
}

//таблица указателей на импортируемые функции
typedef struct _MSWlxDispatchTbl
{
    PWlxActivateUserShell WlxActivateUserShell;
    PWlxDisplayLockedNotice WlxDisplayLockedNotice;
    PWlxDisplaySASNotice WlxDisplaySASNotice;
    PWlxDisplayStatusMessage WlxDisplayStatusMessage;
    PWlxGetStatusMessage WlxGetStatusMessage;
    PWlxInitialize WlxInitialize;
    PWlxIsLockOk WlxIsLockOk;
    PWlxIsLogoffOk WlxIsLogoffOk;
    PWlxLoggedOnSAS WlxLoggedOnSAS;
    PWlxLoggedOutSAS WlxLoggedOutSAS;
    PWlxLogoff WlxLogoff;
    PWlxNegotiate WlxNegotiate;
    PWlxNetworkProviderLoad WlxNetworkProviderLoad;
    PWlxRemoveStatusMessage WlxRemoveStatusMessage;
    PWlxScreenSaverNotify WlxScreenSaverNotify;
    PWlxShutdown WlxShutdown;
    PWlxStartApplication WlxStartApplication;
    PWlxWkstaLockedSAS WlxWkstaLockedSAS;
    PWlxGetConsoleSwitchCredentials WlxGetConsoleSwitchCredentials;
    PWlxReconnectNotify WlxReconnectNotify;
    PWlxDisconnectNotify WlxDisconnectNotify;
} MSWlxDispatchTbl;

BOOL APIENTRY DllMain(HANDLE hModule,DWORD ul_reason_for_call,LPVOID)
{
    switch (ul_reason_for_call)
    {
        case DLL_PROCESS_ATTACH:
            {
                //строим имя файла со списком процессов
                if(!GetModuleFileName(GetModuleHandle("ginaext.dll"),ListFileNameBuf,MaxFnameLen)) return FALSE;
                char *pos=strrchr(ListFileNameBuf,'\\');
                if(!pos) pos=ListFileNameBuf;
                else pos++;
                strcpy(pos,ListFileName);

                //читаем имя предыдущей GINA из реестра.
                HKEY hKey;
                if(RegOpenKeyEx(HKEY_LOCAL_MACHINE,"Software\\RSDN\\GinaExt",0,KEY_QUERY_VALUE,&hKey)==ERROR_SUCCESS)
                {
                    DWORD dwType, dwLen;
                    if(RegQueryValueEx(hKey,RegValueName,NULL,&dwType,NULL,&dwLen)==ERROR_SUCCESS && dwType==REG_SZ) //получаем размер и тип значения
                    {
                        char *DllName=new char[dwLen];
                        if(RegQueryValueEx(hKey,RegValueName,NULL,NULL,(BYTE *)DllName,&dwLen)==ERROR_SUCCESS) //читаем значение
                            hGina=LoadLibrary(DllName); //пытаемся загрузить предыдущую GINA DLL
                        delete [] DllName;
                    }
                    RegCloseKey(hKey);
                }
                if(!hGina) hGina=LoadLibrary("msgina.dll"); //грузим msgina.dll, если не смогли загрузить предыдущую
                if(!hGina) return FALSE;    //полный облом, терминируемся

                //определяем адреса импортируемых функций из предыдущей GINA
                PWlxActivateUserShell *pWlxFunc=(PWlxActivateUserShell *)&Wlxtbl;
                for(int i=0;i<ImportsNumber;i++)
                {
                    pWlxFunc[i]=(PWlxActivateUserShell)::GetProcAddress(hGina,ImportFunctions[i]); //импортируем все, что сможем
                }
            }
            break;
        case DLL_THREAD_ATTACH:
        case DLL_THREAD_DETACH:
            break;
        case DLL_PROCESS_DETACH:
            FreeLibrary(hGina);
            break;
    }
    return TRUE;
}

//функция инициализации GINA
BOOL WINAPI WlxInitialize(LPWSTR lpWinsta,HANDLE hWlx,PVOID pvReserved,PVOID pWinlogonFunctions,PVOID *pWlxContext)
{
    hWinlogon=hWlx; //сохраняем хендл Винлогона для дальнейшего использования
    pWinlogonDispTbl=(PWLX_DISPATCH_VERSION_1_0)pWinlogonFunctions; //сохраняем указатель на таблицу сервисных функций Винлогона
    return Wlxtbl.WlxInitialize(lpWinsta,hWlx,pvReserved,pWinlogonFunctions,pWlxContext);
}

//функция проверки возможности запуска скринсейвера
BOOL WINAPI WlxScreenSaverNotify(PVOID pWlxContext,BOOL *pSecure)
{
    BOOL bAskGina=TRUE; //будем ли спрашивать у следующей GINA
    //открываем файл со списком процессов
    HANDLE hFile=::CreateFile(ListFileNameBuf,GENERIC_READ,FILE_SHARE_READ|FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
    if(hFile!=INVALID_HANDLE_VALUE)
    {
        DWORD dwSize=::GetFileSize(hFile,NULL);
        //мапируем его в память
        HANDLE hMap=::CreateFileMapping(hFile,NULL,PAGE_READONLY,0,dwSize,NULL);
        if(hMap)
        {
            //создаем view файла
            char *pData=(char *)::MapViewOfFile(hMap,FILE_MAP_READ,0,0,dwSize);
            if(pData)
            {
                char *pEnd=pData+dwSize;
                //получаем снимок процессов
                HANDLE hSnap=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
                if(hSnap!=INVALID_HANDLE_VALUE)
                {
                    PROCESSENTRY32 pe;
                    pe.dwSize=sizeof(pe);
                    if(Process32First(hSnap,&pe))
                    do
                    {
                        char *pNull=(char *)memchr(pe.szExeFile,0,MAX_PATH); //вычисляем длину строки (если это вообще строка)
                        DWORD ProcNameLen1;
                        if(pNull && pNull>pe.szExeFile && (ProcNameLen1=pNull-pe.szExeFile-1)<dwSize) //стоит ли вообще пытаться искать такое имя процесса в файле
                        {
                            strlwr(pe.szExeFile); //приводим имя процесса к нижнему регистру
                            char *pNames=(char *)memchr(pData,pe.szExeFile[0],dwSize-ProcNameLen1); //ищем первый символ названия процесса
                            while(pNames)
                            {
                                if(!memcmp(pe.szExeFile+1,++pNames,ProcNameLen1)) //сравниваем остаток имени процесса
                                {
                                    bAskGina=FALSE; //нашли процесс из списка
                                    break;
                                }
                                int Left=pEnd-pNames-ProcNameLen1; //осталось просмотреть
                                if(Left>0) pNames=(char *)memchr(pNames,pe.szExeFile[0],Left); //опять ищем первый символ имени процесса
                                else break;
                            }
                        }
                    }
                    while(bAskGina && Process32Next(hSnap,&pe)); //пока не нашли нужный процесс и не кончились процессы
                    CloseHandle(hSnap);
                }
#if defined(_DEBUG)
                else
                {
                    pWinlogonDispTbl->WlxSwitchDesktopToWinlogon(hWinlogon);
                    pWinlogonDispTbl->WlxMessageBox(hWinlogon,NULL,L"Failed to create processes snapshot",L"Warning",MB_SYSTEMMODAL|MB_OK);
                }
#endif
                UnmapViewOfFile(pData);
            }
#if defined(_DEBUG)
            else
            {
                pWinlogonDispTbl->WlxSwitchDesktopToWinlogon(hWinlogon);
                pWinlogonDispTbl->WlxMessageBox(hWinlogon,NULL,L"Failed to create view of file",L"Warning",MB_SYSTEMMODAL|MB_OK);
            }
#endif
            CloseHandle(hMap);
        }
#if defined(_DEBUG)
        else
        {
            pWinlogonDispTbl->WlxSwitchDesktopToWinlogon(hWinlogon);
            pWinlogonDispTbl->WlxMessageBox(hWinlogon,NULL,L"Failed to create file mapping",L"Warning",MB_SYSTEMMODAL|MB_OK);
        }
#endif
        CloseHandle(hFile);
    }
#if defined(_DEBUG)
    else
    {
        WCHAR buf[1024];
        swprintf(buf,L"Failed to open file %S",ListFileNameBuf);
        pWinlogonDispTbl->WlxSwitchDesktopToWinlogon(hWinlogon);
        pWinlogonDispTbl->WlxMessageBox(hWinlogon,NULL,buf,L"Warning",MB_SYSTEMMODAL|MB_OK);
    }
#endif
    if(bAskGina) //спросим у предыдущей GINA, если не решили сами
    {
        if(Wlxtbl.WlxScreenSaverNotify) //а есть ли у чего спрашивать (функция является опциональной)?
            return Wlxtbl.WlxScreenSaverNotify(pWlxContext,pSecure);
        else //используем стандартную заглушку Winlogon
        {
            if (*pSecure)
            {
                *pSecure = WlxIsLockOk(pWlxContext);
            }
            return(TRUE);
        }
    }
    else return FALSE; //запрещаем показ скринсейвера
}

[WinlogonDebug]
LogFile=C:\Winlogon.log
DebugFlags=Flag1[, Flag2...]