J
jackjiao
Unregistered / Unconfirmed
GUEST, unregistred user!
为何用了excelapp := unassigned 依然无法释放内存。
我用的是delphi7 + excel200
我的程序如下:
var
ExcelApp: Variant;
begin
ExcelApp := Unassigned;
ExcelApp := CreateOleObject( 'Excel.Application' );
try
ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
ExcelApp.WorkSheets[1].Activate;
....
....
finally
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
按说执行完后,excel会退出。
可是程序退出后,在任务管理器中EXCEL依然驻留在内存中。
我用的是delphi7 + excel200
我的程序如下:
var
ExcelApp: Variant;
begin
ExcelApp := Unassigned;
ExcelApp := CreateOleObject( 'Excel.Application' );
try
ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
ExcelApp.WorkSheets[1].Activate;
....
....
finally
ExcelApp.WorkBooks.Close;
ExcelApp.Quit;
ExcelApp := Unassigned;
end;
按说执行完后,excel会退出。
可是程序退出后,在任务管理器中EXCEL依然驻留在内存中。