Código Delphi
[-]with TRegistry.Create do
try
RootKey:= HKEY_CURRENT_USER;
if OpenKey('\Software\edittxt',TRUE) then
begin
WriteInteger('top',form1.top);
CloseKey;
WriteInteger('left',form1.left);
CloseKey;
end;
finally
Free;
end;
end;
Esto me da un error de los que obligan a cerrar la aplicación. Lo activo con CloseQuery.