[Страдалецъ]

Примерно так:

Код:

1 2 3 4 5 6 7 8 9

Uses SHFolder; ... var   Path: array [0..MAX_PATH] of Char;   PersonalPath: String; ... SHGetFolderPath(0,CSIDL_PERSONAL,0,SHGFP_TYPE_CURRENT,@Path[0]); PersonalPath := Path; ...