Здравствуйте, у меня такой код procedure TForm1.Button1Click ( Sender : TObject

Question

Здравствуйте, у меня такой код procedure TForm1.Button1Click ( Sender : TObject

) ;
var
FREG : TRegIniFile;
begin
FREG := TRegIniFile.Create('HKEY_CURRENT_USER\Software\tmp\Settings\1');
try
FREG.WriteString('раз', 'два', 'три');
//FREG.CloseKey;
finally
FREG.Free;
end;
end;
хоть на FREG.CloseKey;, хоть на FREG.Free;получаю исключение INVID HANDLE.
подскажите как исправить?

#lazarus #programming #russian

0

27.12.2023

3 ответов

25 просмотров

Денис Автор вопроса

🥓 Хамон Эврибади
CloseKey(HKEY)

procedure TForm1.Button1Click ( Sender : TObject ) ; var FREG : TRegIniFile; begin FREG.RootKey := HKEY_CURRENT_USER; FREG := TRegIniFile.Create('\Software\tmp\Settings\1'); try FREG.WriteString('раз', 'два', 'три'); FREG.CloseKey(HKEY_CURRENT_USER); finally FREG.Free; end; end;

0

11 месяцев назад

🥓 Хамон Эврибади

Денис
procedure TForm1.Button1Click ( Sender : TObject )...

https://learn.microsoft.com/ru-ru/windows/win32/api/winreg/nf-winreg-regsetvalueexw

0

11 месяцев назад