Como pegar a pasta MEUS DOCUMENTOS dos usuario no Win-xp 32/64, Win-7 32/64, win-8 32/64 ?

Delphi

26/10/2013

Olá boa tarde!

Desejaria saber Como pegar o caminho da pasta do usuário: "MEUS DOCUMENTOS" no Win-xp 32/64, Win-7 32/64, win-8 32/64 ?


100+

ANT.CARLOS/SP

Antonio Jesus

Antonio Jesus

Curtidas 0

Respostas

Itamar Souza

Itamar Souza

26/10/2013

Olá boa tarde!

Desejaria saber Como pegar o caminho da pasta do usuário: "MEUS DOCUMENTOS" no Win-xp 32/64, Win-7 32/64, win-8 32/64 ?


100+

ANT.CARLOS/SP



Amigo, veja isso

att


var
chosenDirectory : string;
begin
// selecione o diretório
if SelectDirectory('Select a directory', 'C:\', chosenDirectory)
then ShowMessage('Chosen directory = '+chosenDirectory)
else ShowMessage('Directory selection aborted');
end;


var
options : TSelectDirOpts;
chosenDirectory : string;
begin
chosenDirectory := 'C:\'; // setar o diretório
// Ask the user to select using a completely different dialog!
if SelectDirectory(chosenDirectory, options, 0)
then ShowMessage('Chosen directory = '+chosenDirectory)
else ShowMessage('Directory selection aborted');
end;
GOSTEI 0
Antonio Jesus

Antonio Jesus

26/10/2013

Olá boa tarde!

Obrigado pela atenção!

Mas não é isto que queria.

Eu queria que ao entrar no sistema o mesmo já pesquisasse:

1-Qual o nome do Usuário logado ?

2-Qual o caminho da pasta Meus Documentos ?
Ex: C:\Documents and Settings\Usuário\Meus documentos (nome do usuário é USUÁRIO)

Pois preciso cria/Verificar uma pasta existe em meus documentos, sem que o usuário logado interfira.
EX: preciso cria a pasta: C:\Documents and Settings\Usuário\Meus documentos\TESTE

100+

ANT.CARLOS/SP




GOSTEI 0
Antonio Jesus

Antonio Jesus

26/10/2013

Consegui pegar o usuário logado!

Ai ficou + fácil pesquisar.

//Para Capturar o usuário Logado no Windows 
Function GetNetUserName: string; 
Var 
  NetUserNameLength: DWord; 
Begin 
  NetUserNameLength:=50; 
  SetLength(Result, NetUserNameLength); 
  GetUserName(pChar(Result),NetUserNameLength); 
  SetLength(Result, StrLen(pChar(Result))); 
End;
GOSTEI 0
POSTAR