Как после работы с Excel убивать его в памяти

← →
Chainik (2003-01-08 14:22) [0]

После написания такого кода:
procedure TForm1.Button1Click(Sender: TObject); var vExcel: OLEVariant; begin vExcel := CreateOLEObject("Excel.Application"); vExcel.WorkBooks.open("D:\my.xls",true); Edit1.Text:=vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2]; //vExcel.Destroy; vExcel.Quit; // vExcel:=unassigned; end;

Excel загружается (в смысле отображается в диспетчере задач) почему-то два раза: при запуске проги и при нажатии собственно на Button1. А при закрытии один пропадает.

← →
cult © (2003-01-08 15:15) [1]

значит, ты его где-то еще прописал, иначе он бы два раза не грузился

← →
Chainik (2003-01-08 15:47) [2]

Да нет, вся прога состоит только из этого события

← →
Chainik (2003-01-08 16:06) [3]

Кстати, я просто создал опять заново новый проект с этим событием и теперь действительно один раз появляется, но все же Quit не срабатывает.

← →
Matolch. (2003-01-08 16:46) [4]

var Form1: TForm1; vExcel: OLEVariant; //ukj, implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin vExcel := CreateOLEObject("Excel.Application"); vExcel.WorkBooks.Add;//("D:\my.xls",true); vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2] := Edit1.Text; vExcel.Quit; // если так, то Дельфя его сама убьет. end; procedure TForm1.FormDestroy(Sender: TObject); begin vExcel.Visible := False;// если не так, то не убьет //vExcel.Quit; //А может так end;

А два раза - наверняка до этого не вышел просто

← →
Matolch. (2003-01-08 16:47) [5]

WM_QUIT ваще

← →
Chainik (2003-01-08 17:41) [6]

Спасибо.

procedure TForm1.Button1Click(Sender: TObject);
var vExcel: OLEVariant;
begin
vExcel := CreateOLEObject("Excel.Application");
vExcel.WorkBooks.open("D:\my.xls",true);
Edit1.Text:=vExcel.WorkBooks[1].WorkSheets[1].Cells[34,2];

//vExcel.Destroy;

vExcel.Quit;
// vExcel:=unassigned;
vExcel := null;

end;

← →
Chainik (2003-01-08 19:21) [8]

Как после работы с Excel убивать его в памяти Найти похожие ветки