.INI ファイルから文字列を取得する
変数
strResult:pchar;
始める
GetPrivateProfileString(
'windows',//[]内はタイトル名
'NullPort',//=番号の前の名前
'NIL',//文字列が見つからない場合は、デフォルト値が返されます
strResult,//取得した文字を格納する
100, //許容される最大文字長を取得します
'c:/forwin95/win.ini'//呼び出されたファイル名
);
edit1.text:=strResult;//取得した文字列を表示
.INI ファイルから整数を取得
edit1.text:=inttostr(GetPrivateProfileInt(
'intl',//[]内はタイトル名
'i Country',//= 番号の前の名前
0, //整数が見つからない場合は、デフォルト値が返されます
'c:/forwin95/win.ini'//呼び出されたファイル名
));
文字列を .INI ファイルに書き込みます
WritePrivateProfileString(
'windows',//[]内はタイトル名
'load',//「=」記号の前に文字列を書き込みます
'accca',//書き込まれるデータ
'c:/forwin95/win.ini'//呼び出されたファイル名
);
整数を .INI ファイルに書き込む
WritePrivateProfileSection(
'windows',//[]内はタイトル名
'read=100',//書き込まれるデータ
'c:/forwin95/win.ini'//呼び出されたファイル名
);
上記の方法は、API 関数を呼び出すことです。次に、API を使用せずに .INI ファイルから文字を取得する別の方法を示します。
varMyIni:TIniFile;
始める
MyIni:=TIniFile.Create('WIN.INI');//呼び出されたファイル名
edit1.text:=MyIni.ReadString('デスクトップ','壁紙','');//文字を取得
終わり;
.INI ファイルに文字を書き込む方法
varMyIni:TIniFile;
始める
MyIni:=TIniFile.Create('WIN.INI');//呼び出されたファイル名
DelphiIni.WriteString('デスクトップ','壁紙','c:/a.bmp');
終わり;