Определение пути к папке

[Ntlegend]

Драсте.. у меня возникла такая проблема нужно определить путь к папке с ярлыками "быстрого запуска"
(в WinXP = C:\Documents and Settings\%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch
в Windows 7 = C:\Users\%username%\AppData\Roaming \Microsoft\Internet Explorer\Quick Launch)

вариант вводить константы и дальше проверять версию винды не подходит..
функцыя SHGetSpecialFolderLocation тоже не подходит (описание ее констант тут)
читать с реестра тоже не охота.. а как еще можна єто сделать ч ятото не нахожу

[Stilet]

читать с реестра тоже не охота

Че так?......

[Kotofff]

а чем не нравиться функция SHGetSpecialFolderLocation ?
И ее использование к примеру :

function  GetVirtualFolderPath(Hand:THandle; param: integer):string;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(Hand, param, SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    Result := string(FBuf);
  end;
end;

Получи путь к Application Data

GetVirtualFolderPath(Application.Handle, CSIDL_APPDATA{значение $001a})

и далее иди по ней...

[Stilet]

Kotofff

Внимательно читай пути в первом посте.
Там пути разные.

[Kotofff]

Только что проверил на Windows 7 - все работает корректно ...

[Ntlegend]

Сообщение от Stilet

Че так?......

потому что это единственный вариант который пришол мне в голову.. если других методов нету - то так и сделаю.. но если есть другие способы - то из 2-х можна выбрать наиболее рацыональный в данном случае..

Получи путь к Application Data

GetVirtualFolderPath(Application.Handle, CSIDL_APPDATA{значение $001a})

и далее иди по ней...
***
Только что проверил на Windows 7 - все работает корректно ...

ну получу я Application Data а дальше куда??
[QUOTE]
(в WinXP = C:\Documents and Settings\%userprofile%\Application Data\Microsoft\Internet Explorer\Quick Launch
в Windows 7 = C:\Users\%username%\AppData\Roaming\Microsoft\Inte rnet Explorer\Quick Launch)
[QUOTE]

как вариант еще можна взять и проверить на существование папки Roaming но это опять таки ведет к констнтам.. а использовать константы пути я нехочу.. ато при какихто новых введениях в Windows прийдётся модефиціровать код программы..

Перерел реестр.. нигде не нашол.. остается тока вариант вводить константы.. может ктонибудь еще чтото посоветует??

[Stilet]

Ntlegend

гм.гм... Поскольку это папка не Винды а Эксплорера, то можно попробовать выцепить путь к папке Internet Explorer, а в нем уж и КвикЛанч.

Задача только в том как получить именно его папку - может быть спросить у самого Эксплорера.