pascal多线程

其目的就是让两个线程并行

使用方法:

开头加上uses windows;

createthread(nil,0,@函数名,nil,0,线程号);

关于线程号:dword类型,用于掐断线程之类的操作

不要忘记函数后面要加上stdcall;