Carregando ...
Desculpe, ocorreu um erro ao carregar o conteúdo.

20886Re: RES: [hwguibr] Nome do Usuário do Windows no Xharbour

Expandir mensagens
  • Gilberto Silverio
    6 de dez 11h28min
      Ola Valdir,

      Baseado na rotina de erro do Hwgui:

      cMessage += Chr( 13 ) + Chr( 10 ) + 'Nome do Micro      : ' + netname() + " - Nome Usuario.: "+ netname(.t.)

      Tenta ai e ve se funciona...

      Em quarta-feira, 6 de dezembro de 2017 17:21:51 BRST, 'Valdir Cassio Rossi' valdircrossi@... [hwguibr] <hwguibr@...> escreveu:




      Pessoal

       

      Alguém tem uma dica para pegar o nome do Usuário do Windows no Xharbour ou HWGUI

      Tentei via API como abaixo e não deu certo:

       

      PROC NomeUsuario()

      LOCAL cNameUser := Replicate( Chr(0),100  ), nNameSize   := 100,nResult

       

               nResult :=   DllCall(  "Kernel32.dll"         , ;  // DLL to call

                  DC_CALL_STD           , ;  // calling vonvention

                 "GetUserName"         , ;  // BOOL GetVolumeInformation(

                 @cNameUser             , ;  //   LPTSTR lpNameuserBuffer ,

                 nNameSize                )  //   DWORD nVolumeNameSize ,

       

      RETURN cNameUser


      Livre de vírus. www.avast.com.


    • Mostrar todas as 4 mensagens neste tópico