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; |
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; |
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(GetMyDocuments);
end;
Fonte: http://delphi.about.com/od/delphitips2007/qt/mydocuments.htm
-
Giovani Da Cruz
-
5.099 views
- 0 comentários
- 8 de outubro de 2016
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo