04.05.2009, 23:36
|
|
Гуру
|
|
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
|
|
Примерно так:
Код:
Uses SHFolder;
...
var
Path: array [0..MAX_PATH] of Char;
PersonalPath: String;
...
SHGetFolderPath(0,CSIDL_PERSONAL,0,SHGFP_TYPE_CURRENT,@Path[0]);
PersonalPath := Path;
...
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|