Думаю из этого примера будет понятно:

Constructor TToriShellFolder.Create(AOwner:TComponent);
const
SubKey:string = 'Software\Microsoft\Windows\CurrentVersion\Explorer';{ключ в Регистре}
var
{$IFDEF WIN32}
RegFile:TRegIniFile;
{$ENDIF}
WinDir:array [0..255] of char;
TempVal:string;
begin
inherited Create ( aOwner ) ;
GetWindowsDirectory(WinDir,255);{узнаем каталог Windows}
FWindows:=StrPas(WinDir);
GetSystemDirectory(WinDir,255);{узнаем каталог System}
FSystem:=StrPas(WinDir);
{$IFDEF WIN32}
GetTempPath(255,WinDir);{узнаем каталог TEMP}
TempVal:=StrPas(WinDir);
FTemp:=Copy(TempVal,1,Length(TempVal)-1);{приводим в удобочитаемый вид}
RegFile:=TRegIniFile.Create(SubKey);{открываем Регистр}
FDeskTop:=RegFile.ReadString('Shell Folders','Desktop',' ');{читаем данные из Регистра}
FFavorites:=RegFile.ReadString('Shell Folders','Favorites',' ');
FFonts:=RegFile.ReadString('Shell Folders','Fonts',' ');
FNetHood:=RegFile.ReadString('Shell Folders','NetHood',' ');
FPersonal:=RegFile.ReadString('Shell Folders','Personal',' ');
FPrograms:=RegFile.ReadString('Shell Folders','Programs',' ');
FRecent:=RegFile.ReadString('Shell Folders','Recent',' ');
FSendTo:=RegFile.ReadString('Shell Folders','SendTo',' ');
FStartMenu:=RegFile.ReadString('Shell Folders','Start Menu',' ');
FStartUp:=RegFile.ReadString('Shell Folders','StartUp',' ');
FTemplates:=RegFile.ReadString('Shell Folders','Templates',' ');
RegFile.Free;{закрываем Регистр}
{$ENDIF}
end;

Так я же сказал, что это наводка