操作系统多线程实验（只有代码）

//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- DWORD CALLBACK ThreadFunc(void *p)//快速回调函数，也是线程的入口函数 { HDC DC=GetDC(Form1->Handle);//定义设备驱动号句柄DC指向窗体Form1，GetDC(0);表示桌面的驱动号 String S;//定义字符串对象 for(int i=0;i<2000000;i++) { S=i;//类型转换并赋值，这里等号被重载了 TextOut(DC,110,12,S.c_str(),S.Length());//在指定设备的指定位置输出指定的文本，位置坐标的单位是像素 }; ReleaseDC(Form1->Handle,DC);//释放设备驱动号句柄 return(0); } //--------------------------------------------------------------------------- DWORD CALLBACK ThreadFunc2(void *p)//快速回调函数，也是线程的入口函数 { HDC DC=GetDC(0);//定义设备驱动号句柄DC指向窗体Form1，GetDC(0);表示桌面的驱动号 String S;//定义字符串对象 for(int i=0;i<2000000;i+=3) { S=i;//类型转换并赋值，这里等号被重载了 TextOut(DC,400,200,S.c_str(),S.Length());//在指定设备的指定位置输出指定的文本，位置坐标的单位是像素 }; ReleaseDC(0,DC);//释放设备驱动号句柄 return(0); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { ThreadFunc(NULL); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { DWORD ThreadID;//定义一个双字类型的变量作为新线程的标示 1byte=1字节 1word=2bytes=2字节 double word=4字节=32bits HANDLE hthread=CreateThread(0,0,ThreadFunc,0,0,&ThreadID);//handle就是句柄，创建一个新线程让他计数 if(hthread==0)MessageDlg("No Thread has been created!",mtInformation,TMsgDlgButtons()<<mbOK,0); DWORD ThreadID2;//定义一个双字类型的变量作为新线程的标示 1byte=1字节 1word=2bytes=2字节 double word=4字节=32bits HANDLE hthread2=CreateThread(0,0,ThreadFunc2,0,0,&ThreadID2);//handle就是句柄，创建一个新线程让他计数 if(hthread2==0)MessageDlg("No Thread has been created!",mtInformation,TMsgDlgButtons()<<mbOK,0); } //---------------------------------------------------------------------------