delphi怎么创建ini文件

[GONGJUNRUI123]

小白，求大神，最好有例程

[zbdzjx]

网上搜： http://blog.163.com/pengjintaogz@126/blog/static/162299068201031442440213/

[juno_393]

procedure TForm1.btn1Click(Sender: TObject);
var
  myini:TIniFile;
begin
    myini:=TIniFile.Create('C:/YHPlayer/myini.ini');
    MyIni.Free;
end;

注意要引用IniFiles uses IniFiles;

[lyhoo163]

procedure ReadExcelWordCDESeeSkinIni; // 读取ExcelWordCDESee
var ini:tinifile;
begin
  ini:=tinifile.Create(INIPath+'Config.ini');
  SkinFile:=ini.ReadString('皮肤','Skin','.\Skin\QQ2009.she');
  SkinChang:=ini.ReadBool('皮肤','Chang',SkinChang);
  SkinAero:=ini.ReadBool('皮肤','Aero',SkinAero);
  SkinMenu:=ini.ReadBool('皮肤','Menu',SkinMenu);
  ini.free;
end;

procedure WriteExcelWordCDESeeSkinIni; // 写ExcelWordCDESee
var ini:tinifile;
begin
  ini:=TIniFile.Create(INIPath+'Config.INI');
  ini.WriteString( '皮肤','Skin',SkinFile);
  ini.WriteBool( '皮肤','Chang',SkinChang);
  ini.WriteBool( '皮肤','Aero',SkinAero);
  ini.WriteBool( '皮肤','Menu',SkinMenu);
  ini.Free;
end;

上面是读写Ini的过程。

[lyhoo163]

注意单元还要加上此单元： uses inifiles;

[不得闲]

用IniFiles中的TIniFile，其实Ini规则很简单，就算没有，自己写一个也没啥

[santiaodahan]

告诉你一个容易想到的思路。搜索Delphi的Demo目录的下的ini文件。使用ini文件的程序一定有源码可以参考。