| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск директории Program Files [D6, WinXP]
DmitryMN © (2004-07-19 11:45:00)Подскажите - как программно найти директорию Program Files?
Суслик (2004-07-19 11:52:00) [1]Это для "мои документы"
FUNCTION GetMyDocumentsDir: String;
VAR
kPath: array [0..MAX_PATH] of Char;
kPIDL: PItemIDList;
kAlloc: IMalloc;
BEGIN
Result := '';
if SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, kPIDL) = 0 then
begin
try
if SHGetPathFromIDList(kPIDL,kPath) then
begin
Result := kPath;
end;
finally
if Succeeded(SHGetMalloc(kAlloc)) then
begin
kAlloc.Free(kPIDL);
end;
end;
end;
END;
N170 (2004-07-19 11:50:00) [2]Через функцию SHGetSpecialFolderLocation() можно.
Описание - см. MSDN.
| |
