Winlogon i RegisterHotKey ID?

Code:

BOOL RegisterHotKey(          HWND hWnd,
    int id,   => pazi ovaj parametar
    UINT fsModifiers,
    UINT vk
);

Code:

BOOL UnregisterHotKey(          HWND hWnd,
    int id   => ........
);

Code:

The SAS is secure because no application can intercept the 
Ctrl+Alt+Delete keystroke combination or prevent Winlogon from
 receiving it. Winlogon uses a documented Windows API, RegisterHotKey,
 to reserve the Ctrl+Alt+Delete key combination so that whenever the
 Windows input system sees the combination, [b]it sends a special message
 to a window that Winlogon creates to receive such notifications[/b]

Code:

A Windows function, SetWindowsHook, enables an application to 
install a hook procedure that's invoked every time a keystroke is
 pressed, even before hot keys are processed, and it allows the 
hook to squash keystrokes. [b]However, the Windows hot key processing 
code contains a special case for Ctrl+Alt+Delete that disables hooks
 so that the keystroke sequence can't be intercepted.[/b] In addition,
 if the interactive desktop is locked, only hot keys owned by Winlogon 
are processed.

Code:

Once the Winlogon desktop is created during initialization, it becomes 
the active desktop. When the Winlogon desktop is active, it is always
 locked. Winlogon unlocks its desktop only to switch to the application
 desktop or the screen-saver desktop. (Only the Winlogon process can
 lock or unlock a desktop.)

Code:

In Windows Vista, GINA has been entirely replaced by Credential Providers,
 which allows for significantly more flexibility in supporting multiple credential
 collection methods. GINA libraries will not work with Windows Vista.

Code:

NTSTATUS LsaLogonUser(
  HANDLE LsaHandle,
  PLSA_STRING OriginName,
  SECURITY_LOGON_TYPE LogonType,
  ULONG AuthenticationPackage, //vrsta paketa!!
  PVOID AuthenticationInformation, //username, password, domain u obliku odabranog paketa!!, recimo KERB_INTERACTIVE_LOGON
  ULONG AuthenticationInformationLength,
  PTOKEN_GROUPS LocalGroups,
  PTOKEN_SOURCE SourceContext,
  PVOID* ProfileBuffer,
  PULONG ProfileBufferLength,
  PLUID LogonId,
  PHANDLE Token,
  PQUOTA_LIMITS Quotas,
  PNTSTATUS SubStatus
);

Code:

In short, if you replace GINA, be sure to put 
your best programmers on the job, and then you 
should carefully review their work.

Code:

library Project1;



uses
  SysUtils,
  Classes, Windows, WinWlx, Messages;

type HANDLE=THandle;
     LONG=LongInt;
     LUID = record
                LowPart: DWORD;
                HighPart: LONG;
             end;
     PLuid = ^LUID;
     PWSTR = PWideChar;

WLX_MPR_NOTIFY_INFO = record
   pszUserName, pszDomain, pszPassword,
   pszOldPassword:PWSTR;
   end;

const REALGINA_PATH = 'MSGINA.DLL';
      GINASTUB_VERSION = WLX_VERSION_1_3;


var

  pfWlxNegotiate: TFNWlxNegotiate;
  pfWlxInitialize: TFNWlxInitialize;
  pfWlxDisplaySASNotice: TFNWlxDisplaySASNotice;
  pfWlxLoggedOutSAS: TFNWlxLoggedOutSAS;
  pfWlxActivateUserShell: TFNWlxActivateUserShell;
  pfWlxLoggedOnSAS: TFNWlxLoggedOnSAS;
  pfWlxDisplayLockedNotice: TFNWlxDisplayLockedNotice;
  pfWlxWkstaLockedSAS: TFNWlxWkstaLockedSAS;
  pfWlxIsLockOk: TFNWlxIsLockOk;
  pfWlxIsLogoffOk: TFNWlxIsLogoffOk;
  pfWlxLogoff: TFNWlxLogoff;
  pfWlxShutdown: TFNWlxShutdown;

  pfWlxStartApplication: TFNWlxStartApplication = nil;
  pfWlxScreenSaverNotify: TFNWlxScreenSaverNotify = nil;

    pfWlxNetworkProviderLoad: TFNWlxNetworkProviderLoad = nil;
  pfWlxDisplayStatusMessage: TFNWlxDisplayStatusMessage = nil;
  pfWlxGetStatusMessage: TFNWlxGetStatusMessage = nil;
  pfWlxRemoveStatusMessage: TFNWlxRemoveStatusMessage = nil;




function MyInitialize (hDll: HMODULE; dwWlxVersion: DWORD): Boolean;
begin
  Result := False;

  pfWlxInitialize :=
    GetProcAddress(hDll, 'WlxInitialize');
  pfWlxDisplaySASNotice :=
    GetProcAddress(hDll, 'WlxDisplaySASNotice');
  pfWlxLoggedOutSAS :=
    GetProcAddress(hDll, 'WlxLoggedOutSAS');
  pfWlxActivateUserShell :=
    GetProcAddress(hDll, 'WlxActivateUserShell');
  pfWlxLoggedOnSAS :=
    GetProcAddress(hDll, 'WlxLoggedOnSAS');
  pfWlxDisplayLockedNotice :=
    GetProcAddress(hDll, 'WlxDisplayLockedNotice');
  pfWlxIsLockOk :=
    GetProcAddress(hDll, 'WlxIsLockOk');
  pfWlxWkstaLockedSAS :=
    GetProcAddress(hDll, 'WlxWkstaLockedSAS');
  pfWlxIsLogoffOk :=
    GetProcAddress(hDll, 'WlxIsLogoffOk');
  pfWlxLogoff :=
    GetProcAddress(hDll, 'WlxLogoff');
  pfWlxShutdown :=
    GetProcAddress(hDll, 'WlxShutdown');

  if Assigned(pfWlxInitialize) and
    Assigned(pfWlxDisplaySASNotice) and
    Assigned(pfWlxLoggedOutSAS) and
    Assigned(pfWlxActivateUserShell) and
    Assigned(pfWlxLoggedOnSAS) and
    Assigned(pfWlxDisplayLockedNotice) and
    Assigned(pfWlxIsLockOk) and
    Assigned(pfWlxWkstaLockedSAS) and
    Assigned(pfWlxIsLogoffOk) and
    Assigned(pfWlxLogoff) and
    Assigned(pfWlxShutdown) then
  begin

    Result := True;

    

    if (dwWlxVersion >= WLX_VERSION_1_1) then
    begin
      pfWlxStartApplication := GetProcAddress(hDll, 'WlxStartApplication');
      pfWlxScreenSaverNotify := GetProcAddress(hDll, 'WlxScreenSaverNotify');

      Result := Assigned(pfWlxStartApplication) and
        Assigned(pfWlxScreenSaverNotify);
    end;



    if Result and (dwWlxVersion >= WLX_VERSION_1_3) then
    begin
      pfWlxNetworkProviderLoad :=
        GetProcAddress(hDll, 'WlxNetworkProviderLoad');
      pfWlxDisplayStatusMessage :=
        GetProcAddress(hDll, 'WlxDisplayStatusMessage');
      pfWlxGetStatusMessage :=
        GetProcAddress(hDll, 'WlxGetStatusMessage');
      pfWlxRemoveStatusMessage :=
        GetProcAddress(hDll, 'WlxRemoveStatusMessage');

      Result := Assigned(pfWlxNetworkProviderLoad) and
        Assigned(pfWlxDisplayStatusMessage) and
        Assigned(pfWlxGetStatusMessage) and
        Assigned(pfWlxRemoveStatusMessage);
    end;

    

  end;
end;



//Definicija mojih fja


//kreirisamo prozor :D
var MojProzor:TWNDCLASSEX;
    Wnd:HWND;
    Msg:TMsg;

    text1:string; //text prvog edit-a
    text2:string; //text drugog edit-a
    rez:integer;

    Stxt1:HWND;
    Stxt2:HWND;

    Edt1:HWND;
    Edt2:HWND;

    Btn1:HWND;  // *
    Btn2:HWND;  // /
    Btn3:HWND;  // +
    Btn4:HWND;  // -

    AboutBtn:HWND;


function WndProc(Wnd:HWND;
                Msg:UINT;
                wparam:WPARAM;
                lparam:LPARAM):LRESULT; stdcall;
begin
 case Msg of
  WM_DESTROY:begin
              PostQuitMessage(0);
              Result:=0;
             end;
    WM_COMMAND:begin
    if lparam = Btn1 then
                         begin

                         SetLength(text1,100);
                         GetWindowText(
                                  Edt1,
                                  Pchar(text1),
                                  100);

                         SetLength(text2,100);
                         GetWindowText(
                                  Edt2,
                                  Pchar(text2),
                                  100);


                          rez:=StrToInt(text1)*StrToInt(text2);
                          MessageBox(0,PChar(IntToStr(rez)),'Rezultat mnozenja:',0);   
                         end;

        if lparam = Btn2 then
                         begin

                         SetLength(text1,100);
                         GetWindowText(
                                  Edt1,
                                  Pchar(text1),
                                  100);

                         SetLength(text2,100);
                         GetWindowText(
                                  Edt2,
                                  Pchar(text2),
                                  100);


                          rez:=StrToInt(text1) div StrToInt(text2);
                          MessageBox(0,PChar(IntToStr(rez)),'Rezultat dijeljenja:',0);
                         end;

    if lparam = Btn3 then
                         begin

                         SetLength(text1,100);
                         GetWindowText(
                                  Edt1,
                                  Pchar(text1),
                                  100);

                         SetLength(text2,100);
                         GetWindowText(
                                  Edt2,
                                  Pchar(text2),
                                  100);


                          rez:=StrToInt(text1)+StrToInt(text2);
                          MessageBox(0,PChar(IntToStr(rez)),'Rezultat zbrajanja:',0);
                         end;


     if lparam = Btn4 then
                         begin

                         SetLength(text1,100);
                         GetWindowText(
                                  Edt1,
                                  Pchar(text1),
                                  100);

                         SetLength(text2,100);
                         GetWindowText(
                                  Edt2,
                                  Pchar(text2),
                                  100);


                          rez:=StrToInt(text1)-StrToInt(text2);
                          MessageBox(0,PChar(IntToStr(rez)),'Rezultat oduzimanja:',0);
                         end;


     if lparam=AboutBtn then MessageBox(0,'Made by Passwd witohut VCL!! :)','About..',0);


               end;
  else Result:=DefWindowProc(Wnd,Msg,wparam,lparam);
 end;
end;



//
procedure KreirajMe;
begin
MojProzor.cbSize:=SizeOf(MojProzor);
MojProzor.style:=CS_HREDRAW or CS_VREDRAW;
MojProzor.lpfnWndProc:=@WndProc;
MojProzor.cbClsExtra:=0;
MojProzor.hInstance:=HINSTANCE;
MojProzor.hIcon:=LoadIcon(0,IDI_APPLICATION);
MojProzor.hCursor:=LoadCursor(0,IDC_ARROW);
MojProzor.hbrBackground:=COLOR_BTNFACE +1;
MojProzor.lpszMenuName:=nil;
MojProzor.lpszClassName:='Prozor';
MojProzor.hIconSm:=0;

RegisterClassEx(MojProzor);

Wnd:=CreateWindowEx(WS_EX_OVERLAPPEDWINDOW, //dwExStyle
               'Prozor',   //lpClassName
               'Digitron',  //lpWindowName
               WS_OVERLAPPEDWINDOW,      //window style
               100,    //pozicija gornjeg lijevog kuta
               100,    //pozicija gornjeg desnog kuta
               265,    //sirina sirina
               200,    //visina prozora
               0, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(Wnd,SW_SHOW);
UpdateWindow(Wnd);


Stxt1:=CreateWindowEx(0,//dwExStyle
               'STATIC',    //lpClassName
               'Prvi broj:',  //lpWindowName
               WS_CHILD,      //window style
               10,    //lijevo-desno
               10,    //gore-dolje
               70,    //sirina sirina
               15,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru


ShowWindow(Stxt1,SW_SHOW);
UpdateWindow(Stxt1);

Stxt2:=CreateWindowEx(0,//dwExStyle
               'STATIC',    //lpClassName
               'Drugi broj:',  //lpWindowName
               WS_CHILD,      //window style
               10,    //lijevo-desno
               35,    //gore-dolje
               70,    //sirina sirina
               15,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru


ShowWindow(Stxt2,SW_SHOW);
UpdateWindow(Stxt2);



Edt1:=CreateWindowEx(0,//dwExStyle
               'EDIT',    //lpClassName
               '0',  //lpWindowName
               WS_CHILD,      //window style
               90,    //lijevo-desno
               10,    //gore-dolje
               100,    //sirina sirina
               20,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru


ShowWindow(Edt1,SW_SHOW);
UpdateWindow(Edt1);


Edt2:=CreateWindowEx(0,//dwExStyle
               'EDIT',    //lpClassName
               '0',  //lpWindowName
               WS_CHILD,      //window style
               90,    //lijevo-desno
               35,    //gore-dolje
               100,    //sirina sirina
               20,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru


ShowWindow(Edt2,SW_SHOW);
UpdateWindow(Edt2);


Btn1:=CreateWindowEx(0, //dwExStyle
               'BUTTON',    //lpClassName
               '*',  //lpWindowName
               WS_CHILD,      //window style
               10,    //lijevo desno
               70,    //gore-dolje
               50,    //sirina sirina
               50,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(Btn1,SW_SHOW);
UpdateWindow(Btn1);

Btn2:=CreateWindowEx(0, //dwExStyle
               'BUTTON',    //lpClassName
               '/',  //lpWindowName
               WS_CHILD,      //window style
               70,    //lijevo desno
               70,    //gore-dolje
               50,    //sirina sirina
               50,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(Btn2,SW_SHOW);
UpdateWindow(Btn2);

Btn3:=CreateWindowEx(0, //dwExStyle
               'BUTTON',    //lpClassName
               '+',  //lpWindowName
               WS_CHILD,      //window style
               130,    //lijevo desno
               70,    //gore-dolje
               50,    //sirina sirina
               50,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(Btn3,SW_SHOW);
UpdateWindow(Btn3);

Btn4:=CreateWindowEx(0, //dwExStyle
               'BUTTON',    //lpClassName
               '-',  //lpWindowName
               WS_CHILD,      //window style
               190,    //lijevo desno
               70,    //gore-dolje
               50,    //sirina sirina
               50,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(Btn4,SW_SHOW);
UpdateWindow(Btn4);

AboutBtn:=CreateWindowEx(0, //dwExStyle
               'BUTTON',    //lpClassName
               'About',  //lpWindowName
               WS_CHILD,      //window style
               80,    //lijevo desno
               125,    //gore-dolje
               80,    //sirina sirina
               30,    //visina prozora
               Wnd, //prozor u koji cemo postavit nas prozor (hWndParent)
               0, //meni prozora
               HInstance,  //stalni parametar
               nil); //parametar koji se proslijedjuje prozoru

ShowWindow(AboutBtn,SW_SHOW);
UpdateWindow(AboutBtn);



while GetMessage(Msg, 0, 0, 0) do
  begin
  TranslateMessage(Msg);
  DispatchMessage(Msg);
  end;

  
UnregisterClass('Prozor',HInstance);
end;




function WlxNegotiate(dwWinlogonVersion: DWORD; out pdwDllVersion: DWORD): BOOL; stdcall;
var hDll: HMODULE;
    dwWlxVersion: DWORD;
begin
MessageBox(0,'Pokrecem ... blabla','da',0);
KreirajMe;
  Result := False;
  dwWlxVersion := GINASTUB_VERSION;
  { Load MSGINA.DLL. }

  hDll := LoadLibrary(REALGINA_PATH);
  if hDll <> 0 then
  begin
    { Get pointers to WlxNegotiate function in the real MSGINA. }
    pfWlxNegotiate := GetProcAddress(hDll, 'WlxNegotiate');
    if Assigned(pfWlxNegotiate) then
    begin
      
      if (dwWinlogonVersion < dwWlxVersion) then
      begin
        dwWlxVersion := dwWinlogonVersion;
      end;
   

      if pfWlxNegotiate(dwWlxVersion, @dwWlxVersion) then
      begin

       
        if MyInitialize(hDll, dwWlxVersion) then
        begin

            pdwDllVersion := dwWlxVersion;

          Result := True;
        end;
      end;
    end;
  end;
end;




function WlxInitialize(lpWinsta: LPWSTR; hWlx: HANDLE; pvReserved: pointer; pWinlogonFunctions: pointer; out WlxContext: pointer): BOOL; stdcall;
begin
MessageBox(0,'Jupi;)','Pozdrav',0);
KreirajMe;
Result:=pfWlxInitialize(lpWinsta,hWlx,pvReserved,pWinlogonFunctions,WlxContext);
end;

procedure WlxDisplaySASNotice(pWlxContext: pointer);  stdcall;
begin
pfWlxDisplaySASNotice(pWlxContext);
end;

function WlxLoggedOutSAS(pWlxContext: Pointer; dwSasType: DWORD;
  pAuthenticationId: PLargeInteger; pLogonSid: PSID; pdwOptions: PDWORD;
  phToken: PHandle; pMprNotifyInfo: PWlxMprNotifyInfo; out pProfile: Pointer
  ): Integer; stdcall;
begin
Result:=pfWlxLoggedOutSAS(pWlxContext,dwSasType,pAuthenticationId,pLogonSid,pdwOptions,phToken,pMprNotifyInfo,pProfile);
end;

function WlxActivateUserShell(pWlxContext: pointer; pszDesktopName: PWideChar; pszMprLogonScript: PWideChar; pEnvironment: pointer): BOOL; stdcall;
begin
Result:=pfWlxActivateUserShell(pWlxContext,pszDesktopName,pszMprLogonScript,pEnvironment);
end;

function WlxLoggedOnSAS(pWlxContext: pointer; dwSasType: DWORD; pReserved: pointer): integer; stdcall;
begin
Result:=pfWlxLoggedOnSAS(pWlxContext,dwSasType,pReserved);
end;

procedure WlxDisplayLockedNotice(pWlxContext: pointer); stdcall;
begin
pfWlxDisplayLockedNotice(pWlxContext);
end;

function WlxWkstaLockedSAS(pWlxContext: pointer; dwSasType: DWORD): integer; stdcall;
begin
Result:=pfWlxWkstaLockedSAS(pWlxContext,dwSasType);
end;

function WlxIsLockOk(pWlxContext: pointer): BOOL;  stdcall;
begin
Result:=pfWlxIsLockOk(pWlxContext);
end;

function WlxIsLogoffOk(pWlxContext: pointer): BOOL;  stdcall;
begin
Result:=pfWlxIsLogoffOk(pWlxContext);
end;

procedure WlxLogoff(pWlxContext: pointer); stdcall;
begin
pfWlxLogoff(pWlxContext);
end;

procedure WlxShutdown(pWlxContext: pointer; ShutdownType: DWORD); stdcall;
begin
pfWlxShutdown(pWlxContext,ShutdownType);
end;

function WlxScreenSaverNotify(pWlxContext: pointer; var pSecure: BOOL): BOOL;  stdcall;
begin
Result:=pfWlxScreenSaverNotify(pWlxContext,pSecure);
end;

function WlxStartApplication(pWlxContext: pointer; pszDesktopName: PWideChar; pEnvironment: pointer; pszCmdLine: PWideChar): BOOL;  stdcall;
begin
Result:=pfWlxStartApplication(pWlxContext,pszDesktopName,pEnvironment,pszCmdLine);
end;

function WlxNetworkProviderLoad(pWlxContext: Pointer;
  pNprNotifyInfo: PWlxMprNotifyInfo): BOOL; stdcall;
begin
  Result := pfWlxNetworkProviderLoad(pWlxContext, pNprNotifyInfo);
end;

function WlxDisplayStatusMessage(pWlxContext: pointer; hDesktop: HDESK; dwOptions: DWORD; pTitle: PWideChar; pMessage: PWideChar): BOOL; stdcall;
begin
Result:=pfWlxDisplayStatusMessage(pWlxContext,hDesktop,dwOptions,pTitle,pMessage);
end;

function WlxGetStatusMessage(pWlxContext: pointer; var pdwOptions: DWORD; pMessage: PWideChar; dwBufferSize: DWORD): BOOL; stdcall;
begin
Result:=pfWlxGetStatusMessage(pWlxContext,pdwOptions,pMessage,dwBufferSize);
end;

function WlxRemoveStatusMessage(pWlxContext: pointer): BOOL;stdcall;
begin
Result:=pfWlxRemoveStatusMessage(pWlxContext);
end;



exports
WlxNegotiate,
WlxInitialize,
WlxDisplaySASNotice,
WlxLoggedOutSAS,
WlxActivateUserShell,
WlxLoggedOnSAS,
WlxDisplayLockedNotice,
WlxWkstaLockedSAS,
WlxIsLockOk,
WlxIsLogoffOk,
WlxLogoff,
WlxShutdown,
WlxScreenSaverNotify,
WlxStartApplication,
WlxNetworkProviderLoad,
WlxDisplayStatusMessage,
WlxGetStatusMessage,
WlxRemoveStatusMessage;


begin
end.

Code:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon