//---------------------------------------------------------------------------
#include <vcl.h>
#include <Registry.hpp>
#include <stdio.h>
#pragma hdrstop

#include "Config_F.h"
#include "Define.h"
#include "ProtectCard.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzEdit"
#pragma link "RzSpnEdt"
#pragma link "RzTabs"
#pragma link "RzButton"
#pragma link "RzLabel"
#pragma link "RzPanel"
#pragma link "RzRadGrp"
#pragma resource "*.dfm"
//----------------------------------------------------------------------
TConfigForm *ConfigForm;
//---------------------------------------------------------------------------
__fastcall TConfigForm::TConfigForm(TComponent* Owner)
	: TForm(Owner)
{
	DefaultSet();
	int nVectorMode;
	String Regeditdir;
	TRegIniFile *RegeditDIR;
	RegeditDIR = new TRegIniFile(RegFilename);
  RegeditDIR->RootKey = HKEY_LOCAL_MACHINE;
	RegeditDIR->OpenKey(RegFilename+"\\",true);
  Regeditdir = RegeditDIR->ReadString("Directory", "Defaultdir", DefaultDir);
  delete RegeditDIR;
	DefaultDir = Regeditdir;
  OSVERSIONINFO osvi;
  osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
  GetVersionEx(&osvi);
  osVERSION = osvi.dwPlatformId;
//==============================================

//======================== 2001.4.17 lhskys FormCreate(TObject *Sender)³»¿ë ¿Å±è
  AppDataBin = UserAppDataDir + "\\YoungWoo";
  if (!DirectoryExists(AppDataBin))
  {
    if (!CreateDir(AppDataBin))
      throw Exception("Cannot create " + AppDataBin);
  }
  #ifdef NETHASP
  AppDataBin = AppDataBin + "\\NetTexStylist" + TexStylistVersion;
  #else
  AppDataBin = AppDataBin + "\\TexStylist" + TexStylistVersion;
  #endif
  if (!DirectoryExists(AppDataBin))
  {
    if (!CreateDir(AppDataBin))
      throw Exception("Cannot create " + AppDataBin);
  }

  AppDataItem = AppDataBin + "\\Texstylist";

  if (!DirectoryExists(AppDataItem))
  {
    if (!CreateDir(AppDataItem))
      throw Exception("Cannot create " + AppDataItem);
	}

	LoadFromRegIniFile();

  lbNumber->Visible = false;
#ifdef LOCK_CRYPKEY
  lbMethod->Caption = "Method : Using Software";
#else
	#ifdef LOCK_HASP
  lbMethod->Caption = "Method : HASP";
  #endif
#endif                             // lock_crypkey
/* CrypKey¸¸ Çϱ⠶§¹®¿¡ ¸·À½
  #ifdef ACADEMY
    lbMethod->Caption = "Method : Using Software (Academy)";
    lbTexture->Enabled = true;
    edTexture->Enabled = true;
  #else
    #ifdef EDUCATION
      lbMethod->Caption = "Method : Using Software (Education)";
    #endif
    #ifdef DEMO
      lbMethod->Caption = "Method : Using Software (Demo)";
    #endif
    #ifdef PROFESSIONAL
      lbMethod->Caption = "Method : Using Software (Professional)";
    #endif
    #ifdef KNIT
    #endif
    #ifdef TEXTILE
    #endif
    #ifdef WEAVE
    #endif
  #endif
*/
/* CrypKey¸¸ Çϱ⠶§¹®¿¡ ¸·À½
#else
#ifdef LOCK_IFC
  if ((ProtectCard = new TProtectCard) == NULL) goto fail;
  #ifdef ACADEMY
	if (!ProtectCard->Init()) {
    ShowMessage("Error : Interface card doesn't exist.");
    goto fail;
  }
	Items = 1;
  lbMethod->Caption = "Method : Interface Card ( Academy )";
  lbNumber->Visible = false;
  #else
	if ((Items = ProtectCard->Init(RegFilename)) == 0) {
    ShowMessage("Error : Interface card doesn't exist.");
    goto fail;
  }
  lbMethod->Caption = "Method : Interface Card ( Professional )";
  lbNumber->Caption = Format("Version : %d", OPENARRAY(TVarRec, (ProtectCard->Version())));
  #endif
  delete ProtectCard;
#else
  ProtectCard = new TProtectCard;
  if ((Items = ProtectCard->Init(Password)) < 1) {
    ShowMessage(Format("Error(%d) : Interface card doesn't exist.", OPENARRAY(TVarRec, (Items))));
    goto fail;
  }
  lbMethod->Caption = "Method : HASP";
  lbNumber->Caption = Format("Serial No. : %d-%d-%d-%d",
  	OPENARRAY(TVarRec, (Password[0], Password[1], Password[2], Password[3])));
  delete ProtectCard;
#endif
*/

  Tablet = new TTablet();
  Tablet->Init(Handle, NULL);
  if (Tablet->IsDevice()) {
    tsTablet->Enabled = true;
    lbName->Caption = "Name : " + Tablet->GetDeviceName();
    lbMaximum->Caption = "Maximum : " + IntToStr((int)Tablet->MaxNPressure);
    MaxNPressure = Tablet->MaxNPressure;
  	TRegIniFile *RegIniFile = new TRegIniFile(RegFilename);
    RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
    RegIniFile->OpenKey(RegFilename+"\\",true);
		if (RegIniFile) {
  	  MaxNPressure = StrToInt(RegIniFile->ReadString("Common", "MaxNPressure",
        IntToStr(MaxNPressure)));
    	delete RegIniFile;
    }
	  lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure);
  }
  //========================================= 2001.4..23 by lhskys Congi Ãß°¡
	TRegIniFile *RegIniFile;
 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename+"\\",true);
  TPanel1->Visible = true;
  TREG_Size = RegIniFile->ReadString("Common", "TREG_Size", "cstA4" );
  if(TREG_Size == "cstA4")TA4->Checked = true;
  else if(TREG_Size == "cstA3")TA3->Checked = true;
  else if(TREG_Size == "cstA2")TA2->Checked = true;
  else if(TREG_Size == "cstA1")TA1->Checked = true;
  else if(TREG_Size == "cstA0")TA0->Checked = true;
  else if(TREG_Size == "cstLetter")TLetter->Checked = true;
  else if(TREG_Size == "cstLegal")TLegal->Checked = true;
  else if(TREG_Size == "cstTabloid")TTabloid->Checked = true;
  else TA4->Checked = true;

  TPanel2->Visible = true;
  TUnits = RegIniFile->ReadString("Common", "TUnits", "uCm" );
  if(TUnits == "uCm")TCm->Checked = true;
  else if(TUnits == "uInch")TInch->Checked = true;
  else if(TUnits == "uDot")TDot->Checked = true;
  else TCm->Checked = true;
	//=========================================
	#ifdef NETHASP
  	IPLoad();
	#else
    NetWork->TabVisible = false;
	#endif
  return;
/* CrypKey¸¸ Çϱ⠶§¹®¿¡ ¸·À½
#ifndef LOCK_CRYPKEY
fail:
  if (ProtectCard) delete ProtectCard;
	Application->Terminate();
#endif
*/
//======================== 2001.4.17 lhskys FormCreate(TObject *Sender)³»¿ë ¿Å±è
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::FormCreate(TObject *Sender)
{
//======= 2001.4.17 lhskys FormCreate(TObject *Sender)=>TConfigForm ·Î ³»¿ë ¿Å±è
}
/*
void __fastcall TConfigForm::FormCreate(TObject *Sender)
{
  LoadFromRegIniFile();

#ifdef LOCK_IFC
  if ((ProtectCard = new TProtectCard) == NULL) goto fail;
  #ifdef ACADEMY
	if (!ProtectCard->Init()) {
    ShowMessage("Error : Interface card doesn't exist.");
    goto fail;
  }
	Items = 1;
  lbMethod->Caption = "Method : Interface Card ( Academy )";
  lbNumber->Visible = false;
  #else
	if ((Items = ProtectCard->Init(RegFilename)) == 0) {
    ShowMessage("Error : Interface card doesn't exist.");
    goto fail;
  }
  lbMethod->Caption = "Method : Interface Card ( Professional )";
  lbNumber->Caption = Format("Version : %d", OPENARRAY(TVarRec, (ProtectCard->Version())));
  #endif
  delete ProtectCard;
#else
  ProtectCard = new TProtectCard;
  if ((Items = ProtectCard->Init(Password)) < 1) {
    ShowMessage(Format("Error(%d) : Interface card doesn't exist.", OPENARRAY(TVarRec, (Items))));
    goto fail;
  }
  lbMethod->Caption = "Method : HASP";
  lbNumber->Caption = Format("Serial No. : %d-%d-%d-%d",
  	OPENARRAY(TVarRec, (Password[0], Password[1], Password[2], Password[3])));
  delete ProtectCard;
#endif

  if (Items&4) {
    lbStitch->Enabled = true;
    edStitch->Enabled = true;
  }
  if (Items&1) {
    lbStyle->Enabled = true;
    edStyle->Enabled = true;
    lbAfter->Enabled = true;
    edAfter->Enabled = true;
  }
  if ((Items&1) || (Items&2)) {
    lbTexture->Enabled = true;
    edTexture->Enabled = true;
  }
  if (Items&2) {
    lbYarn->Enabled = true;
    edYarn->Enabled = true;
  }

  Tablet = new TTablet();
  Tablet->Init(Handle, NULL);
  if (Tablet->IsDevice()) {
    tsTablet->Enabled = true;
    lbName->Caption = "Name : " + Tablet->GetDeviceName();
    lbMaximum->Caption = "Maximum : " + IntToStr(Tablet->MaxNPressure);
    MaxNPressure = Tablet->MaxNPressure;
  	TRegIniFile *RegIniFile = new TRegIniFile(RegFilename);
    if (RegIniFile) {
  	  MaxNPressure = StrToInt(RegIniFile->ReadString("Common", "MaxNPressure",
        IntToStr(MaxNPressure)));
    	delete RegIniFile;
    }
	  lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure);
  }
  return;
fail:
  if (ProtectCard) delete ProtectCard;
	Application->Terminate();
}
*/
//---------------------------------------------------------------------------
void __fastcall TConfigForm::FormDestroy(TObject *Sender)
{
  if (Tablet) delete Tablet;
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::FontButtonClick(TObject *Sender)
{
  if (FontDialog->Execute()) {
    DefaultFontName = FontDialog->Font->Name;
		stFont->Caption = DefaultFontName;
  }
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::rbLanguageClick(TObject *Sender)
{
  TRadioButton *rb = (TRadioButton *)Sender;

  if (rb==rbEnglish) Language = "English";
  else if (rb==rbHangul) Language = "Korean";
  else if (rb==rbTaiwanese) Language = "Taiwanese";
  else if (rb==rbChinese) Language = "Chinese";
  else if (rb==rbThai) Language = "Thai";
	else if (rb==rbJapanese) Language = "Japanese";
  else if (rb==rbIndona) Language = "Indonesian";
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::btnResetClick(TObject *Sender)
{
  MaxNPressure = 0;
  lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure);
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::btOKClick(TObject *Sender)
{
  SaveToRegIniFile();
  TDPIChange();

	#ifdef NETHASP
    IP();
  #endif
    
  OSVERSIONINFO osvi;
  osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
  GetVersionEx(&osvi);
  osVERSION = osvi.dwPlatformId;
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::btCancelClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
//// Private Method /////////////////////////////////////////////////////////
//---------------------------------------------------------------------
void TConfigForm::WTPacket(TMessage &msg)
{
	POINT pt;

  WTPKT Result = Tablet->WTMPacket(msg);
  if (PageControl1->ActivePage==tsTablet && tsTablet->Enabled) {
		pt = pnTablet->ScreenToClient(Tablet->ptNew);
  	if (pt.x>=0 && pt.x<pnTablet->Width && pt.y>=0 && pt.y<pnTablet->Height) {
	    if (Tablet->prsNew>MaxNPressure) {
  	    MaxNPressure = Tablet->prsNew;
    	  lbCurrent->Caption = "Current : " + IntToStr(MaxNPressure);
      }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::LoadFromRegIniFile()
{
	TRegIniFile *RegIniFile;
	Char tp[MAX_PATH+1];
	String pw, DirectoryBin;

	GetTempPath(MAX_PATH, tp);
	if (tp[wcslen(tp)-1]=='\\') tp[wcslen(tp)-1] = 0;

	RegIniFile = new TRegIniFile(RegFilename);
	RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
	RegIniFile->OpenKey(RegFilename+"\\",true);
  if (RegIniFile) {
  	DirectoryBin = RegIniFile->ReadString("Directory", "Bin", DefaultDir + "\\Bin");
    Language = RegIniFile->ReadString("Common", "Language", "English");
    if (Language == "English") rbEnglish->Checked = true;
    else if (Language == "Korean") rbHangul->Checked = true;
		else if (Language == "Chinese") rbChinese->Checked = true;
    else if (Language == "Taiwanese") rbTaiwanese->Checked = true;
    else if (Language == "Thai") rbThai->Checked = true;
    else if (Language == "Japanese") rbJapanese->Checked = true;
    else if (Language == "Indonesian") rbIndona->Checked = true;
//===============================//2001.4.11. by lhskys congi¿¡¼­ unit Select ³Ö±â
    TUnits = RegIniFile->ReadString("Common", "TUnits", "uCm" );

    if(TUnits == "uCm")TCm->Checked = true;
    else if(TUnits == "uInch")TInch->Checked = true;
		else if(TUnits == "uDot")TDot->Checked = true;
    else TCm->Checked = true;

    Select = RegIniFile->ReadString("Common", "Select", "READ" );
    if(Select == "READ")rbREAD->Checked = true;
    else if(Select == "MERGE")rbMERGE->Checked = true;
//===============================//2001.4.11. by lhskys
    if (osVERSION < 2) {                  // win 98, win 95, win 3.1
      DefaultFontName = RegIniFile->ReadString("Common", "DefaultFontName", "MS Sans Serif");
    } else {                              // NT, win 2000
      DefaultFontName = RegIniFile->ReadString("Common", "DefaultFontName", "Microsoft Sans Serif");
    }
    stFont->Caption = DefaultFontName;
		FontDialog->Font->Name = DefaultFontName;
/* Japan±¸ºÐÀÌ ¾øÀ½
#ifdef JAPAN
    lbVersion->Caption = "Version : AlphaGear " + TexStylistVersion;
#else
*/
		#ifdef LOCK_HASP
			pw = RegIniFile->ReadString("Common", "Serial", "");

			#ifdef NETHASP
			lbVersion->Caption = "Version : TexStylist NetHASP Design CAD System " + TexStylistVersion;
			lbMethod->Caption = "Method : NetHASP";
			#else
			lbVersion->Caption = "Version : TexStylist HASP Design CAD System " + TexStylistVersion;
			lbMethod->Caption = "Method : HASP";
			#endif
			lbNumber->Caption = "Number : " + pw;
    #else
			lbVersion->Caption = "Version : TexStylist Design CAD System " + TexStylistVersion;
    #endif

/* Japan±¸ºÐÀÌ ¾øÀ½
#endif
*/
/* CrypKey¸¸ Çϱ⠶§¹®¿¡ ¸·À½
#ifndef LOCK_CRYPKEY
#ifndef LOCK_IFC
    pw = RegIniFile->ReadString("Common", "Serial", "");
    sscanf(pw.c_str(), "%d-%d-%d-%d", &Password[0], &Password[1], &Password[2], &Password[3]);
#endif
#endif
*/
		edColor->Text = RegIniFile->ReadString("Directory", "Color", DefaultDir + "\\Color");
		edTexStylistOpen->Text = RegIniFile->ReadString("Directory", "TexstyleOpen", "C:\\Pattern");    //2001.4.11. by lhskys congi¿¡¼­
  	delete RegIniFile;
  }
	DPI();
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::SaveToRegIniFile()
{
	TRegIniFile *RegIniFile;
	String DirectoryItem;

	RegIniFile = new TRegIniFile(RegFilename);
	RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename+"\\",true);

#ifdef LOCK_CRYPKEY
	if (RegIniFile) {
  	RegIniFile->WriteString("Common", "Language", Language);
  	RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName);
  	RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure));
    RegIniFile->WriteString("Common", "TREG_Size", TREG_Size);            //2001.4.10. by lhskys ¿ëÁö size ¼±Åà Ãß°¡
    RegIniFile->WriteString("Common", "Select", Select);                  //2001.4.11. by lhskys select Ãß°¡
 		RegIniFile->WriteString("Directory", "Color", edColor->Text);
	  RegIniFile->WriteString("Directory", "TexstyleOpen", edTexStylistOpen->Text);     //2001.4.11. by lhskys congi¿¡¼­
    RegIniFile->WriteString("Common", "TUnits", TUnits);                    //2001.4.10. by lhskys unit ¼±Åà Ãß°¡
  }
// CrypKey¸¸ Çϱ⠶§¹®¿¡ ¸·À½
// ´©°¡ ¸·¾Ò´ÂÁö ¸ð¸£°ÚÀ½. ¹Ùº¸°°ÀÌ NetHASPÀº NetHASPÀ¸·Î defineÀ» °É¾î ºôµå¸¦ Çϴµ¥ À§¿¡Ã³·³ ¸·¾î³õÀ¸¸é ´ç¿¬È÷
// ÀÛµ¿ÇÏÁö ¾ÊÀ»¼ö¹Û¿¡ ¾øÁö.....¹Ùº¸~  ±×·¡¼­ ´Ù½Ã Ç®À½. by maxleo21c 070723
#else
  if (RegIniFile) {
  	RegIniFile->WriteString("Common", "Language", Language);
  	RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName);
  	RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure));
//    RegIniFile->WriteString("Common", "REG_Size", REG_Size);              //2001.4.10. by lhskys ¿ëÁö size ¼±Åà Ãß°¡
    RegIniFile->WriteString("Common", "TREG_Size", TREG_Size);            //2001.4.10. by lhskys ¿ëÁö size ¼±Åà Ãß°¡
    RegIniFile->WriteString("Common", "TUnits", TUnits);                  //2001.4.10. by lhskys unit ¼±Åà Ãß°¡
    RegIniFile->WriteString("Common", "Select", Select);                  //2001.4.11. by lhskys select Ãß°¡
 		RegIniFile->WriteString("Directory", "Color", edColor->Text);
	  RegIniFile->WriteString("Directory", "TexstyleOpen", edTexStylistOpen->Text);
  	delete RegIniFile;
  }

#endif
}
/*
void __fastcall TConfigForm::SaveToRegIniFile()
{
	TRegIniFile *RegIniFile;

 	RegIniFile = new TRegIniFile(RegFilename);

  if (RegIniFile) {
  	RegIniFile->WriteString("Common", "Language", Language);
  	RegIniFile->WriteString("Common", "DefaultFontName", DefaultFontName);
  	RegIniFile->WriteString("Common", "MaxNPressure", IntToStr(MaxNPressure));
 		RegIniFile->WriteString("Directory", "Color", edColor->Text);
 		RegIniFile->WriteString("Directory", "Texture", edTexture->Text);
    if (Items & 1)
 		  RegIniFile->WriteString("Directory", "Style", edStyle->Text);
 		  RegIniFile->WriteString("Directory", "Treatment", edAfter->Text);
    if ((Items & 2) || (Items & 8))
 		  RegIniFile->WriteString("Directory", "Yarn", edYarn->Text);
    if (Items & 4)
 		  RegIniFile->WriteString("Directory", "Stitch", edStitch->Text);
  	delete RegIniFile;
  }
*/
//---------------------------------------------------------------------------
void __fastcall TConfigForm::rbSizeType(TObject *Sender)                //2001.4.10. by lhskys ¿ëÁö size¼±Åà Ãß°¡
{
  TRadioButton *rb = (TRadioButton *)Sender;

  if (rb==TA4) TREG_Size = "cstA4";
  else if (rb==TA3) TREG_Size = "cstA3";
  else if (rb==TA2) TREG_Size = "cstA2";
  else if (rb==TA1) TREG_Size = "cstA1";
  else if (rb==TA0) TREG_Size = "cstA0";
  else if (rb==TLetter) TREG_Size = "cstLetter";
  else if (rb==TLegal) TREG_Size = "cstLegal";
  else if (rb==TTabloid) TREG_Size = "cstTabloid";
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::rbUnits(TObject *Sender)                //2001.4.10. by lhskys unit ¼±Åà Ãß°¡
{
	TRadioButton *rb = (TRadioButton *)Sender;

  if (rb==TCm) TUnits = "uCm";
	else if (rb==TInch) TUnits = "uInch";
	else if (rb==TDot) TUnits = "uDot";
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::rbSelect(TObject *Sender)                //2001.4.11. by lhskys unit ¼±Åà Ãß°¡
{
  TRadioButton *rb = (TRadioButton *)Sender;

	if (rb==rbREAD) Select = "READ";
	else if (rb==rbMERGE) Select = "MERGE";
}
//---------------------------------------------------------------------------

void __fastcall TConfigForm::TDPIChange()
{
	TIniFile *IniFile = new TIniFile(AppDataItem+"\\status.ini");
	if (IniFile) IniFile->WriteInteger("CanvasInfor", "DPI", TDPI->Value);
	delete IniFile;
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::DPI()
{
	TIniFile *IniFile = new TIniFile(AppDataItem+"\\status.ini");
  if (IniFile)TDPI->Value = IniFile->ReadInteger("CanvasInfor", "DPI", 160);
  delete IniFile;
}
//---------------------------------------------------------------------------
#ifdef NETHASP
void __fastcall TConfigForm::IP()
{
  String DirectoryItem;
  TIniFile *IniFile=NULL;

  DirectoryItem = DefaultDir + "\\Bin";

  if(IpAddress->Text == ""){
    if (DirectoryExists(DirectoryItem+"\\TexStylist")){
      IniFile = new TIniFile(DirectoryItem+"\\TexStylist\\hasplm.ini");
      if (IniFile) {
				IniFile->DeleteKey("REMOTE", "serveraddr");
        delete IniFile;
			}
    }
  }else{
    if (DirectoryExists(DirectoryItem+"\\TexStylist")){
      IniFile = new TIniFile(DirectoryItem+"\\TexStylist\\hasplm.ini");
      if (IniFile) {
        IniFile->WriteString("REMOTE", "serveraddr", IpAddress->Text);
        delete IniFile;
      }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::IPLoad()
{
  String DirectoryItem;
  TIniFile *IniFile=NULL;

  DirectoryItem = DefaultDir + "\\Bin";

  if (DirectoryExists(DirectoryItem+"\\TexStylist")){
    IniFile = new TIniFile(DirectoryItem+"\\TexStylist\\hasplm.ini");
    if (IniFile) {
      IpAddress->Text = IniFile->ReadString("REMOTE", "serveraddr", "");
      delete IniFile;
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::NetHASP_server()
{
	TRegIniFile *RegIniFile;
	/*
	String NetHASP_Key;
	NetHASP_Key = "\\Software\\Microsoft\\Windows\\CurrentVersion\\";

 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(NetHASP_Key,true);

  if(NetHASP_main->ItemIndex == 0){
    if (RegIniFile) {
    	RegIniFile->WriteString("Run", "StartHasp", DefaultDir + "\\bin\\nhsrvw32.exe");
      delete RegIniFile;
    }
  }else if(NetHASP_main->ItemIndex == 1){
    if (RegIniFile) {
    	RegIniFile->DeleteKey("Run", "StartHasp");
			delete RegIniFile;
    }
  }
	*/
 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename+"\\",true);

  if(NetHASP_main->ItemIndex == 0){
    if (RegIniFile) {
    	RegIniFile->WriteString("Common", "NetHASPMain", "true");
      delete RegIniFile;
    }
  }else if(NetHASP_main->ItemIndex == 1){
    if (RegIniFile) {
    	RegIniFile->WriteString("Common", "NetHASPMain", "false");
      delete RegIniFile;
    }
	}
}
//---------------------------------------------------------------------------
void __fastcall TConfigForm::NetHASP_server_Load()
{
	TRegIniFile *RegIniFile;
  AnsiString NetHASPMainSW;

 	RegIniFile = new TRegIniFile(RegFilename);
  RegIniFile->RootKey = HKEY_LOCAL_MACHINE;
  RegIniFile->OpenKey(RegFilename+"\\",true);

  if (RegIniFile) {
  	NetHASPMainSW = RegIniFile->ReadString("Common", "NetHASPMain", "");
    delete RegIniFile;
  }

  if(NetHASPMainSW == "true"){
    NetHASP_main->ItemIndex = 0;
	}else if(NetHASPMainSW == "false"){
		NetHASP_main->ItemIndex = 1;
  }
}
#endif
//---------------------------------------------------------------------------