OLE2 and Excel

I am using OLE2 for automation Excel.
I do:

[Quoted] declare

   application OLE2.OBJ_TYPE;
   workbooks OLE2.OBJ_TYPE;
   workbook OLE2.OBJ_TYPE;
   worksheets OLE2.OBJ_TYPE;
   worksheet OLE2.OBJ_TYPE;
   cell OLE2.OBJ_TYPE;
   args OLE2.LIST_TYPE;
begin

   application:=OLE2.CREATE_OBJ('Excel.Application');    workbooks:=OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');    workbook:=OLE2.INVOKE_OBJ(workbooks, 'Add');    worksheets:=OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');    worksheet:=OLE2.INVOKE_OBJ(worksheets, 'Add');

   args:=OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 1);
   OLE2.ADD_ARG(args, 1);
   cell:=OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);    OLE2.DESTROY_ARGLIST(args);
   OLE2.SET_PROPERTY(cell, 'Value', Val);

   args:=OLE2.CREATE_ARGLIST;

   OLE2.ADD_ARG(args, FileName);
   OLE2.INVOKE(workbook,'SaveAs', args);
   OLE2.DESTROY_ARGLIST(args);
   OLE2.INVOKE(workbook,'Close');

   OLE2.INVOKE(application, 'Quit');

   OLE2.RELEASE_OBJ(cell);
   OLE2.RELEASE_OBJ(worksheet);
   OLE2.RELEASE_OBJ(worksheets);
   OLE2.RELEASE_OBJ(workbook);
   OLE2.RELEASE_OBJ(workbooks);
   OLE2.RELEASE_OBJ(application);

And after execution of this procedure Excel stay in memory. How to remove Excel from the memory?

Philippe.

Sent via Deja.com http://www.deja.com/
Before you buy. Received on Tue May 16 2000 - 00:00:00 CEST