местоположение папок Windows

← →
Borgir (2003-08-13 07:14) [0]

Уважаемые мастера, не подскажите ли как узнать местоположение (то есть путь) различных папок Windows, например "Мои документы".
Желательно, чтобы это работало в различных версиях Windows (98, 2000, XP)

← →
first_aid © (2003-08-13 07:37) [1]

Пользуй AIP функцию SHGetSpecialFolderPath.

← →
TheOldMen (2003-08-13 15:54) [2]

Следующий пример демонстрирует получение списка стандартных директорий оболочки. Список директорий содержит в себе следующее: Favorites, Desktop, Programs, Fonts, SendTo, Start
Menu, Templates, Startup, Recent and NetHood.

Пример:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegistry;
ts : TStrings;
i : integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
reg.OpenKey(
"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders",
false);
ts := TStringList.Create;
reg.GetValueNames(ts);
for i := 0 to ts.Count -1 do begin
Memo1.Lines.Add(ts.Strings[i] +
" = " +
reg.ReadString(ts.Strings[i]));
end;
ts.Free;
reg.CloseKey;
reg.free;
end;

> TheOldMen (13.08.03 15:54) [2]

Я думаю, first_aid выдал более корректный способ

1. Наверняка SHGetSpecialFolderPath и так роется в реестре
2 Функция SHGetSpecialFolderPath будет работать даже если в
будущих версиях Windows не будет реестра вообще.

местоположение папок Windows Найти похожие ветки