unit2.cpp

武安河书第一版（vxd）Windows 驱动例子

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#pragma package(smart_init)
extern int i;
extern TSimpleEvent* TSEvent;
//---------------------------------------------------------------------------

//   Important: Methods and properties of objects in VCL can only be
//   used in a method called using Synchronize, for example:
//
//      Synchronize(UpdateCaption);
//
//   where UpdateCaption could look like:
//
//      void __fastcall Unit2:UpdateCaption()
//      {
//        Form1->Caption = "Updated in a thread";
//      }
//---------------------------------------------------------------------------

__fastcall thread2::thread2(bool CreateSuspended)
        : TThread(CreateSuspended)
{
}
//---------------------------------------------------------------------------
void __fastcall thread2::Execute()
{
	while(true)
	{
                TSEvent->WaitFor(INFINITE);
                Form1->Edit1->Text=AnsiString(i);
	}
}
//---------------------------------------------------------------------------