Как узнать местоположение специальных папок у Windows

var

FolderPath :string;

begin

Registry := TRegistry.Create; try
Registry.RootKey := HKey_Current_User; Registry.OpenKey('SoftwareMicrosoftWindows'+ 'CurrentVersionExplorerShell Folders', False); FolderName := Registry.ReadString('StartUp'); {Cache, Cookies, Desktop, Favorites, Fonts, Personal, Programs, SendTo, Start Menu, Startp} finally
Registry.Free;
end

;

Другое по теме:

• Регистрация программ в меню "Пуск" Windows
• Хочется создать ну очень маленький инсталлятор
• Запуск внешней программы и ожидание ее завершения