Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.04;
Скачать: CL | DM;

Вниз

Как удалить OLE объект во время выполнения его метода   Найти похожие ветки 

 
fag2000@ok.ru ©   (2001-12-07 12:44) [0]

Я создаю в отдельном потоке Ole-объект Word. и запускаю на выполнение макрос. Во время выполнения программы иногда возникает потребность завершить этот макрос до его штатного окончания. Это можно сделать если убить соответствующий процесс в TaskManager. Вопрос как узнать какой процесс и как его убить.

unit RunWord;

interface
uses
...
type
TWordThread = class(TThread)
private
{ Private declarations }
WinWord: Variant;
WinWordExists:boolean;
Path:String;
protected
procedure Execute; override;
public
constructor Create(AppPath:String);
procedure RunWord();
procedure CloseWord();
end;


implementation
uses ActiveX;
constructor TWordThread.Create(AppPath:String);
begin
Path:=AppPath;
WinWordExists:=false;
inherited Create(False);
end;

procedure TWordThread.CloseWord();
begin
?????
end;

procedure TWordThread.RunWord();
Var
i:integer;
begin
//Работаем с Word
WinWord:=Unassigned;
//colnitialize
WinWord:=CreateOleObject("Word.Application");
WinWordExists:=true;
WinWord.visible:=True;
WinWord.Documents.Open(Path+"My.doc");
try
WinWord.Run("MyMacro");
finally
end;
end;
procedure TWordThread.Execute();
begin
CoInitialize(nil);
try
RunWord();
finally
CoUninitialize();
end;
end;



end.


 
VladD2 ©   (2001-12-08 03:22) [1]

А пробывал WinWord в нил задавать. Хотя конечно убивать COM сервер во время выполнения метода неприлично.

В конце концов елси ворд один, то можно найти его процесс по окну (классу окна... функцией FindWindow) и грохнуь с помощью API функций.



Страницы: 1 вся ветка

Текущий архив: 2002.02.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-8802
RoadRunner
2002-01-08 21:29
2002.02.04
Доступ к Paradox c паролем


1-8897
dimonf
2002-01-15 14:40
2002.02.04
График.


1-8867
Andron
2002-01-15 22:29
2002.02.04
Как отключить предупреждения компилятора типа ... specific to a platform?


1-8821
Anton Shestakov
2002-01-20 00:39
2002.02.04
DateTimePicker


14-9000
Вадим
2001-12-12 18:21
2002.02.04
Не хорошо... :((