Code: Alles auswählen
//Schreiben
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
try
WriteInteger('Application','Left',Left);
WriteString('Application','Version','Alpha 1');
finally
Free;
end;
//Lesen
with TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) do
try
Left:=ReadInteger('Application','Left',Left);
if ReadString('Application','Version','')<>'Alpha 1' then
ShowMessage('Wrong Version');
finally
Free;
end;