Função que retorna o caminha da pasta pessoal do
usuário que está logado no Windows.
Importante: Declare Shlobj e Windows;
Exemplo de uso:
1 2 3 4 5 6 7 8 9 10 | procedure TForm1.Button1Click(Sender: TObject); var PI : PItemIDList; A : array[0..MAX_PATH] of Char; N : Integer; begin SHGetSpecialFolderLocation(Handle, CSIDL_PERSONAL, PI); SHGetPathFromIDList(PI, A); Caption := Copy(A, 1, LastDelimiter('\', A) - 1); end; |
