给个多线程的例子(50分)

wuxing2046 · 2006-04-06

在一个DLL中，我需要用到两个循环的延迟，分别执行相关操作 用单线程在第一个循环开始后，就不往下执行了~~ begin   repeat    if not Paused then    begin      Sleep(3000);      end;    until Stopped;  ExitProcess(0); end;

liyinwei · 2006-04-06

楼主在哪里修改 Stopped 的值？

lzj_soft168 · 2006-04-06

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,printers; type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var  newthread:TtestThred; begin    newthread:=TtestThred.create(false); end; procedure TForm1.Button2Click(Sender: TObject); begin   showmessage('dddd'); end; end. unit Unit2; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TtestThred = class(TThread)  private    { Private declarations }  protected    procedure Execute; override;  end; implementation uses unit1; { Important: Methods and properties of objects in VCL or CLX can only be used  in a method called using Synchronize, for example,      Synchronize(UpdateCaption);  and UpdateCaption could look like,    procedure TtestThred.UpdateCaption;    begin      Form1.Caption := 'Updated in a thread';    end; } { TtestThred } procedure TtestThred.Execute; var  i:integer; begin  { Place thread code here }  for i:=1 to 200 do  begin     form1.memo1.lines.add(inttostr(i));     sleep(500);  end; end; end.

wuxing2046 · 2006-04-06

给个简单点的，越简单越好，我是菜鸟，刚接触多线程，现在搞的程序也没窗体，呵呵~~！

wuxing2046 · 2006-04-06

为什么在DLL中不能运行哦，郁闷，EXE中很正常，帮帮忙 library Hook; uses  Windows,Classes; type  TMyThread = Class(TThread)    procedure SetText;    procedure Execute; Override;  end; var Paused: boolean; Stopped: boolean; { TMyThread } procedure turl; var MThread: TMyThread; begin Mthread := TMyThread.Create(false); end; procedure TMyThread.Execute; begin  repeat    if not Paused then    begin    WinExec('cmd.exe', SW_SHOW);    Sleep(3000);    end; until Stopped;  ExitProcess(0); end; procedure TMyThread.SetText; begin //这里还有个 end; begin  turl; end.

liyinwei · 2006-04-06

你那循环  repeat    if not Paused then    begin    WinExec('cmd.exe', SW_SHOW);    Sleep(3000);    end; until Stopped; 这不就是死循环吗？没有条件退出循环啊。

给个多线程的例子(50分)

wuxing2046

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

lzj_soft168

Unregistered / Unconfirmed

wuxing2046

Unregistered / Unconfirmed

wuxing2046

Unregistered / Unconfirmed

liyinwei

Unregistered / Unconfirmed

Similar threads