为什么这个不能写在Thread中？(100分)

B

buff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #1

var
ShellWindow : IShellWindows;
nCount : Integer;
begin
while not terminateddo
begin
try
ShellWindow := CoShellWindows.Create;
nCount := ShellWindow.Count;
except
end;
sleep(1000);
end;
在Thread错误信息：标记没有引用存储
如果写在不写在Thread中，程序运行正常

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #2

是吗 ，试试

 

B

beyondair

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #3

改改，试试
while not terminateddo
begin
try
ShellWindow := CoShellWindows.Create;
nCount := ShellWindow.Count;
finally
ShellWindow.free;
end;
sleep(1000);
end;

 

B

buff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #4

第一次运行就显示错误信息：标记没有引用存储
这样改不起作用!

 

U

up_load

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #5

用线程的Synchronize函数

 

B

buff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #6

这个到没有试，我试一下看，估计都没有席

 

H

hryyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #7

Synchronize肯定有席

 

B

buff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #8

是的，多谢了!