网友写的解决uniGUI限制的方法

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

群友写的解决uniGUI试用版限制修改SessionTimeOut，思路很精巧，贴过来分享，感谢朋友的奉献。当然，如果真正用uniGUI实做项目，买份正版是正道！

var
UniServerOption, newUniServerOption : TUniServerOptions;
n : Integer;
begin
UniServerOption := UniServerModule.Options;
pAddr := @UniServerModule.Options;
newUniServerOption := [soShowLicenseInfo, soAutoPlatformSwitch, soDisableBrowserCompatibilityMessage, soRestartSessionOnTimeout, soAllowSessionRecording];
n := Byte((@newUniServerOption)^);
PInteger(pAddr)^ := n;
UniServerOption := UniServerModule.Options;
end;

对于在ide中修改无效的属性是因为代码中只有getxxx而没有了setxxx
可按上面的方法自行脑补