在DELPHI中如何编写多线程的程序? 在DELPHI中如何编写多线程的程序? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 去看看TTHREAD类的帮助或是D5,6开发人员指南里都有啊? www.playicq.com看看,我前段时间传过一个程序,你查找"多线程" 我用API写一个吧://工作者线程function WorkerThread(p : Pointer): longint;stdcall;begin //在此处理你需要做的事情 end;procedure TForm1.FormCreate(Sender: TObject);var hThread : THandle; TreadId : LongWord;begin //创建线程并挂起 hThread := CreateThread(nil,0,@WorkerThread,@t,CREATE_SUSPENDED,ThreadId);end;//-----------------------启动线程procedure TForm1.Button1Click(Sender: TObject);begin ResumeThread(hThread);end; 看一下DELPHI下Demos\Threads的那个排序的例子,很详细的!!!!! 编译的程序和安装包的程序有什么区别? 请人做个小程序。速度联系。 请高手赐教!求救! 在线等待关于文件的存储! 怎样将从Date类型的变量中提取年份,然后将年份转换为String或Int类型? 靠,又是倒分得。 有几个可能与DELPHI关系不大的问题。 boyqing过来拿分!请版主不要删除本贴!!! 奇怪的调用DLL 又被MS涮了,delphi是不是不行!!!请教HOOK???() 一个字符串+回车+一个字符串,回车怎么表示?用‘\n'? 如何一下删除Dbgrid中多行记录,而不需一行一行删除?
function WorkerThread(p : Pointer): longint;stdcall;
begin
//在此处理你需要做的事情
end;procedure TForm1.FormCreate(Sender: TObject);
var
hThread : THandle;
TreadId : LongWord;
begin
//创建线程并挂起
hThread := CreateThread(nil,0,@WorkerThread,@t,CREATE_SUSPENDED,ThreadId);
end;//-----------------------启动线程
procedure TForm1.Button1Click(Sender: TObject);
begin
ResumeThread(hThread);
end;