摘要：
//登陆子程functionTForm1.LoginU8:Boolean;beginSelf.bLogin:=False;trySelf.fLogin:=CreateOleObject('U8Login.clsLogin');Self.fNetLogin:=CreateOleObject('UFSOft.U8.Framework.Login.UI.clsLogin');iffNetLogin.lo
//登陆子程functionTForm1.LoginU8:Boolean;beginSelf.bLogin:=False;trySelf.fLogin:=CreateOleObject('U8Login.clsLogin');Self.fNetLogin:=CreateOleObject('UFSOft.U8.Framework.Login.UI.clsLogin');iffNetLogin.login_2('DP')thenbeginSelf.bLogin:=True;oLoginContext:=fNetLogin.SubLogin('DP');//暂未使用fLogin.ConstructLogin(fNetLogin.userToken);end;exceptMessageBox(0,'请安装用友软件(U8)!','错误',MB_OK);bLogin:=False;end;Result:=Self.bLogin;end;//获取相关信息ifnotSelf.LoginU8thenbeginApplication.Terminate;endelsebeginSelf.stat1.Panels[0].Text:='操作用户:'+fLogin.cUserName+'('+fLogin.cUserId+')';Self.stat1.Panels[1].Text:='应用服务器:'+fLogin.dbServerName;Self.stat1.Panels[2].Text:='帐套标识:'+fLogin.cAcc_Id;Self.stat1.Panels[3].Text:='操作日期:'+FormatDateTime('yyyy-mm-dd',fLogin.CurDate);Self.stat1.Panels[4].Text:='任务ID:'+fNetLogin.GetTaskID('DP');end;//正常退出时ifSelf.bLoginthenbeginSelf.fNetLogin.SubLogout('DP');Self.fNetLogin.ShutDown;end;网上搜到以上代码可以试下调用用友登陆获取登陆信息，现在我想不调用登陆，能否直接获取登陆信息，
因为我自己写了个exe程序想挂进用友U8，问题时我需要用友的登陆信息来控制我程序中的权限