Программирование Delphi

Например, что нужно сделать, чтобы вернуть строку: "C: \ Documents и Settings \ [имя пользователя] \ Application Data \", для текущего пользователя Windows, при вызове?

Действует только на Windows NT/2K/XP

uses ShFolderPath;
 { ... }
 function LocalAppDataPath : string;
 const
    SHGFP_TYPE_CURRENT = 0;
 var
    path: array [0..MAX_PATH] of char;
 begin
    SHGetFolderPath(0, CSIDL_LOCAL_APPDATA,
         0, SHGFP_TYPE_CURRENT, @path[0]) ;
    Result := path;
 end;