Главная страница
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.014 c
3-8790
Ura
2001-12-28 11:02
2002.02.04
BDE


4-9020
sanyaMM
2001-12-04 16:39
2002.02.04
Как перехватить Ctrl+Alt+Del?


1-8864
Ольга
2002-01-18 12:39
2002.02.04
ListBox-ы и Edit-ы


1-8872
IronHawk
2002-01-15 18:30
2002.02.04
ОКРУГЛЕНИЕ ! ! ! . . .


14-8994
Raider
2001-12-11 10:53
2002.02.04
Кодекс Русских Программистов