Текущий архив: 2004.08.29;
Скачать: CL | DM;

Вниз

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

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

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

---

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

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

---

← →
Суслик ©   (2004-07-19 11:52) [2]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.29;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.067 c