//---------------------------------------------------------------------------
void __fastcall THttpTestForm::FormShow(TObject *Sender)
{
TIniFile *IniFile;
if (!Initialized) {
Initialized = TRUE;
IniFile = new TIniFile(FIniFileName);
Width = IniFile->ReadInteger(SectionWindow, KeyWidth, Width);
Height = IniFile->ReadInteger(SectionWindow, KeyHeight, Height);
Top = IniFile->ReadInteger(SectionWindow, KeyTop,
(Screen->Height - Height) / 2);
Left = IniFile->ReadInteger(SectionWindow, KeyLeft,
(Screen->Width - Width) / 2);
URLEdit->Text = IniFile->ReadString(SectionData, KeyUrl,
"https://localhost");
DateTimeEdit->Text = IniFile->ReadString("Data", "DateTime", "");
SocksServerEdit->Text = IniFile->ReadString(SectionData, KeySocksServer,
"");
SocksPortEdit->Text = IniFile->ReadString(SectionData, KeySocksPort,
"1080");
ProxyHostEdit->Text = IniFile->ReadString(SectionData, KeyProxyHost,
"");
ProxyPortEdit->Text = IniFile->ReadString(SectionData, KeyProxyPort,
"8080");
DocEdit->Text = IniFile->ReadString(SectionData, KeyDoc,
"/index.html");
CertFileEdit->Text = IniFile->ReadString(SectionData, KeyCertFile,
"01cert.pem");
PrivKeyFileEdit->Text = IniFile->ReadString(SectionData, KeyPrivKeyFile,
"01key.pem");
PassPhraseEdit->Text = IniFile->ReadString(SectionData, KeyPassPhrase,
"password");
CAFileEdit->Text = IniFile->ReadString(SectionData, KeyCAFile,
"cacert.pem");
CAPathEdit->Text = IniFile->ReadString(SectionData, KeyCAPath,
"");
SocksLevelComboBox->ItemIndex = IniFile->ReadInteger(SectionData, KeySocksLevel,
0);
AcceptableHostsEdit->Text = IniFile->ReadString(SectionData, KeyAcceptableHosts,
"www.overbyte.be;www.borland.com");
VerifyPeerCheckBox->Checked = IniFile->ReadBool(SectionData,
KeyVerifyPeer,
0);
HttpVersionComboBox->ItemIndex = IniFile->ReadInteger(SectionData,
KeyHttpVer, 0);
SessCacheCheckBox->Checked = IniFile->ReadBool(SectionData,
KeySessCache, False);
DebugEventCheckBox->Checked = IniFile->ReadBool(SectionData, KeyDebugEvent, False);
DebugOutputCheckBox->Checked = IniFile->ReadBool(SectionData, KeyDebugOutput, False);
DebugFileCheckBox->Checked = IniFile->ReadBool(SectionData, KeyDebugFile, False);
delete IniFile;
DisplayMemo->Clear();
}
}
void TSettings::LoadFromFile(String filename) {
TIniFile *ini = new TIniFile(filename);
Fullscreen = ini->ReadBool("Global", "FullScreen", false);
FormsWidth = ini->ReadInteger("Global", "Width", 1024);
FormsHeight = ini->ReadInteger("Global", "Height", 1024);
FormsLeft = ini->ReadInteger("Global", "Left", 0);
FormsTop = ini->ReadInteger("Global", "Top", 0);
SoundEnabled = ini->ReadBool("Global", "Sound", false);
SoundVolume = ini->ReadInteger("Global", "SoundVolume", 100);
SetVolumeSFX(SoundVolume/100.);
MusicEnabled = ini->ReadBool("Global", "Music", false);
MusicVolume = ini->ReadInteger("Global", "MusicVolume", 100);
SetVolumeMusic(MusicVolume/100.);
HostMode = ini->ReadBool("Global", "HostMode", false);
MinWidth = 1024;
MinHeight = 768;
for (int i = 1; i <= 5; i++) {
PlayerNames[i - 1] = ini->ReadString("Players", "Player" + IntToStr(i), "PlayerName");
PlayerType[i - 1] = (TBotType)ini->ReadInteger("Players", "PlayerType" + IntToStr(i), 0);
}
LastBase = ini->ReadString("Global", "LastBase", "");
if (LastBase == "") {
if (FileExists("base\\main.dat")) {
LastBase = "main.dat";
} else {
MessageBox(Application->Handle,
"Ошибка загрузки последней базы вопросов\n" "Попытка загрузить base\\main.dat также провалилась - файла не существует.",
"Критическая ошибка", MB_OK | MB_ICONSTOP);
Application->Terminate();
}
}
int i = 0;
BaseFiles.clear();
BaseNames = new TStringList;
while (1) {
String name = ini->ReadString("Bases", "basename" + IntToStr(i), "");
String file = ini->ReadString("Bases", "base" + IntToStr(i), "");
if ((name != "") && (file != "")) {
BaseFiles[name] = file;
BaseNames->Add(name);
} else {
break;
}
i++ ;
}
ini->Free();
}
//---------------------------------------------------------------------------
void __fastcall TPrefsForm::SetHotkeyButtonClick(TObject* Sender) {
CheckPrefsInterOpt();
CheckReadonlyOpt(PrefFileOpt);
TIniFile* Ini = new TIniFile(PrefFileOpt);
long int HotKey = HotKeyComb->HotKey;
int Mods = 0;
int Key = 0;
if (HotKeyComb->Modifiers.Contains(hkShift))
HotKey -= 8192;
if (HotKeyComb->Modifiers.Contains(hkAlt))
HotKey -= 32768;
if (HotKeyComb->Modifiers.Contains(hkCtrl))
HotKey -= 16384;
try {
if (HotKeyComb->Modifiers.Contains(hkShift))
Ini->WriteBool("Options", "Mod_Shift", 1);
else
Ini->WriteBool("Options", "Mod_Shift", 0);
if (HotKeyComb->Modifiers.Contains(hkAlt))
Ini->WriteBool("Options", "Mod_Alt", 1);
else
Ini->WriteBool("Options", "Mod_Alt", 0);
if (HotKeyComb->Modifiers.Contains(hkCtrl))
Ini->WriteBool("Options", "Mod_Ctrl", 1);
else
Ini->WriteBool("Options", "Mod_Ctrl", 0);
Ini->WriteInteger("Options", "HotKey", HotKey);
} catch (...) {
Application->MessageBoxA(LMessagesOpt.WritePrefsError, LMessagesOpt.Error, MB_OK + MB_ICONERROR);
}
try {
if (Ini->ReadBool("Options", "Mod_Shift", 0))
Mods += MOD_SHIFT;
if (Ini->ReadBool("Options", "Mod_Alt", 0))
Mods += MOD_ALT;
if (Ini->ReadBool("Options", "Mod_Ctrl", 0))
Mods += MOD_CONTROL;
Key = Ini->ReadInteger("Options", "HotKey", 165);
} catch (...) {
Application->MessageBoxA(LMessagesOpt.ReadPrefsError, LMessagesOpt.Error, MB_OK + MB_ICONERROR);
}
try {
Ini->WriteInteger("Options", "Hot2", HotKeyComb->HotKey);
} catch (...) {
Application->MessageBoxA(LMessagesOpt.WritePrefsError, LMessagesOpt.Error, MB_OK + MB_ICONERROR);
}
if (HotKeyComb->HotKey != 0) {
UnregisterHotKey(Application->Handle, 1);
bool HotKey2 = RegisterHotKey(Application->Handle, 1, Mods, Key);
if (!HotKey2)
Application->MessageBoxA(LMessagesOpt.HotExists, LMessagesOpt.Error, MB_OK + MB_ICONWARNING);
}
delete Ini;
SetHotkeyButton->Enabled = false;
}
//---------------------------------------------------------------------------
void __fastcall TPrefsForm::FormShow(TObject* Sender) {
CheckPrefsInterOpt();
try {
OSdetectOpt();
TRegistry* Reg = new TRegistry;
TIniFile* Ini = new TIniFile(PrefFileOpt);
MinOnClose->Checked = Ini->ReadBool("Options", "MinOnClose", 1);
if (Ini->ReadBool("Options", "TopPages", 1))
TopPages->Checked = true;
else
BottomPages->Checked = true;
if (Ini->ReadBool("Options", "WorkMode", 1))
NormalMode->Checked = true;
else
HighMode->Checked = true;
FontComboBox1->FontName = Ini->ReadString("Options", "DefaultFont", "MS Sans Serif");
DefaultFontSizePosition->Position = Ini->ReadInteger("Options", "DefaultFontSize", 10);
FadeShow->Checked = Ini->ReadBool("Options", "FadeShow", 1);
URLDetect->Checked = Ini->ReadBool("Options", "URLDetect", 1);
Transparency->Checked = Ini->ReadBool("Options", "Transparency", 0);
TransValue->Position = Ini->ReadInteger("Options", "TransValue", 255);
MultiLines->Checked = Ini->ReadBool("Options", "MultiLines", 0);
FadeSpeedPosition->Position = Ini->ReadInteger("Options", "FadeSpeed", 2);
FadeHide->Checked = Ini->ReadBool("Options", "FadeHide", 1);
IconInTray->Checked = Ini->ReadBool("Options", "TrayIcon", 1);
TaskbarCheck->Checked = Ini->ReadBool("Options", "TaskbarIcon", 1);
XPEffects->Checked = Ini->ReadBool("Options", "XPEffects", 1);
StyleBox->ItemIndex = Ini->ReadInteger("Options", "Style", 1);
HideWind->Checked = Ini->ReadBool("Options", "HideWindow", 0);
HideTimePosition->Position = Ini->ReadInteger("Options", "HideTimeout", 30);
AskFormat->Checked = Ini->ReadBool("Options", "AskOnFormatChange", 1);
if (Ini->ReadString("Options", "DefaultPageFormat", "RTF") == "RTF")
FormatPageBox->ItemIndex = 0;
else
FormatPageBox->ItemIndex = 1;
StyleIs = StyleBox->ItemIndex;
FadeShowClick(Sender);
TransparencyClick(Sender);
HideWindClick(Sender);
if ((OSopt != "WinXP") && (OSopt != "Win2K") && (OSopt != "Win2003")) {
Transparency->Checked = false;
Transparency->Enabled = false;
TransValue->Position = 255;
TransValue->Enabled = false;
FadeShow->Checked = false;
FadeShow->Enabled = false;
FadeSpeed->Enabled = false;
FadeSpeedPosition->Enabled = false;
FadeHide->Enabled = false;
}
StyleBoxChange(Sender);
Reg->RootKey = HKEY_CURRENT_USER;
Reg->OpenKey("\\Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);
if (Reg->ValueExists("SimpleNotes") && (Reg->ReadString("SimpleNotes") == Application->ExeName))
StartWithWindows->Checked = true;
else
StartWithWindows->Checked = false;
HotKeyComb->Modifiers.Clear();
int Key = Ini->ReadInteger("Options", "Hot2", 145);
HotKeyComb->HotKey = Key;
if (Ini->ReadBool("Options", "Mod_Shift", 0))
HotKeyComb->Modifiers << hkShift;
if (Ini->ReadBool("Options", "Mod_Alt", 0))
HotKeyComb->Modifiers << hkAlt;
if (Ini->ReadBool("Options", "Mod_Ctrl", 0))
HotKeyComb->Modifiers << hkCtrl;
BackupPath->Text = Ini->ReadString("Options", "BackUpPath", "");
WasTop = TopPages->Checked;
WasXPEffects = SNotesXMForm->TBXSwitcher1->EnableXPStyles;
WasMultiLine = SNotesXMForm->AllTabs->MultiLine;
WasTrayIcon = SNotesXMForm->CoolTray->IconVisible;
WasTrans = SNotesXMForm->AlphaBlend;
TransIs = SNotesXMForm->AlphaBlendValue;
ApplyButton->Enabled = false;
SetHotkeyButton->Enabled = false;
PagesTree->Items->operator [](0)->Selected = true;
PagesTree->SetFocus();
delete Ini;
delete Reg;
} catch (...) {
Application->MessageBoxA(LMessagesOpt.ReadPrefsError, LMessagesOpt.Error, MB_OK + MB_ICONERROR);
}
}
//---------------------------------------------------------------------------
void TForm1::ReadIniSettings()
{
// This example is derived from the corresponding Delphi example.
// To be compatible with Delphi 1 the Delphi example uses INI files
// rather than using the registry to store configuration data.
// This program uses INI files as well since it has been converted
// from the Delphi example. Normally you would use the registry
// to store configuration data in a 32-bit program.
//
int Value;
bool Exists;
TIniFile* ini = new TIniFile(ChangeFileExt(Application->ExeName, ".INI"));
try {
// view menu
Exists = ini->ReadBool("General", "Exists", false);
if (Exists) {
AbZipOutline1->Attributes.Clear();
if (ini->ReadBool("View", "CSize", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaCompressedSize;
if (ini->ReadBool("View", "CMethod", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaCompressionMethod;
if (ini->ReadBool("View", "CRatio", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaCompressionRatio;
if (ini->ReadBool("View", "CRC", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaCRC;
if (ini->ReadBool("View", "EFA", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaExternalFileAttributes;
if (ini->ReadBool("View", "IFA", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaInternalFileAttributes;
if (ini->ReadBool("View", "Encryption", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaEncryption;
if (ini->ReadBool("View", "TimeStamp", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaTimeStamp;
if (ini->ReadBool("View", "USize", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaUncompressedSize;
if (ini->ReadBool("View", "MadeBy", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaVersionMade;
if (ini->ReadBool("View", "Needed", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaVersionNeeded;
if (ini->ReadBool("View", "Comment", false))
AbZipOutline1->Attributes =
AbZipOutline1->Attributes << zaComment;
AbZipOutline1->Hierarchy =
ini->ReadBool("View", "Hierarchy", true);
Value = ini->ReadInteger("View", "OutlineStyle", -1);
// if (Value != -1)
// AbZipOutline1->OutlineStyle = TOutlineStyle(Value);
// preferences menu
AbZipOutline1->BaseDirectory = ini->ReadString(
"Preferences", "BaseDirectory", ExtractFilePath(Application->ExeName));
if (!AbDirectoryExists(AbZipOutline1->BaseDirectory))
AbZipOutline1->BaseDirectory = ExtractFilePath(Application->ExeName);
Confirmations1->Checked =
ini->ReadBool("Preferences", "Confirmations", false);
SpeedButton7->Down = Confirmations1->Checked;
Value = ini->ReadInteger(
"Preferences", "CompressionMethodToUse", (int)smBestMethod);
AbZipOutline1->CompressionMethodToUse = TAbZipSupportedMethod(Value);
Value = ini->ReadInteger("Preferences", "DeflationOption", doNormal);
AbZipOutline1->DeflationOption = TAbZipDeflationOption(Value);
AbZipOutline1->ExtractOptions.Clear();
if (ini->ReadBool("Preferences", "CreateDirs", false))
AbZipOutline1->ExtractOptions =
AbZipOutline1->ExtractOptions << eoCreateDirs;
if (ini->ReadBool("Preferences", "RestorePath", false))
AbZipOutline1->ExtractOptions =
AbZipOutline1->ExtractOptions << eoRestorePath;
AbZipOutline1->StoreOptions.Clear();
if (ini->ReadBool("Preferences", "StripPath", false))
AbZipOutline1->StoreOptions =
AbZipOutline1->StoreOptions << soStripPath;
if (ini->ReadBool("Preferences", "RemoveDots", false))
AbZipOutline1->StoreOptions =
AbZipOutline1->StoreOptions << soRemoveDots;
if (ini->ReadBool("Preferences", "Recurse", false))
AbZipOutline1->StoreOptions =
AbZipOutline1->StoreOptions << soRecurse;
StubName = ini->ReadString("Self Extracting", "StubName", "selfex.exe");
FilterComboBox1->Filter =
ini->ReadString("Navigator", "Filter",
"All files (*.*)|*.*|Zip Files (*.ZIP)|*.ZIP|"
"Executable Files (*.EXE)|*.EXE|Text files (*.TXT)|*.TXT|");
}
} // try
catch (...) {
delete ini;
return;
}
delete ini;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TfrmMain::LoadSetting()
{
if (strcmp(LoginerPath,"")!=0) {
if( FileExists( String(LoginerPath) +"\\Data\\"+ GameAccount + "\\Setting.ini" ))
{
TIniFile* ini = new TIniFile( String(LoginerPath) +"\\Data\\"+ GameAccount + "\\Setting.ini");
AutoGuagi_X = ini->ReadInteger("AutoGuagi","X",0);
AutoGuagi_Y = ini->ReadInteger("AutoGuagi","Y",0);
AutoGuagi_MapId = ini->ReadInteger("AutoGuagi","MapId",0);
this->ck_func_godmode->IsChecked = ini->ReadBool("Setting","godmode",true);
this->ck_func_dingua->IsChecked=ini->ReadBool("Setting","dingua",this->ck_func_dingua->IsChecked);
ck_func_csx->IsChecked =ini->ReadBool("Setting","csx",this->ck_func_csx->IsChecked);
//ck_func_autolr->IsChecked =ini->ReadBool("Setting","autolr",this->ck_func_autolr->IsChecked);
this->ck_func_chardir->IsChecked =ini->ReadBool("Setting","chardir",this->ck_func_chardir->IsChecked);
this->sw_func_chardir->IsChecked =ini->ReadBool("Setting","chardir_v",this->sw_func_chardir->IsChecked);
this->ck_func_dingwei->IsChecked =ini->ReadBool("Setting","dingwei",this->ck_func_dingwei->IsChecked);
this->ck_func_hidebk->IsChecked =ini->ReadBool("Setting","hidebk",this->ck_func_hidebk->IsChecked);
this->ck_func_hidedmg->IsChecked =ini->ReadBool("Setting","hidedmg",this->ck_func_hidedmg->IsChecked);
this->ck_func_hideskill->IsChecked =ini->ReadBool("Setting","hideskill",this->ck_func_hideskill->IsChecked);
this->ck_func_itemvac->IsChecked =ini->ReadBool("Setting","itemvac",this->ck_func_itemvac->IsChecked);
this->ck_func_jmp->IsChecked =ini->ReadBool("Setting","jmp",this->ck_func_jmp->IsChecked);
this->ck_func_stupid->IsChecked =ini->ReadBool("Setting","stupid",this->ck_func_stupid->IsChecked);
this->ck_hp->IsChecked =ini->ReadBool("Protect","hp",this->ck_hp->IsChecked);
this->ck_mp->IsChecked =ini->ReadBool("Protect","mp",this->ck_mp->IsChecked);
this->ck_att->IsChecked =ini->ReadBool("Protect","att",this->ck_att->IsChecked);
this->ck_pick->IsChecked =ini->ReadBool("Protect","pick",this->ck_pick->IsChecked);
this->ck_key1->IsChecked =ini->ReadBool("Protect","key1",this->ck_key1->IsChecked);
this->ck_key2->IsChecked =ini->ReadBool("Protect","key2",this->ck_key2->IsChecked);
this->ck_key3->IsChecked =ini->ReadBool("Protect","key3",this->ck_key3->IsChecked);
this->ck_key4->IsChecked =ini->ReadBool("Protect","key4",this->ck_key4->IsChecked);
this->txt_hp->Text =ini->ReadString("Protect","hp_v",this->txt_hp->Text);
this->txt_mp->Text =ini->ReadString("Protect","mp_v",this->txt_mp->Text);
this->txt_att->Text =ini->ReadString("Protect","att_v",this->txt_att->Text);
this->txt_pick->Text =ini->ReadString("Protect","pick_v",this->txt_pick->Text);
this->txt_key1->Text =ini->ReadString("Protect","key1_v",this->txt_key1->Text);
this->txt_key2->Text =ini->ReadString("Protect","key2_v",this->txt_key2->Text);
this->txt_key3->Text =ini->ReadString("Protect","key4_v",this->txt_key3->Text);
this->txt_key4->Text =ini->ReadString("Protect","key3_v",this->txt_key4->Text);
this->cb_att->Selected->Text =ini->ReadString("Protect","att_k",this->cb_att->Selected->Text);
this->cb_att->ItemIndex = ini->ReadInteger("Protect","att_k",this->cb_att->ItemIndex);
this->cb_pick->ItemIndex = ini->ReadInteger("Protect","pick_k",this->cb_pick->ItemIndex);
this->cb_key1->ItemIndex=ini->ReadInteger("Protect","key1_k",this->cb_key1->ItemIndex);
this->cb_key2->ItemIndex= ini->ReadInteger("Protect","key2_k",this->cb_key2->ItemIndex);
this->cb_key3->ItemIndex=ini->ReadInteger("Protect","key4_k",this->cb_key3->ItemIndex);
this->cb_key4->ItemIndex=ini->ReadInteger("Protect","key3_k",this->cb_key4->ItemIndex);
AutoKey_HP_Value = StrToInt(txt_hp->Text);
AutoKey_MP_Value = StrToInt(txt_mp->Text);
AutoKey_Att_Time = StrToInt(txt_att->Text);
AutoKey_Pick_Time = StrToInt(txt_pick->Text);
AutoKey_Skill_Time[0] = StrToInt(txt_key1->Text);
AutoKey_Skill_Time[1] = StrToInt(txt_key2->Text);
AutoKey_Skill_Time[2] = StrToInt(txt_key3->Text);
AutoKey_Skill_Time[3] = StrToInt(txt_key4->Text);
AutoKey_Att_Key = GetVirtualKeyCodeByName(AnsiString(cb_att->Selected->Text).c_str());
AutoKey_Pick_Key = GetVirtualKeyCodeByName(AnsiString(cb_pick->Selected->Text).c_str());
AutoKey_Skill_Key[0] = GetVirtualKeyCodeByName(AnsiString(cb_key1->Selected->Text).c_str());
AutoKey_Skill_Key[1] = GetVirtualKeyCodeByName(AnsiString(cb_key2->Selected->Text).c_str());
AutoKey_Skill_Key[2] = GetVirtualKeyCodeByName(AnsiString(cb_key3->Selected->Text).c_str());
AutoKey_Skill_Key[3] = GetVirtualKeyCodeByName(AnsiString(cb_key4->Selected->Text).c_str());
}
}
}
