首页 > 代码库 > delphi
delphi
begin OpenDialog1.InitialDir:=init_dir; if OpenDialog1.Execute then begin ListBox1.Items:=OpenDialog1.Files;
if ListBox1.Items.Count>0 then begin//有選 //寫入個人設定 //C:\WINDIWS\GICPARA.INI InifPersonal := TIniFile.Create(MakePath(pubWinPath)+‘GICPARA.INI‘); init_dir:=ListBox1.Items.Strings[0]; InifPersonal.WriteString(‘GICCDS‘,‘TRI_XLS_TI‘,init_dir);//轉入路徑 InifPersonal.Free; end; end; end;
delphi
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。