windows服务程序

[Zoogreen]

在service oncreate 里读注册表信息,
然后在timer控件里写处理,判断程序是否运行.

都没有触发,为什么

[Zoogreen]

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没有运行的.

[dinoalex]

在ServiceExecute事件里写