Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 функций.




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
3-8778            Сержик                2002-01-04 22:47  2002.02.04  
Можно запрос делать сразу из двух баз?


1-8865            ctapik-net            2002-01-21 15:40  2002.02.04  
Создание электронного письма через ShellExecute


14-8995           Tosov                 2001-12-16 00:24  2002.02.04  
Как правильно: реестр или регистри


3-8751            Olfi                  2002-01-03 15:29  2002.02.04  
Вопрос по TQuery...


6-8961            Kuzmin_Alex           2001-10-30 00:38  2002.02.04  
Socket, помогите с NMStrm