COM и NT service

From

Michael Stepuchev ()

To

All

Date

2002-02-15T13:34:20Z

Area

SU.WINDOWS.NT.PROG

From: "Michael Stepuchev" <mandor@perm.dataart.com>

Hello, All!

Никто не пробовал обращаться к COM-объектам из NT сервиса?
Если сервис запустить в режиме отладки, как консольное приложение, следующий
кусок кода нормально отрабатывает.
Если же запустить сервисом - Эксель не закрывается...
Кто-нить знает, почему так? И что надо подкрутить?

Сервис стартует из-под LocalSystem.
Сейчас проверил - если его стартовать из-под доменного аккаунта, который
одновременно является администратором на этой машине - та же фигня.

=========Beginning of the citation==============
      repeat
        try
          obj := GetActiveOleObject('Excel.Application');
        except
          break;
        end;
        obj.DisplayAlerts := FALSE;
        for i := obj.Workbooks.Count downto 1 do begin
          if (obj.Workbooks.Item[i].Path <> '') and not
obj.Workbooks.Item[i].Saved then
            obj.Workbooks.Item[i].Save;
          obj.Workbooks.Item[i].Saved := TRUE;
          obj.Workbooks.Item[i].Close(SaveChanges:=FALSE);
        end;
        obj.Quit;
      until FALSE;

=========The end of the citation================

CU, Michael Stepuchev.
  E-mail: mandor@perm.dataart.com
== Кто юзал мой логин и весь его выюзал?! ==


--- ifmail v.2.15dev5
 * Origin: Demos online service (2:5020/400)