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

原文：http://www.cnblogs.com/itisken/p/6386962.html