Форум: "WinAPI";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Вниз
Как удалить 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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c