formkeyfrm.~cpp

来自「软件加密之反拷贝技术－－加密解密技术已趋于成熟」· ~CPP 代码 · 共 83 行

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

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "formkeyfrm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
        TEdit   *edits[]={Edit1,Edit2,Edit3};
        TEdit   *edit=(TEdit *)Sender;
        if(Key==0x0d&&edit->Tag<4) {
         edits[edit->Tag+1]->SetFocus();
         Key=0;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Edit1->Text.Length()==3||Key==0x0d) Edit2->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Edit2->Text.Length()==3||Key==0x0d) Edit3->SetFocus();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Edit3->Text.Length()==4||Key==0x0d) Button1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        if(Edit1->Text.Length()==3
           &&Edit2->Text.Length()==3
           &&Edit3->Text.Length()==4)
        {
         ShowMessage("请在A驱动器中插入一张空盘！");
         AnsiString cmd="kdform.exe ";
         cmd+=Edit1->Text+"-"+Edit2->Text+"-"+Edit3->Text;
         ::WinExec(cmd.c_str(),SW_HIDE);
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)
{
        TEdit   *edits[]={Edit1,Edit2,Edit3};
        TEdit   *edit=(TEdit *)Sender;
        if(!((Key>='0'&&Key<='9')||Key==8)) Key=0;
}
//---------------------------------------------------------------------------



void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Left=(Screen->Width-Width)/2;
        Top=(Screen->Height-Height)/2;
}
//---------------------------------------------------------------------------