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

[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;