[Dropped] AOO task still running after Delphi program terminates

[gavinsbtm]

I'm writing a delphi 10.3 program and testing on Windows 10.

When I run the terminate command on a com.sun.star.frame.Desktop object, the office task remains running in the background and can be seen on the windows task manager. The following is the most simple version of the code i'm using to replicate this.

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  ooServiceManager, ooDesktop: Variant;

begin
  ooServiceManager := CreateOleObject('com.sun.star.ServiceManager');
  ooDesktop := ooServiceManager.CreateInstance('com.sun.star.frame.Desktop');
  ooDesktop.Terminate;
end;

I can force the task to terminate by sunning

Code: Select all

ShellExecute(0, nil, 'c:\windows\system32\taskkill.exe', '/F /iM soffice.bin', nil, SW_HIDE);

but that seems a bit hacky...

How do I terminate the office task using the service manager or desktop?

[RoryOF]

Possibly relevant discussion and methods at
viewtopic.php?f=20&t=73209

[gavinsbtm]

Possibly relevant discussion and methods at
viewtopic.php?f=20&t=73209

I've tried looping through and closing any open docs - no joy.

It seems to happen even without creating an instance of com.sun.star.frame.Desktop.

The following code has the same result

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
var
  ooServiceManager: Variant;
begin
  form1.caption := 'Started';

  ooServiceManager := CreateOleObject('com.sun.star.ServiceManager');

  ooServiceManager.dispose;

  form1.caption := 'Finished';
end;

[Lupp]

You sure that all the frames created by the desktop were closed and there can't be a veto?

Just for curiosity: What bridge did you use? Does it (or a variant of it) also work with FreePascal/Lazarus? Under different OS?


<edit>
Did you read viewtopic.php?f=5&t=40059 ?
</edit>