F�rum Pegar usu�rio logado do windows #1264

09/12/2008

Vamos n�is denovo.... Preciso pegar o nome do usu�rio logado no windows, s� que a fun��o GETLOGADO que me foi passado s� funciona quando eu tenho 1 usuario logado por vez. No xp e vista tem a op��o de troca rapida de usuarios onde eu posso ter mais de um usu�rio logado. Ai que est� o problema, essa fun��o sempre me retorna o primeiro que logou, mesmo eu tendo dois usuarios logados. Eu preciso pegar o usu�rio que estou com a aea de trabalho ativa... � esse nome que eu preciso... sds

Cia Papel

Curtir t�pico

+ 0

Responder

Posts

09/12/2008

Wesley Yamazack

Luis, estarei verificando o mesmo para voc�. Assim que tiver um resultado respondo

Responder

Gostei + 0

10/12/2008

Cia Papel

Weslei... descobri o erro.... a fun;�o getlogado que o rodrigo tinha me passado funciona, tambem ja consegui interceptar o momento que ele faz o login, que era minha duvida num topico anterior. So que tem mais um problema, pra variar. Eu executo meu programa usando uma fun��o runasuser, que eleva o nivel do usuario para administrador, quando o usuario � limitado. Por esse motivo a fun;�o getlogado me traz o nome do usuario que eu elevei e nao o que eu estou logado, e preciso fazer isso de dentro do programa, n�o posso fazer por fora, tipo criar outro programa sem nivel de eleva�ao. Ent�o o que eu gostaria �: pegar o usuario logado de dentro de um programa que foi executado com nivel de eleva��o de administrador. Espero que tenha sido claro. sds

Responder

Gostei + 0

10/12/2008

Guinther Pauli

Ol� Luis

Eu tenho uma fun��o que sempre utilizei em meus projetos, experimente para ver se supre a sua necessidade:

{ Declare Windows no uses }

function NomeUsuario: string;
const
Max = 254;
var
Nome: string;
Tam: DWORD;
begin
Tam := Max - 1;
SetLength(Nome,Max);
GetUserName(PChar(Nome),Tam);
SetLength(Nome,Tam);
result := Nome;
end;

Att,

Guinther

Responder

Gostei + 0

10/12/2008

Cia Papel

Ola... Como te disse, ela funciona perfeitamente, s� que tenho uma caracteristica do meu programa, que � executar ele como usuario administrador. Exemplo pra vc entender. Crie um programa no delphi utilizando essa function. Cria um usuario limitado no windows e loga nele. Localiza o exe gerado no projeto, clica com o botao direito em cima dele, op��o executar como, e escolhe o usuario que administrador ou outro qualquer que tenha nivel de administrador. Voc� vai ver que ele nao traz o usuario logado e sim o usuario que vc escolheu para executar o sistema.... e eu preciso trazer o usu�rio logado... sds

Responder

Gostei + 0

12/12/2008

Cia Papel

Alguma novidade com rela��o ao t�pico?

Responder

Gostei + 0

13/12/2008

Rodrigo Mour�o

Ol� Alexandre !!! Ainda n�o, por�m me diz uma coisa: Qual a necessidade de se executar o seu programa como administrator ou como outro usu�rio que n�o seja o logado ??

Responder

Gostei + 0

13/12/2008

Cia Papel

O software que temos faz altera�oes no registro, e muitas empresas tem em suas caracteristicas fazer com que os usuarios sejam "limitados" em suas redes, fazendo com que a edi�ao do registro n�o seja possivel. Ai a necessidade de fazer com que o software execute como administrador mesmo o usu�rio sendo limitado. O problema � que preciso pegar o usuario logado e n�o o usuario administrador que o sistema elevou.....

Responder

Gostei + 0

15/12/2008

Rodrigo Mour�o

Realmente Alexandre a fun��o acima retorna o nome do usuario que h� executou. Estarei verificando uma outra forma de retornar o usu�rio logado !!! abs !!

Responder

Gostei + 0

23/12/2008

Rodrigo Mour�o

Ol� Alexandre, como vai ??? Eu tentei todas as possibilidades aqui, inclusive com as fun��es que voc� postou no chamado 807 por�m sem obter sucesso. Encaminhei seu problema para a administra��o. Estaremos contactando outros consultores para que possamos tentar resolver seu problema. Agrade�o a compreens�o. Obrigado !!!

Responder

Gostei + 0

23/12/2008

Ricardo Boaro

Ol�.

      Vamos l�, realmente seu "problema" � complexo, mas estamos aqui para isso mesmo, se fosse barbada vc mesmo resolveria. Entendo que a �nica forma de revolvermos � coletarmos algumas fun��es que fazem esse controle de login e test�-las, abaixo estou colocando algumas que conhe�o.

Function LogUser : String;
{Requer a unit Registry declarada na clausula Uses da Unit}
var
Registro:TRegistry;
begin
Registro := TRegistry.Create;
Registro.RootKey := HKEY_LOCAL_MACHINE;
   if Registro.OpenKey(Network\Logon, false) then
    begin
      result := Registro.ReadString(username);
   end;
   Registro.Free;
end;

    Essa � uma delas, segundo meus testes aqui funciona no Windows XP.

Function usuario: string;
var
buffer: array[0..255] of char;
size: dword;
begin
size := 256;
   if GetUserName(buffer, size) then
    Result := buffer
     else
      Result :=
end;

      Outra, essa funcionou no Windows Vista, mas temos que testar em sua aplica��o tendo modificado o nivel de permiss�o do usu�rio.

Function TfrmMensagem.funGetNomeUser: String;
// Adicionar ao User a Classe Registry
var
vobjRegistro : TRegistry;
begin
vobjRegistro := TRegistry.Create;
   try
    case Win32Platform of
     VER_PLATFORM_WIN32_WINDOWS: begin // Windows 9x
     vobjRegistro.RootKey := HKEY_LOCAL_MACHINE;
    if vobjRegistro.OpenKey(\Network\Logon, True) then
     Result := vobjRegistro.ReadString(username);
    end;

   VER_PLATFORM_WIN32_NT: begin // Windows XP
   vobjRegistro.RootKey := HKEY_CURRENT_USER;
   if vobjRegistro.OpenKey(\Software\Microsoft\Windows\CurrentVersion\Explorer, True) then
     Result := vobjRegistro.ReadString(Logon User Name);
   end;
end;

finally
vobjRegistro.Free;
end;
end;

         Essa eu testei no XP e retornou certinho, mas vamos ver se funciona para voc�.

         Espero que uma das 3 resolva seu problema, enquanto voc� testa em sua aplica��o eu vou fazer outros testes por aqui.

         Abra�o e Boas Festas!!

Responder

Gostei + 0

26/12/2008

Ricardo Boaro

Luis, Resolvido seu problema ? Podemos encerrar esse chamado ou precisa de algo mais ? abs

Responder

Gostei + 0

29/12/2008

Cia Papel

Opa.... rapaz, entrei de ferias da empresa e volto dia 05 pra testar.........

Responder

Gostei + 0

05/01/2009

Ricardo Boaro

      Luis,
      Resolvido seu problema ? Conseguiu testar?
      Podemos encerrar esse chamado ou precisa de algo mais ?
      abs

Responder

Gostei + 0

05/01/2009

Cia Papel

bom dia... pode finalizar.... funcionou perfeitamente... obrigado

Responder

Gostei + 0