例子：
uses windows; //声明使用windows库，牛逼的自己声明function也可以
var
tid:dword;//定义变量（我也不知道干啥）
procedure p1;//子程序1
begin
messagebox(0,'1','1',mb_ok);
exitthread(0);
end;
procedure p2;//子程序2
begin
messagebox(0,'2','2',mb_ok);
exitthread(0);
end;
begin
createthread(nil,0,@p1,nil,0,tid);//多进程运行子程序1
createthread(nil,0,@p2,nil,0,tid);//多进程运行子程序2
messagebox(0,'3','3',mb_ok);//运行主程序
end.
效果：同时显示三个信息框，提高程序效率
PS：竞赛时不允许

这个叫线程，进程是另一个玩意

这是线程

orz好评

顶，话说fpc有自带的线程库，帮助文档里有，不过那一个略微复杂【反正我是看不懂，english渣】

我还是pascal喳喳呢 回溯搜索都没学好 求教教 不过俺觉得在窗口上pascal（原版！）确实没有那些e啊 c啊之类的好用

顶

赞一个

赞一个

。

好东西

好顶赞

厉害耶！
话说楼主，你能来开设一门讲述FP-Windows编程的课程吗？

楼主，Linux下怎么搞多线程呢

NOIP的时候可以用就好了

还有这么神奇的库？在此学习了

额·····
我还没学到呢 （我是uses渣）

话说配合{$APPTYPE GUI}可以播放背景音乐

mark

顶！