//登陆子程
function
TForm1
.
LoginU8:
Boolean
;
begin
Self
.
bLogin:=
False
;
try
Self
.
fLogin:=CreateOleObject(
'U8Login.clsLogin'
);
Self
.
fNetLogin:=CreateOleObject(
'UFSOft.U8.Framework.Login.UI.clsLogin'
);
if
fNetLogin
.
login_2(
'DP'
)
then
begin
Self
.
bLogin:=
True
;
oLoginContext:=fNetLogin
.
SubLogin(
'DP'
);
//暂未使用
fLogin
.
ConstructLogin(fNetLogin
.
userToken);
end
;
except
MessageBox(
0
,
'请安装用友软件(U8)!'
,
'错误'
,MB_OK);
bLogin:=
False
;
end
;
Result:=Self
.
bLogin;
end
;
//获取相关信息
if
not
Self
.
LoginU8
then
begin
Application
.
Terminate;
end
else
begin
Self
.
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
;
//正常退出时
if
Self
.
bLogin
then
begin
Self
.
fNetLogin
.
SubLogout(
'DP'
);
Self
.
fNetLogin
.
ShutDown;
end
;
网上搜到以上代码可以试下调用用友登陆获取登陆信息,现在我想不调用登陆,能否直接获取登陆信息,
因为我自己写了个exe程序想挂进用友U8,问题时我需要用友的登陆信息来控制我程序中的权限