tzc.~cpp

来自「数据库后台管理工具」· ~CPP 代码 · 共 48 行

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

#include <vcl.h>
#include <Registry.hpp>
#pragma hdrstop

#include "Tzc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tzc2 *zc2;
//---------------------------------------------------------------------------
__fastcall Tzc2::Tzc2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tzc2::BitBtn1Click(TObject *Sender)
{
 TRegistry * reg1 = new TRegistry();
 reg1->RootKey=HKEY_CURRENT_USER;
 if(reg1->OpenKey("\\software\\Mars\\aptitude",true))
    {
   //打开HKEY_CURRENT_USER\\software\\Mars\\aptitude 键如果不存在则创建
    reg1->WriteString ( "auth_nb", Edit2->Text);
   }
   reg1->CloseKey();//关闭打开的键并保存信息
   delete reg1;
        
}
//---------------------------------------------------------------------------

void __fastcall Tzc2::BitBtn2Click(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------

void __fastcall Tzc2::FormCreate(TObject *Sender)
{
  char ComputerName[255];
  DWORD size = 255;
  GetComputerName(ComputerName, &size);
  Edit1->Text=ComputerName;
}
//---------------------------------------------------------------------------