Форум: "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.035 c
1-8812            myportal              2002-01-19 10:00  2002.02.04  
Как извлеч ресурс из программы в отдельный файл?


14-8981           anod                  2001-12-12 19:42  2002.02.04  
Вопрос по Перлу


1-8856            Sensor                2002-01-21 12:38  2002.02.04  
Transparant


1-8886            Dmitriy_R             2002-01-15 13:51  2002.02.04  
Генерация случайного числа в диапазоне 30......90


1-8915            Galy                  2002-01-17 13:30  2002.02.04  
Возможно ли в D5 создать программно компонент(н-р, SHAPE)?