|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#15
|
||||
|
||||
Примерно так:
Код:
Uses SHFolder; ... var Path: array [0..MAX_PATH] of Char; PersonalPath: String; ... SHGetFolderPath(0,CSIDL_PERSONAL,0,SHGFP_TYPE_CURRENT,@Path[0]); PersonalPath := Path; ... Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |