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
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
