Работа с реестром

[sVs]

сКАЖИТЕ ПЛИЗ. Как в фрях работать с реестром. Кажеться энто связано с ВинАпи, но я с ним не разбирался, так что если чем-то можете помочь, пишите. svs_soft@ukr.net

[yozh]

Не надо через WinAPI.

Код: Выделить всё

uses ..., registry;
var
 ...
 Reg:TRegistry;
begin
 ...
 Reg:=TRegistry.Create;
 try
   Reg.RootKey:=HKEY_CURRENT_USER;
   if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',True) then
     UserDir:=Reg.ReadString('AppData');
 finally Reg.CloseKey; Reg.Free; end;
 ...
end;