1,183
社区成员
发帖
与我相关
我的任务
分享windows服务程序
在service oncreate 里读注册表信息,
然后在timer控件里写处理,判断程序是否运行.
都没有触发,为什么
然后在timer控件里写处理,判断程序是否运行.
都没有触发,为什么
...全文
请发表友善的回复…
发表回复
dinoalex 2011-03-16
- 打赏
- 举报
在ServiceExecute事件里写
Zoogreen 2011-03-16
- 打赏
- 举报
procedure Tjk.ServiceStart(Sender: TService;var Started: Boolean);
var
reg: TRegistry;
sl: TStringList;
begin
reg := Tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
try
if reg.OpenKey('Software\dzkaEdi', false) then
begin
spath := reg.ReadString('zglBj');
sTitle := reg.ReadString('zglTitle');
try
iTime := reg.ReadInteger('zglTime');
except
iTime := 10;
end;
end;
try
Timer1.Enabled := false;
Timer1.Interval := iTime * 60 * 1000;
Timer1.Enabled := true;
except
end;
finally
reg.Free;
end;
sl := TStringList.Create;
try
sl.Add(spath);
sl.Add(sTitle);
sl.SaveToFile('c:\xixi.txt');
finally
sl.free;
end;
Started := True;
//Svcmgr.Application.CreateForm(TfrmDealwith, frmDealwith);
//gbCanClose := False;
//frmDealwith.Hide;
end;
xixi.txt可以创建,但没内容写入,注册表是有东西的,还有就是timer没有运行的.
var
reg: TRegistry;
sl: TStringList;
begin
reg := Tregistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
try
if reg.OpenKey('Software\dzkaEdi', false) then
begin
spath := reg.ReadString('zglBj');
sTitle := reg.ReadString('zglTitle');
try
iTime := reg.ReadInteger('zglTime');
except
iTime := 10;
end;
end;
try
Timer1.Enabled := false;
Timer1.Interval := iTime * 60 * 1000;
Timer1.Enabled := true;
except
end;
finally
reg.Free;
end;
sl := TStringList.Create;
try
sl.Add(spath);
sl.Add(sTitle);
sl.SaveToFile('c:\xixi.txt');
finally
sl.free;
end;
Started := True;
//Svcmgr.Application.CreateForm(TfrmDealwith, frmDealwith);
//gbCanClose := False;
//frmDealwith.Hide;
end;
xixi.txt可以创建,但没内容写入,注册表是有东西的,还有就是timer没有运行的.
