Delphi. Трюки и эффекты

Использование функции GetSpecialDir

procedure TForm3.Button1Click(Sender: TObject);

var

item: TListItem;

begin

lvwPathes.Clear;

//Определение путей некоторых системных каталогов

//..Рабочий стол

item := lvwPathes.Items.Add();

item.Caption := \'Рабочий стол\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_DESKTOPDIRECTORY));

//..Избранное

item := lvwPathes.Items.Add();

item.Caption := \'Избранное\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_FAVORITES));

//..Шрифты

item := lvwPathes.Items.Add();

item.Caption := \'Шрифты\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_FONTS));

//..Мои документы

item := lvwPathes.Items.Add();

item.Caption := \'Мои документы\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_PERSONAL));

//..Последние документы

item := lvwPathes.Items.Add();

item.Caption := \'Последние документы\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_RECENT));

//..История

item := lvwPathes.Items.Add();

item.Caption := \'История\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_HISTORY));

//..Отправить

item := lvwPathes.Items.Add();

item.Caption := \'Отправить\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_SENDTO));

//..Меню Пуск

item := lvwPathes.Items.Add();

item.Caption := \'Пуск\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_STARTMENU));

//..Меню Программы

item := lvwPathes.Items.Add();

item.Caption := \'Программы\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_PROGRAMS));

//..Меню Автозагрузка

item := lvwPathes.Items.Add();

item.Caption := \'Автозагрузка\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_STARTUP));

//..Папка с шаблонами документов

item := lvwPathes.Items.Add();

item.Caption := \'Шаблоны\

item.SubItems.Insert(0, GetSpecialDir(CSIDL_TEMPLATES));

end;