Карабас БарабасА как ? Если не секрет ... их ведь не отличить от нормальных экземпляров ...
раньше старался недопускать вылета по оле. :)
еще есть такое мнение (надеюсь меня простит автор не помню где взял):
"Иногда после вызова стандартного метода по закрытию Excel, все рабочии книги, да и само приложение Excel закрывается, но сам процесс excel.exe остается висеть в памяти. Это отлично видно в Task Manager'е в WinNT/2000/XP.
Такое происходит при работе с Excel как через OLE, так и с использованием серверных компонентов со вкладки Servers в палитре компонент.
Какой либо закономерности в этом я не улавил. Просто при открытии/закрытие одного файла (рабочей книги Excel; .xls) все завершается удачно, а при открытие/закрытие другого файла процесс excel.exe остается висеть в памяти.
Возможно данный баг привнесен локализаторами Windows и Office, а может быть этто очередные баги Borland... В любом случае я не нашел другого способа с этим бороться кроме как убивать процесс вручную:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
Variant excel = Unassigned;
HWND hExcelWindow = NULL;
bool __fastcall KillProcess(DWORD PID);
bool __fastcall GetExcelPid(HWND hExWindow, LPDWORD pPid);
//открываем нужную книгу, использую OpenDialog
void __fastcall TMainForm::ButtonOpenExcelClick(TObject *Sender)
{
if (!OpenDialog->Execute()) return;
try
{
if (!VarIsEmpty(excel))
{ excel.OleProcedure("Quit"); excel = Unassigned; }
excel=CreateOleObject("Excel.Application");
excel.OlePropertySet("Visible", true);
excel.OlePropertyGet("Workbooks").OlePropertyGet("Open",OpenDialog->FileName)
.OlePropertyGet("Worksheets").OlePropertyGet("Item", 1 ).OleProcedure("Activate");
// далее получаем Caption открытого окна Excel, затем с его помощью находим и
// запоминаем хендл окна. В дальнейщем с его помощью мы определим PID процесса
// excel.exe, запущеного именно нами!
// Зачем нам завершать чужие процессы?
String ExcelCaption = excel.OlePropertyGet("Caption");
hExcelWindow = FindWindow("XLMAIN", ExcelCaption.c_str());
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
// Функция закрытия Excel
void __fastcall TMainForm::ButtonCloseExcelClick(TObject *Sender)
{
// Проверяем был ли открыт Excel
if (VarIsEmpty(excel)) return;
// Выходим из Excel
excel.OleProcedure("Quit");
excel = Unassigned;
//Убиваем процесс excel.exe, если он еще весит в памяти
DWORD Pid;
if (GetExcelPid(hExcelWindow, &Pid))
if (!KillProcess(Pid))
Application->MessageBox("Error to close Excel.\n\
May be you have not debug privilege.", "MyProg", MB_OK + MB_ICONERROR);
hExcelWindow = NULL;
}
// Получаем PID процесса excel.exe
bool __fastcall GetExcelPid(HWND hExWindow, LPDWORD pPid)
{
// используем нащ хендл окна, полученый в самом начале при отрытие книги Excel
if (!hExWindow) return false;
char ClassName[ 100 ];
// Получаем PID нашего процесса
if (!GetWindowThreadProcessId(hExWindow, pPid)) return false;
// На всякий случай проверяем является ли он действительно Excel, для этого
// проверям класс процесса, он должен быть "XLMAIN" (получено экспериментальным путем)
if (GetClassName(hExWindow, ClassName, 99 ) == 0 ) return false;
if (CompareStr("XLMAIN", ClassName) != 0 ) return false;
return true;
}
// Функция для закрытия любого процесса по его PID'у
bool __fastcall KillProcess(DWORD PID)
{
bool ReturnCode = false;
HANDLE hProcess = OpenProcess(PROCESS_TERMINATE, false, PID);
if (hProcess != NULL || hProcess != INVALID_HANDLE_VALUE)
{
if (TerminateProcess(hProcess, - 1 ))
ReturnCode = true;
CloseHandle( hProcess );
}
return ReturnCode;
"
