485读头液显测试程序c++builder续上

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

void __fastcall TForm1::Button9Click(TObject *Sender)
{
        AnsiString strls;
        int status;
        char lll[100];
        char *jhls;
        int jihao;
        int beepforxms;
        int unbeepforxms;
        int times;

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *CloseBeep)(HANDLE ComportHandle,int Jihao);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        CloseBeep = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao))GetProcAddress(hDll,"CloseBeep");

        if(commindex->Items->Count<1)
        {
                Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }

        if(CheckBox3->Checked)
        {
               jihao = 0;
        }
        else
        {
                if((Edit18->Text).Length() == 0)
                {
                        Application->MessageBox("结束设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        Edit18->SetFocus();
                        return;
                }
                if(!isrightint(Edit18->Text))
                {
                        Application->MessageBox("结束设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        Edit18->SetFocus();
                        Edit18->SelectAll();
                        return;
                }
                jihao = StrToInt(Edit18->Text);

        }

        Comport_Handle = PortOpen(commindex->ItemIndex+1);
        if(Comport_Handle == INVALID_HANDLE_VALUE)
        {
                Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }
        //发送
        Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加

        CloseBeep(Comport_Handle,jihao);
        PortClose(Comport_Handle);               
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        AnsiString strls;
        AnsiString strls1;
        int status;
        char lll[100];
        char *jhls;
        int jihao;
        int beepforxms;
        int unbeepforxms;
        int times;
        unsigned char cardhao[10];
        unsigned long cardserial_long;
        int i;

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *GetCardNoForByte)(HANDLE ComportHandle,int Jihao,unsigned char * CardNoBuf);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        GetCardNoForByte = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao,unsigned char * CardNoBuf))GetProcAddress(hDll,"GetCardNoForByte");

        if(commindex->Items->Count<1)
        {
                Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }

        if((Edit6->Text).Length() == 0)
        {
                Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                Edit6->SetFocus();
                Edit6->SelectAll();
                return;
        }
        if(!isrightint(Edit6->Text))
        {
                Application->MessageBox("设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                Edit6->SetFocus();
                Edit6->SelectAll();
                return;
        }
        jihao = StrToInt(Edit6->Text);

        Comport_Handle = PortOpen(commindex->ItemIndex+1);
        if(Comport_Handle == INVALID_HANDLE_VALUE)
        {
                Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }
        //发送
        Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
        status = GetCardNoForByte(Comport_Handle,jihao,cardhao);
        PortClose(Comport_Handle);
        if(status == 0)
        {//读卡成功
                strls1 = "";
                for(i=0;i<4;i++)
                {
                        strls = "00"+IntToHex(cardhao[i],2);
                        strls1 = strls1 + RightStr(strls,2) + "-";
                }
                strls = "00"+IntToHex(cardhao[4],2);
                strls1 = strls1 + RightStr(strls,2);

                Edit8->Text = strls1;
                cardserial_long = 0;

                for(i=1;i<5;i++)
                {
                        cardserial_long = cardserial_long * 256;
                        cardserial_long = cardserial_long + cardhao[i];
                }
                strls = "000000000" + IntToStr(cardserial_long);
                Edit3->Text = RightStr(strls,10);

                strls = "000" + IntToStr(cardhao[2]);
                strls1 = RightStr(strls,3) + ",";
                strls = "00000" + IntToStr(int(cardhao[3])*256+int(cardhao[4]));
                Edit5->Text = strls1 + RightStr(strls,5);

                return;

 

        }
        Edit3->Text = "读卡失败";
        Edit5->Text = "读卡失败";
        Edit8->Text = "读卡失败";
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn1Click(TObject *Sender)
{

 

        HANDLE  (__stdcall *PortOpen)(int comport);
        void  (__stdcall *Delay_ms)(DWORD xms);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");

 

        if(btn1->Caption == "开始轮询")
        {
                if(commindex->Items->Count<1)
                {
                        Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
                        return;
                }

                if((edt_1->Text).Length() == 0)
                {
                        Application->MessageBox("启始设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_1->SetFocus();
                        edt_1->SelectAll();
                        return;
                }
                if(!isrightint(edt_1->Text))
                {
                        Application->MessageBox("启始设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_1->SetFocus();
                        edt_1->SelectAll();
                        return;
                }

                if((edt_2->Text).Length() == 0)
                {
                        Application->MessageBox("结束设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_2->SetFocus();
                        edt_2->SelectAll();
                        return;
                }
                if(!isrightint(edt_2->Text))
                {
                        Application->MessageBox("结束设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_2->SetFocus();
                        edt_2->SelectAll();
                        return;
                }

                if((edt_3->Text).Length() == 0)
                {
                        Application->MessageBox("每一轮循环间隔输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_3->SetFocus();
                        edt_3->SelectAll();
                        return;
                }
                if(!isrightint(edt_3->Text))
                {
                        Application->MessageBox("每一轮循环间隔输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_3->SetFocus();
                        edt_3->SelectAll();
                        return;
                }

                startxbh = StrToInt(edt_1->Text);
                endxbh = StrToInt(edt_2->Text);

                if(startxbh>endxbh)
                {
                        midxbh = endxbh;
                        endxbh = startxbh;
                        startxbh = midxbh;
                }
                else
                {
                        midxbh = startxbh;
                }

                sjjg = StrToInt(edt_3->Text);
                   zqs = 0;

                Comport_Handle = PortOpen(commindex->ItemIndex+1);
                if(Comport_Handle == INVALID_HANDLE_VALUE)
                {
                        Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
                        return;
                }
                //发送
                Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加

                lv1->Items->Clear();
                edt_4->Text ="0";
                //timescount = 0;
                edt_1->Enabled = false;
                edt_2->Enabled = false;
                edt_3->Enabled = false;

                Button_updata->Enabled = false;
                Button1->Enabled = false;
                Button2->Enabled = false;
                Button3->Enabled = false;
                Button6->Enabled = false;
                Button8->Enabled = false;
                Button9->Enabled = false;
                Button10->Enabled = false;
                Button10->Enabled = false;

                btn1->Caption = "终止轮询";
                timeconitue = true;
                myprocstart = True;
                thread0 = new lsthread(false);

        }
        else
        {

                timeconitue = false;

                edt_1->Enabled = true;
                edt_2->Enabled = true;
                edt_3->Enabled = true;

                Button_updata->Enabled = true;
                Button1->Enabled = true;
                Button2->Enabled = true;
                Button3->Enabled = true;
                Button6->Enabled = true;
                Button8->Enabled = true;
                Button9->Enabled = true;
                Button10->Enabled = true;
                Button10->Enabled = true;
                btn1->Enabled = false;
        }       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn2Click(TObject *Sender)
{
        lv1->Clear();       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
        AnsiString strls;
        int status;
        char lll[100];
        char *jhls;
        int jihao;
        int beepforxms;
        int unbeepforxms;
        int times;
        char cardhao[10];
        char keystring[39];

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *GetKeyInputForString)(HANDLE ComportHandle,int Jihao,LPSTR KeyInputString);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        GetKeyInputForString = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR KeyInputString))GetProcAddress(hDll,"GetKeyInputForString");

        if(commindex->Items->Count<1)
        {
                Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);

                return;
        }

        if((Edit6->Text).Length() == 0)
        {
                Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                Edit6->SetFocus();
                Edit6->SelectAll();

                return;
        }
        if(!isrightint(Edit6->Text))
        {
                Application->MessageBox("设备号中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                Edit6->SetFocus();
                Edit6->SelectAll();

                return;
        }
        jihao = StrToInt(Edit6->Text);

        Comport_Handle = PortOpen(commindex->ItemIndex+1);
        if(Comport_Handle == INVALID_HANDLE_VALUE)
        {
                Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);

                return;
        }
        //发送
        Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
        jhls = keystring;

        status = GetKeyInputForString(Comport_Handle,jihao,jhls);
        PortClose(Comport_Handle);

        if(status == 0)
        {
                Edit21->Text = jhls;

                return;
        }
        else if ((status == 3) || (status == 4))
        {
                Edit21->Text = "没有键盘输入......";

                return;
        }
        //ShowMessage(IntToStr(status));

        Edit21->Text = "读键盘码失败";       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button11Click(TObject *Sender)
{
        AnsiString strls;
        int status;
        char lll[100];
        char *jhls;
        int jihao;
        int beepforxms;
        int unbeepforxms;
        int times;

        AnsiString dispstring;

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *SetDispFull)(HANDLE ComportHandle,int Jihao,LPSTR DispString);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        SetDispFull = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR DispString))GetProcAddress(hDll,"SetDispFull");

        if(commindex->Items->Count<1)
        {
                Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }

        if(CheckBox1->Checked)
        {
                jihao = 0;
        }
        else
        {
                if((Edit22->Text).Length() == 0)
                {
                        Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        Edit22->SetFocus();
                        return;
                }
                if(!isrightint(Edit22->Text))
                {
                        Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        Edit22->SetFocus();
                        Edit22->SelectAll();
                        return;
                }
                jihao = StrToInt(Edit22->Text);
        }

        if((Edit20->Text).Length() == 0)
        {
                Application->MessageBox("显示字符框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                Edit20->SetFocus();
                return;
        }

        Comport_Handle = PortOpen(commindex->ItemIndex+1);
        if(Comport_Handle == INVALID_HANDLE_VALUE)
        {
                Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }
        //发送
        Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加
        dispstring = Edit20->Text;
        SetDispFull(Comport_Handle,jihao,dispstring.c_str());
        PortClose(Comport_Handle);       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btn3Click(TObject *Sender)
{
        //动态调用动态库
        SYSTEMTIME mytime;
        Word wYear,wMonth,wDay,wHour,wMinute,wSecond,wMsec;
        int jihao;

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *SetTime)(HANDLE ComportHandle,int Jihao,SYSTEMTIME *mytime);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        SetTime = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao,SYSTEMTIME *mytime))GetProcAddress(hDll,"SetTime");

 

        DecodeDate(dtp1->Date,wYear,wMonth,wDay);
        mytime.wYear =wYear ;
        mytime.wMonth =wMonth ;
        mytime.wDay = wDay;
        mytime.wDayOfWeek = DayOfWeek(dtp1->Date)-1;
        mytime.wHour = StrToInt(edt__xd_s->Text);
        mytime.wMinute = StrToInt(edt__xd_f->Text);
        mytime.wSecond = StrToInt(edt__xd_m->Text);

        if(commindex->Items->Count<1)
        {
                Application->MessageBox("无法找到可用的串口,请释放其他软件对串口的占用再重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }

        if(chk1->Checked)
        {
                jihao = 0;
        }
        else
        {
                if((edt_5->Text).Length() == 0)
                {
                        Application->MessageBox("设备号输入框为空！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_5->SetFocus();
                        return;
                }
                if(!isrightint(edt_5->Text))
                {
                        Application->MessageBox("设备号输入框中有非法字符！", "警告", MB_OK+MB_ICONINFORMATION);
                        edt_5->SetFocus();
                        edt_5->SelectAll();
                        return;
                }
                jihao = StrToInt(Edit16->Text);
        }

        Comport_Handle = PortOpen(commindex->ItemIndex+1);
        if(Comport_Handle == INVALID_HANDLE_VALUE)
        {
                Application->MessageBox("串口无法打开,请选择其他串口重试！", "警告", MB_OK+MB_ICONINFORMATION);
                return;
        }
        //发送
        Delay_ms(8);//如果是使用无源485网卡，这个延时一定要加

        status = SetTime(Comport_Handle,jihao,&mytime);

        PortClose(Comport_Handle);

       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
    if(btn1->Caption == "开始轮询")
    {
      Close();
    }
    else
    {
      Application->MessageBox("请先终止轮询！", "警告", MB_OK+MB_ICONINFORMATION);
    }
}
//---------------------------------------------------------------------------
void __fastcall  TForm1::myproc(void)
{
    char keystr[39];
    char *keystr_pchar;
    char cardstr[21];
    char *cardstr_pchar;
    int status;
    int i;

    int jihao;

    unsigned char cardhao[10];
    unsigned long cardserial_long;

    TListItem *pItem;
    bool isadditem1;

    AnsiString strls0;
    AnsiString strls1;

    AnsiString strlsok0;
    AnsiString strlsok1;

        HANDLE  (__stdcall *PortOpen)(int comport);
        bool  (__stdcall *PortClose)(HANDLE ComportHandle);
        void  (__stdcall *Delay_ms)(DWORD xms);
        int  (__stdcall *GetCARDNO_KeyInput)(HANDLE ComportHandle,int Jihao,LPSTR CardNoString,LPSTR KeyInputString);

        AnsiString FileName=ExtractFilePath(Application->ExeName);

        if(FileName.SubString(FileName.Length(),1) != "\\")
        {
             FileName += "\\";
        }
        FileName += "sycomdll.dll";
        if(!FileExists(FileName))
        {
                ShowMessage("无法在当前目录下找到sycomdll.dll文件！");
                return;
        }
        //to get function pointers
        HINSTANCE hDll;
        hDll=LoadLibrary(FileName.c_str());
        PortOpen = (HANDLE  (__stdcall *)(int comport))GetProcAddress(hDll,"PortOpen");
        PortClose = (bool  (__stdcall *)(HANDLE ComportHandle))GetProcAddress(hDll,"PortClose");
        Delay_ms = (void  (__stdcall *)(DWORD xms))GetProcAddress(hDll,"Delay_ms");
        GetCARDNO_KeyInput = (int  (__stdcall *)(HANDLE ComportHandle,int Jihao,LPSTR CardNoString,LPSTR KeyInputString))GetProcAddress(hDll,"GetCARDNO_KeyInput");

//轮询读卡及键盘
    if(midxbh>endxbh)
    {
      midxbh = startxbh;
      edt_4->Text = IntToStr(StrToInt(edt_4->Text)+1);
      if(sjjg >0)
      {
        Delay_ms(sjjg);
      }

    }

    //读函数
    keystr_pchar = keystr;
    cardstr_pchar = cardstr;
    status = GetCARDNO_KeyInput(Comport_Handle,midxbh,cardstr_pchar,keystr_pchar);

    if(status == 0X10)
    {
      strlsok0 = cardstr_pchar;
      strlsok1 = "无键盘输出";
      status = 0;

    }
    else if(status = 0x20)
    {
      strlsok0 = "暂无刷卡";
      strlsok1 = keystr_pchar;
      status = 0;

    }
    else if(status = 0)
    {
      strlsok0 = cardstr_pchar;
      strlsok0 = IntToHex(StrToInt(strlsok0),8);

      strlsok1 = keystr_pchar;

    }

 

    if(status = 0)
    {
            pItem = lv1->Items->Add();
            pItem->Caption = IntToStr(midxbh);
            pItem->SubItems->Add(strlsok0);
            pItem->SubItems->Add(strlsok1);

            SendMessage(lv1->Handle,WM_KEYDOWN, 35, 0);

    }

    midxbh = midxbh + 1;

    if(!timeconitue)
    {
      PortClose(Comport_Handle); //关闭串口
      btn1->Caption = "开始轮询";
      btn1->Enabled = true;
    }

    myprocstart = True;

}