Поиск директории Program Files

← →
DmitryMN (2004-07-19 11:45) [0]

Подскажите - как программно найти директорию Program Files?

← →
N170 (2004-07-19 11:50) [1]

Через функцию SHGetSpecialFolderLocation() можно.
Описание - см. MSDN.

Это для "мои документы"

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;

Поиск директории Program Files Найти похожие ветки