.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');
終わり;
もちろん、これは非常に簡単に解読できるため、XOR を使用して XOR 演算を実行したり、反転したりすることができます。
価値...それは実装方法によって異なります。つまり、この記事は単なる出発点です。