腾讯云开发者社区

#include <IniFiles.hpp>

TIniFile *ini;   
ini   = new    TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );   
Top   = ini->ReadInteger( "Form", "Top", 100 );   
Left = ini->ReadInteger( "Form", "Left", 100 );   
Caption = ini->ReadString( "Form", "Caption" , "Default Caption" );   
ini->ReadBool( "Form", "InitMax", false ) ? WindowState = wsMaximized : WindowState = wsNormal;   
 delete ini;   

 TIniFile *ini;   
ini = new TIniFile( ChangeFileExt( Application->ExeName, ".INI" ) );   
ini->WriteInteger( "Form", "Top", Top );   
ini->WriteInteger( "Form", "Left", Left );   
ini->WriteString ( "Form", "Caption", Caption );   
ini->WriteBool    ( "Form", "InitMax",WindowState == wsMaximized );   
delete ini;