Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > папка Quick Launch

Автор: SlaUr 9.4.2004, 07:30

Вот пытаюсь правильно создать фунцию , которая возращает путь к папке Quick Launch.
В реестре специального параметра не нашел

Написал следующий код:

Код


Function QuickLaunchDir:string;
var r : TRegistry;
begin
Result:='';
r:=TRegistry.Create(KEY_READ);
R.RootKey:=HKEY_CURRENT_USER;
try
if r.Openkey ('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False)then
begin
  if r.ValueExists('AppData') then
   begin
    Result:=r.ReadString('AppData'+'\Microsoft\Internet Explorer\Quick Launch\');
     end;
  r.CloseKey;
end;
finally
r.Free;
end;
end;

Может есть более правильный метод ?