需要uses UniGUIApplication
var C : TUniClientInfoRec; begin UniLabel7.Caption:=UniApplication.RemoteAddress; C:=UniApplication.ClientInfoRec; UniLabel6.Caption:=C.BrowserType; UniLabel4.Caption:=IntToStr(C.BrowserVersion); UniLabel5.Caption:=C.OSType; end;
原文：http://www.cnblogs.com/kongshuiping/p/6103740.html