Login do Windows na Aplicacao

var ComputerName: array[1..20] of Char;
     UserName: array[1..512] of Char;
    arrSize: DWord;
begin
  arrSize := SizeOf(ComputerName);
  GetComputerName(@ComputerName, arrSize);

  arrSize := SizeOf(UserName);
  GetUserName(@UserName, arrSize);

  ShowMessage(´Computer name is: ´ + ComputerName + 1310 +
                        ´User name is: ´ + UserName)
end;

function ImpersonateUser( varLogin, varPassword : String ): Boolean;
var lpBuffer:array[ 0..63 ] of char;
    nSize: DWord;
    phToken: THandle;
    lpMsgBuf, login, Senha, Dominio : array [ 0..63 ] of Char ;
    Rede : TNetResource;
begin
   nSize:=64;
   fillchar( Dominio, nSize, 0 );
   fillchar( Login,   nSize, 0 );
   fillchar( Senha,   nSize, 0 );
   fillchar( lpMsgBuf,nSize, 0 );

   StrpCopy( Login,   varLogin     );
   StrpCopy( Senha,   varPassword  );
   StrpCopy( dominio, ConstDominio );

      If LogonUser(Login, Dominio, Senha,
                LOGON32_LOGON_NETWORK,
                LOGON32_PROVIDER_DEFAULT,
                phToken ) then begin
         try
           ImpersonateLoggedOnUser( phToken ); // Sua aplicação agora assumi a identidade do usuário ´X´
           GetUserName( lpBuffer, nSize); // Se consegue enxergar o nome do usuário ´X´ aqui, entao deu certo
           Result := lpBuffer = varLogin;

           if Result then
              DMGeral.GravaSenha( varLogin, varPassword );

         finally
           RevertToSelf; // Volta para o usuário original
         end;
         end
      else begin
         Mensagens(MBOK,ErroWindows( GetLastError()) + #13´Dados Invalidos !´);
         Result := False;
      end;
      // Voce está construindo um cavalo de tróia?
      // Eugenio Reis
      // MCSD, MCSE+I, MCDBA, MCT, OCP, Delphi Certified Consultant
end;