) Т > BLib\Win\Choices 1.00 14-Mar-2005 Т Find user's choices :Т (C)J.G.Harston, may be freely used and redistributed ;(Т v1.00 14-Mar-2005 JGH: Rd(), Find(), Init() functions 2: E<Т REQUIRE PROCChoices_Rd() needs PROCVar_Assign() from Variable DFТ REQUIRE FNChoices_Find() needs PROCReg_Rd() from Win\Reg DPТ REQUIRE PROCChoices_Set() needs PROCReg_Rd() from Win\Reg Z: d: 9nТ PROCChoices_Rd() - read choices from specified file AxТ Sets string variables 'm' to contents of choices file A┌Т ----------------------------------------------------------- ▄: √щРChoices_Rd(file$):Й A$,A% ═in%=▌(file$) ╙Гin% ▄ ЄУ ЎA$=Ў#in%:Г юA$,1)="#":A$="" хA%=їA$,":"):Г A% ▄ &рA%=A%-1:У:A%=A%+1:Щ аA$,A%,1)<>" " 6эРVar_Assign("m"+юA$,A%-1)+"$",""""+аA$,A%+1)+"""") Фм ПЩ е#in%:ы#in%:in%=0 Зм А : : A"Т PROCChoices_Find() - Find a choices filename from registery A,Т ----------------------------------------------------------- 6: +@щєChoices_Find(Publisher$,Application$) @J=єReg_Rd("Software\"+Publisher+"\"+Application$+"\Settings") T: ^: =hТ PROCChoices_Set() - Set a choices filename in registery =rТ ------------------------------------------------------- |: 0├щєChoices_Set(Publisher$,Application$,Path$) E░РReg_Wr("Software\"+Publisher+"\"+Application$+"\Settings",Path$) : ЪЪ