保存到注册表或文件中,打开时从相关位置获取。保存到文件示例:infWR1 = myWriteINI(App.Path & "\ChanBack.ini", "BmpDir", "BDir", Dir1.List(Dir1.ListIndex))'将dir1的当前路径保存到文件ChanBack.ini中File1.Path = myReadINI(App.Path & "\ChanBack.ini", "BmpDir", "BDir", iniDefault)'从文件ChanBack.ini中获取值Drive1.Drive = Mid(File1.Path, 1, 3)Dir1.Path = File1.Path'------... |