Clipper On Line • Ver Tópico - como pegar o usuário do win e a pasta user ?

como pegar o usuário do win e a pasta user ?

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

como pegar o usuário do win e a pasta user ?

Mensagempor paiva_dbdc » 11 Abr 2018 21:14

Boa noite

tem users usuários etc

como saber o nome da pasta e o nome do usuario para se poder posicionar uma busca la pasta download ?

ex:

c:\usuários\paiva\download\*.xml ?

desde ja agradeço

Paiva
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor JoséQuintas » 11 Abr 2018 23:42

Dentre muitas opções, incluindo API Windows, a mais simples é pegar variáveis de ambiente.
No prompt digite SET e vai ver as variáveis que existem.
Depois é só usar GetEnv()
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor paiva_dbdc » 12 Abr 2018 20:18

Valeu

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows

essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor JoséQuintas » 12 Abr 2018 20:19

não entendi.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor asimoes » 12 Abr 2018 20:59

Definindo uma variável de ambiente em tempo de execução

SetEnvironmentVariable( "TESTE", "12345" )

hwg_MsgInfo( hb_GetEnv( "TESTE" ) ) Vai retornar 12345

#pragma BEGINDUMP
#include <Windows.h>
#include <hbApi.h>

HB_FUNC( SETENVIRONMENTVARIABLE )
{
   hb_retl( SetEnvironmentVariableA( (LPCSTR) hb_parcx( 1 ),
                                     (LPCSTR) hb_parcx( 2 )
                                     ) ) ;
}

#pragma ENDDUMP
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor asimoes » 12 Abr 2018 21:05

Observações:

A função SetEnvironmentVariable() define a variável de ambiente em tempo de execução mas só é vista pela aplicação que a define.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor asimoes » 13 Abr 2018 09:14

Lendo melhor esse tópico acho que eu entendi o que você quer, listar as variáveis de ambiente do windows então deve ser isso:

FUNCTION GetVariaveisAmbiente()
LOCAL oLocator, oWMI, cVarAmb
   
   oLocator   := CreateObject( "wbemScripting.SwbemLocator" )
   oWMI       := oLocator:ConnectServer()
   cVarAmb    := ""
   
   FOR EACH oEnvVar IN oWmi:ExecQuery( "SELECT * FROM Win32_Environment" )
      cVarAmb += oEnvVar:Name + "=" + oEnvVar:VariableValue + Hb_Eol()
   NEXT
   
RETURN cVarAmb   
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor paiva_dbdc » 13 Abr 2018 09:55

opa

no DOS .... SET > arq.txt
dentro do arq.txt achei essas linhas

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows

essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor asimoes » 13 Abr 2018 10:28

paiva_dbdc escreveu:opa

no DOS .... SET > arq.txt
dentro do arq.txt achei essas linhas

HOMEPATH=\Users\paiva
USERPROFILE=C:\Users\paiva
windir=C:\Windows

essa mata tudo rs USERPROFILE=C:\Users\paiva

e para executar o set destro do sistema

crio uma bat e no sistema mando executar ?

ou tem uma forma melhor ?

ob

Paiva

A resposta já foi postada.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

como pegar o usuário do win e a pasta user ?

Mensagempor Claudio Soto » 13 Abr 2018 10:35

cUP:= hb_GetEnv( "USERPROFILE" )
Saludos.
Dr. Claudio Soto
(Uruguay)
http://srvet.blogspot.com
Avatar de usuário

Claudio Soto
Colaborador

Colaborador
 
Mensagens: 555
Data de registro: 27 Ago 2012 12:31
Cidade/Estado: Uruguay
Curtiu: 35 vezes
Mens.Curtidas: 166 vezes




Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro