Реестр Windows в Lazarus доступен ?

[swt]

Коллеги, есть ли средства доступа к реестру Windows в Lazarus ?

[yozh]

А зачем он тебе? MS вроде как решила на него забить и теперь будет срать преимущественно в Documents and Dettings . И другим советует. В связи с этим, всё, что надо от реестра, - это:

uses registry;

...

procedure TForm1.Button3Click(Sender: TObject);
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 Edit1.Text:=Reg.ReadString('AppData');
finally
Reg.CloseKey;
Reg.Free;
end;
end;

Оно компилится и работает (в винде)

[yozh]

Кстати, в линуксе оно тоже собирается и запускается, но OpenKey вызывает Exception. Так что даже {$IFDEF} не надо - просто проверяй результат и действуй соответственно