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

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

Expandir mensagens
  • Valdir Cassio Rossi
    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()
    Mensagem 1 de 4 , 6 de dez 11h21min

      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.
    • Luiz Rafael Culik
      netname (.t.) ou gete ( username ) Abraços Luiz Em 6 de dez de 2017 17:21, Valdir Cassio Rossi valdircrossi@yahoo.com.br ... netname (.t.) ou gete
      Mensagem 2 de 4 , 6 de dez 11h28min
        netname (.t.) ou gete ('username')

        Abraços 
        Luiz 

        Em 6 de dez de 2017 17:21, "'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.
      • Gilberto Silverio
        Ola Valdir, Baseado na rotina de erro do Hwgui: cMessage += Chr( 13 ) + Chr( 10 ) + Nome do Micro      : + netname() + - Nome Usuario.: +
        Mensagem 3 de 4 , 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.


        • Valdir Cassio Rossi
          Nada como perguntar pros colegas. Eu já usava NETNAME mas nunca tinha percebido o argumento! Obrigado Luiz De: hwguibr@yahoogrupos.com.br
          Mensagem 4 de 4 , 6 de dez 11h38min

            Nada como perguntar pros colegas.

            Eu já usava NETNAME mas nunca tinha percebido o argumento!

             

            Obrigado Luiz

             

             

             

             

            De: hwguibr@... [mailto:hwguibr@...]
            Enviada em: quarta-feira, 6 de dezembro de 2017 17:29
            Para: hwguibr@...
            Assunto: Re: RES: [hwguibr] Nome do Usuário do Windows no Xharbour

             

             

            netname (.t.) ou gete ('username')

             

            Abraços 

            Luiz 

             

            Em 6 de dez de 2017 17:21, "'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

             

            46

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

          Sua mensagem foi enviada com êxito e será entregue aos destinatários em breve.