写过nt服务程序的人请进(为什么没有人回答啊~~~~~~~~~急啊~~~~~~~~~~~~~拜托~~~~~~~~~) (100分)

  • 主题发起人 jerryjean
  • 开始时间
J

jerryjean

Unregistered / Unconfirmed
GUEST, unregistred user!
我写了一个服务程序,用Service Application 对象去控制一个线程(用了一个Thread Object)对象
请看在Thread Object对象中的代码:
unit Unit2;
interface
uses
Classes,SysUtils,Dialogs;
type
Ttest = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
procedure Ttest.Execute;
var
sRec:TSearchRec;
begin
while True do
begin
if FindFirst('//sdz/d/test/*.csv',faAnyFile,sRec)=0 then
showMessage(sRec.Name)
else
showMessage('failed');
sleep(6000);
end;
end;
end.

为什么我总是得到的是 ‘failed’的结果?
但是我把网络共享文件(‘//sdz/d/test/*.csv’),改成(D:/test/*.csv)本地的话就可以了?
如果我新建一个工程,不是‘服务’的话(普通‘工程’)那仍然是可以找到的。
 
这个分应该给自己。。。。没有人回答,自己搞定了。
 
多人接受答案了。
 
顶部