delphi的多线程实现和线程与进程的关系说明

最新推荐文章于 2024-04-12 23:04:57 发布

原创

最新推荐文章于 2024-04-12 23:04:57 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#多线程 #delphi

做了个多线程的测试Demo   
    unit Unit1;

interface

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

type
  TForm1 = class(TForm)
lbl1: TLabel;
btn1: TButton;
btn2: TButton;
btn3: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure btn3Click(Sender: TObject);
  private
{ Private declarations }
 th: TMyTestThread;
  public
{ Public declarations }
  end;

var
  Form1: TForm1;

implementation
//uses
//Unit2;
{$R *.dfm}



procedure TForm1.btn1Click(Sender: TObject);
begin
//False是创建一个可执行的 线程，True是创建一个挂起的线程
  th := TMyTestThread.Create(False);

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  PostThreadMessage(th.ThreadID, PWM_COMMWRITE, 0, 0);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
  PostThreadMessage(th.ThreadID, PWM_TEST1, 0, 0);
end;

end.
//===================第二个单元代码==========================
unit Unit2;

interface

uses
  Classes,Windows, Messages,