configunit.cpp

网吧电脑游戏升级系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ConfigUnit.h"
#include "MainUnit.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TConfigForm *ConfigForm;
//---------------------------------------------------------------------------
__fastcall TConfigForm::TConfigForm(TComponent* Owner)
    : TForm(Owner)
{
    ConfigForm->ShowModal() ;
}
//---------------------------------------------------------------------------


void __fastcall TConfigForm::MSaveClick(TObject *Sender)
{
    char Buffer[256];
    strcpy(Buffer,MainForm->sAppPath.c_str()) ;
    strcat(Buffer,"\.ini") ;
    TIniFile *EUini ;
    EUini = new TIniFile(AnsiString(Buffer)) ;
    if(ConfigForm->PageControl->TabIndex == 0)
    {
        if(ConfigForm->RGPassWord->ItemIndex==1)
        {
            if(ConfigForm->MEOne->Text==ConfigForm->METwo->Text)
            {
                if(ConfigForm->MEOne->Text == "")
                {
                    Application->MessageBox("您还没有输入验证密码！请重新输入！","警告",MB_OK | MB_ICONWARNING);
                    delete EUini ;
                    return ;
                }
                else
                {
                    MainForm->iPassChick = 1 ;
                    MainForm->sSysPass = ConfigForm->MEOne->Text ;
                }
            }
        }
        else
        {
            MainForm->iPassChick = 0 ;
        }
        EUini->WriteInteger("PASSCHICK" , "PassChick" , MainForm->iPassChick) ;
        EUini->WriteString( "SYSPASS" , "SysPass" , MainForm->sSysPass) ;
    }
    else if(ConfigForm->PageControl->TabIndex == 1)
    {
        if(ConfigForm->RGAutoStart->ItemIndex == 0)
        {
            MainForm->iAutoRun = 1;
            TRegistry *Reg=new TRegistry;;
            Reg->RootKey =HKEY_LOCAL_MACHINE;//指向根目录
            Reg->OpenKey ("SOFTWARE\\MICROSOFT\\Windows\\CurrentVersion\\Run",TRUE);//找到相应目录
            Reg->WriteString(sAppName,MainForm->sAppPath);//写入键名和键值(因为用了openkey所以省略了第一个路径参数）。
            delete Reg;
        }
        else
        {
            MainForm->iAutoRun = 0;
        }
        if(ConfigForm->RGRunMode->ItemIndex == 0)
        {
            MainForm->iSysTray = 1;
        }
        else
        {
            MainForm->iSysTray = 0;
        }
        if(ConfigForm->RGUpdate->ItemIndex == 0)
        {
            MainForm->iAutoUpdate = 1;
            MainForm->sStartTime = ConfigForm->DTPStartTime->Time.FormatString("yyyy-mm-dd hh:nn:ss") ;
            MainForm->sEndTime = ConfigForm->DTPEndTime->Time.FormatString("yyyy-mm-dd hh:nn:ss");
        }
        else
        {
            MainForm->iAutoUpdate = 0;
            DTPStartTime->Enabled =false;
            DTPEndTime->Enabled =false;
            MainForm->sStartTime = "";
            MainForm->sEndTime = "";
        }
        EUini->WriteInteger("AUTORUN", "AutoRun",MainForm->iAutoRun);
        EUini->WriteInteger("SYSTRAY", "SysTray",MainForm->iSysTray);
        EUini->WriteInteger("AUTOUPDATE", "AutoUpdate",MainForm->iAutoUpdate);
        EUini->WriteString( "STARTTIME" , "StartTime" ,MainForm->sStartTime);
        EUini->WriteString( "ENDTIME" , "EndTime" ,MainForm->sEndTime);
    }
    else if(ConfigForm->PageControl->TabIndex == 2)
    {
        MainForm->iHuanYuan = ConfigForm->RGHuanYuan->ItemIndex;
        MainForm->iWangGuan = ConfigForm->RGWangGuan->ItemIndex;
        if(MainForm->iWangGuan)
        {
            if(ConfigForm->EFilePath->Text == "")
            {
                Application->MessageBox("请您输入网络管理软件的执行路径！","警告",MB_OK | MB_ICONWARNING);
                delete EUini ;
                return ;
             }
             MainForm->sWGPath = ConfigForm->EFilePath->Text;
        }
        EUini->WriteInteger("HUANYUAN", "HuanYuan",MainForm->iHuanYuan);
        EUini->WriteInteger("WANGGUAN", "WangGuan",MainForm->iWangGuan);
        EUini->WriteString( "WGPATH" , "WGPath" ,MainForm->sWGPath);
    }
    else if(ConfigForm->PageControl->TabIndex == 3)
    {
        if(ConfigForm->EditURL->Text == "")
        {
            Application->MessageBox("请您输入自动升级系统服务器的域名！","警告",MB_OK | MB_ICONWARNING);
        }
        else
        {
            MainForm->sEditURL = ConfigForm->EditURL->Text;
        }
        if(ConfigForm->EditIP->Text == "")
        {
            Application->MessageBox("请您输入自动升级系统服务器的IP地址！","警告",MB_OK | MB_ICONWARNING);
        }
        else
        {
            MainForm->sEditIP = ConfigForm->EditIP->Text;
        }
        if(ConfigForm->EditPort->Text == "")
        {
            Application->MessageBox("请您输入自动升级系统服务器的端口！","警告",MB_OK | MB_ICONWARNING);
        }
        else
        {
            MainForm->sEditPort = ConfigForm->EditPort->Text;
        }
    }
    delete EUini;
    return;
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::MPassWordClick(TObject *Sender)
{
    ConfigForm->PageControl->TabIndex = 0;
    ConfigForm->TSPassWord->TabVisible=true;
    ConfigForm->TSAutoRun->TabVisible=false;
    ConfigForm->TSNetConfig->TabVisible=false;
    ConfigForm->TSNetManager->TabVisible=false;
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::MAutoRunClick(TObject *Sender)
{
    ConfigForm->PageControl->TabIndex = 1;
    ConfigForm->TSAutoRun->TabVisible=true;
    ConfigForm->TSPassWord->TabVisible=false;
    ConfigForm->TSNetConfig->TabVisible=false;
    ConfigForm->TSNetManager->TabVisible=false;
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::MNetManagerClick(TObject *Sender)
{
    ConfigForm->PageControl->TabIndex = 2;
    ConfigForm->TSNetManager->TabVisible=true;
    ConfigForm->TSPassWord->TabVisible=false;
    ConfigForm->TSNetConfig->TabVisible=false;
    ConfigForm->TSAutoRun->TabVisible=false;
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::MNetConfigClick(TObject *Sender)
{
    ConfigForm->PageControl->TabIndex =3;
    ConfigForm->TSNetConfig->TabVisible=true;
    ConfigForm->TSPassWord->TabVisible=false;
    ConfigForm->TSNetManager->TabVisible=false;
    ConfigForm->TSAutoRun->TabVisible=false;    
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::MExitClick(TObject *Sender)
{
    ConfigForm->Close();
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::FormShow(TObject *Sender)
{
    ConfigForm->TSPassWord->TabVisible=false;
    ConfigForm->TSAutoRun->TabVisible=false;
    ConfigForm->TSNetConfig->TabVisible=false;
    ConfigForm->TSNetManager->TabVisible=false;
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::RGWangGuanClick(TObject *Sender)
{
    if(RGWangGuan->ItemIndex)
    {
        EFilePath->Enabled=true;
        BBFindPath->Enabled=true;
    }
    else
    {
        EFilePath->Enabled=false;
        BBFindPath->Enabled=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::RGUpdateClick(TObject *Sender)
{
    if(!RGUpdate->ItemIndex)
    {
        DTPStartTime->Enabled=true;
        DTPEndTime->Enabled=true;
    }
    else
    {
        DTPStartTime->Enabled=false;
        DTPEndTime->Enabled=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::RGPassWordClick(TObject *Sender)
{
    if(RGPassWord->ItemIndex)
    {
        MEOne->Enabled=true;
        METwo->Enabled=true;
    }
    else
    {
        MEOne->Enabled=false;
        METwo->Enabled=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::BBFindPathClick(TObject *Sender)
{
    OpenDialog->Filter = "管理计费软件 (*.exe)|*.EXE";
    OpenDialog->Execute();
    EFilePath->Text=OpenDialog->FileName;
//    ChangeFileExt(ExtractFileName(OpenDialog->FileName),"");
}
//---------------------------------------------------------------------------