delphi多线程程序示例

delphi多线程程序示例(*下面这个程序介绍了我们在使用线程及未使用线程二种情况下,运行该程序的反应。当点UsedThread按钮时,则建立一个线程,这时我们可以在程序进行计算的同时,改变窗体的尺寸及移动它。当按下NoUsedThread按钮时,不建立线程,我们会发现在程序没有计算完之前根本不能做其它任何事情!unitUnit1;interfaceuses Windows,

(*—-下面这个程序介绍了我们在使用线程及未使用线程二种情况下,运行该程序的反 应。当点UsedThread按钮时,则建立一个线程,这时我们可以在程序进行计算的同 时,改变窗体的尺寸及移动它。当按下NoUsedThread按钮时,不建立线程,我们会发 现在程序没有计算完之前根本不能做其它任何事情!

unit Unit1;

interface

uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Buttons;

type   TForm1 = class(TForm)     UsedThread: TBitBtn;     NoUsedThread: TBitBtn;     procedure UsedThreadClick(Sender: TObject);     procedure NoUsedThreadClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;

var   Form1: TForm1;

implementation

{$R *.dfm}

function MyThreadFunc(P:pointer):Longint;stdcall; var   i:longint;   DC:HDC;   S:string; begin   DC:=GetDC(Form1.Handle);   for i:=0 to 500000 do begin     S:=Inttostr(i);     Textout(DC,10,10,Pchar(S),length(S));   end;   ReleaseDC(Form1.Handle,DC); end;

procedure TForm1.UsedThreadClick(Sender: TObject); var   hThread:Thandle;//定义一个句柄   ThreadID:DWord; begin //创建线程,同时线程函数被调用   hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);   if hThread=0 then   messagebox(Handle,’Didn’tCreateaThread’,nil,MB_OK); end;

procedure TForm1.NoUsedThreadClick(Sender: TObject); begin   MyThreadfunc(nil);   //没有创建线程时,直接调用线程函数 end; end.

今天的文章delphi多线程程序示例分享到此就结束了,感谢您的阅读。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。
如需转载请保留出处:https://bianchenghao.cn/11278.html

(0)
编程小号编程小号

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注