XlfSid function ConvertSidToStringSid(Sid: {THandle}PSID; var StrSid: LPTSTR): BOOL stdcall; function GetNTLogonUser(): string; function GetNTLogonSid(): string; VCEdit function ChangeVerify(RPCBroker: TRPCBroker): Boolean; function SilentChangeVerify(RPCBroker: TRPCBroker; OldVerify, NewVerify1, NewVerify2: String; var Reason: String): Boolean; SelDiv function ChooseDiv(userid : string; MDivBroker: TRPCBroker): Boolean; function SetDiv(division : string; MDivBroker: TRPCBroker): boolean; //p13 function MultDiv(MDivBroker: TRPCBroker): boolean; function SelectDivision(DivisionArray: TStrings; MDivBroker: TRPCBroker): Boolean; RpcSLogin function SilentLogIn(SLBroker: TRPCBroker): boolean; procedure GetUserInfo(ConnectedBroker: TRPCBroker); procedure GetSessionInfo(ConnectedBroker: TRPCBroker); procedure StartProgSLogin(const ProgLine: String; ConnectedBroker: TRPCBroker; WindowType: Integer = SW_SHOWNORMAL); function CheckCmdLine(SLBroker: TRPCBroker): Boolean; RpcConf1 function GetServerInfo(var Server,Port: string): integer; function GetServerIP(ServerName: String): String; Rpcnet {Windows OS abstraction functions. Should be taken over by VA Kernel} function libGetCurrentProcess: word; {Socket functions using library RPCLIB.DLL, in this case called locally} function libGetHostIP1(inst: integer; HostName: PChar; var outcome: PChar): integer; export; function libGetLocalIP(inst: integer; var outcome: PChar): integer; export; procedure libClose(inst: integer); export; function libOpen:integer; export; function GetTCPError:string; {Secure Hash Algorithm functions, library SHA.DLL and local interfaces} function libGetLocalModule: PChar; export; function GetFileHash(fn: PChar): longint; export; RpcbErr procedure ShowBrokerError(BrokerError: EBrokerError); procedure NetError(Action: string; ErrType: integer); MFunStr function Piece(x: string; del: string; piece1: integer = 1; piece2: integer=0): string; function Translate(passedString, identifier, associator: string): string; XWBHash function Decrypt(EncryptedText: string): string; function Encrypt(NormalText: string): string; fRPCBErrMsg procedure RPCBShowErrMsg(ErrorText: String); frmVistAAbout procedure ShowAboutBox; CCOWRPCBroker procedure AuthenticateUser(ConnectingBroker: TCCOWRPCBroker); XWBut1 function BuildSect(s1: string; s2: string): string; procedure GetHostList(HostList: TStrings); function GetHostsPath : String; function GetIniValue(Value, Default: string): string; function Iff(Condition: boolean; strTrue, strFalse: string): string; function Sizer (s1: string; s2: string): string; function ReadRegData(Root : HKEY; Key, Name : string) : string; procedure WriteRegData(Root: HKEY; Key, Name, Value : string); procedure DeleteRegData(Root: HKEY; Key, Name : string); function ReadRegDataDefault(Root: HKEY; Key, Name, Default : string) : string; procedure ReadRegValues(Root: HKEY; Key : string; var RegValues : TStringList); procedure ReadRegValueNames(Root:HKEY; Key : string; var RegNames : TStringlist); trpcb procedure StoreConnection(Broker: TRPCBroker); function RemoveConnection(Broker: TRPCBroker): boolean; function DisconnectAll(Server: string; ListenerPort: integer): boolean; function ExistingSocket(Broker: TRPCBroker): integer; procedure AuthenticateUser(ConnectingBroker: TRPCBroker); procedure GetBrokerInfo(ConnectedBroker : TRPCBroker); //P6 function NoSignOnNeeded : Boolean; function ProcessExecute(Command: string; cShow: Word): Integer; function GetAppHandle(ConnectedBroker : TRPCBroker): String; function ShowApplicationAndFocusOK(anApplication: TApplication): boolean;