Como obter a pasta Meus Documentos do usuário logado no Windows? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como obter a pasta Meus Documentos do usuário logado no Windows?

 

A pasta “Meus Documentos” é normalmente utilizada para armazenar
arquivos de uso frequente do usuário.

Há casos em que precisamos criar algum documento ou mesmo uma
configuração específica para o usuário em aplicativos por nós
desenvolvidos e ai precisamos encontrar o local desta pasta.

Felizmente há uma função que simplifica muito o nosso trabalho!

Veja o código abaixo:

1
2
3
4
5
6
7
8
9
10
11
12
uses shlobj;
 
function GetMyDocuments: string;
var
  r: Bool;
  path: array [0 .. Max_Path] of Char;
begin
  r := ShGetSpecialFolderPath(0, path, CSIDL_Personal, False);
  if not r then
    raise Exception.Create('Não foi possível obter o local dos  Meus Documentos.');
  Result := path;
end;

Exemplo de uso:

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetMyDocuments);
end;

Fonte: http://delphi.about.com/od/delphitips2007/qt/mydocuments.htm

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 118 views
  • 0 comentários
  • 8 de outubro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados