在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
var si:STARTUPINFO; pi:PROCESS_INFORMATION; CommandLine:String; ProcessFileName:string; begin if (Trim(edtLoginName.Text)='') or (Trim(edtPassword.Text)='') then begin MsgBoxError(Handle,'请输入用户名及密码!'); Exit; end; if not SemsClientApp.LoginManager.ValidateLogin(edtLoginName.Text,edtPassword.Text) then begin MsgBoxError(Handle,'用户名或密码错误,请重新输入!'); Exit; end; try FillChar(si,SizeOf(si),0); FillChar(pi,SizeOf(pi),0); si.cb:=SizeOf(si); ProcessFileName:=SemsClientApp.AppPath+'\sems.bin'; CommandLine:='"'+ProcessFileName+'" /S"'+Application.ExeName+'" /L"'+edtLoginName.Text+'" /P"'+edtPassword.Text+'"'; if CreateProcess(PAnsiChar(ProcessFileName),PAnsiChar(CommandLine),nil,nil,False,0,nil,nil,si,pi) then Close; except MsgBoxError(Handle,'启动程序失败!'); end; end |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论