双线程问题
我想用一线程,控制加密狗,判断加密狗是否存在,主线程就是应用程序,当加密狗不存在时,弹出窗口...这要怎么实现,平时比较少接触线程,请指教,谢谢
[解决办法]
unit Unit2;
interface
uses
Classes;
type
aaa = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{ aaa }
procedure aaa.Execute;
begin
{ Place thread code here }
while true do
begin
.............
sleep(1000);
end;
end;
end.
[解决办法]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDogCheckThread = class(TThread) //加密狗检测线程类
protected
procedure Execute; override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TDogCheckThread.Execute;
begin
while not Terminated do
begin
//此处放上你检测加密狗的代码
(*
......
if 加密狗不存在 then
begin
......
end;
*)
sleep(1000);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//创建加密狗检测线程的实例并运行
TDogCheckThread.Create(False);
end;
end.
