Ms Word/ Ms Excel/ Delphi/ завершение работы

[Антон Лысенко]

Здравствуйте!
Программа работает с приложениями МS Word & MS Excel. В ходе выполнения программы могут быть запущены как один так и несколько приложений MS. Так у меня возник вопрос: есть ли методы которые проверяют было ли запущено приложение, и если да то очищают память от этих приложений и закрываю их? Я знаю как закрыть если они точно запущены. Но если они не запущены то вылетает ошибка.

procedure TForm1.N4Click(Sender: TObject);
begin
w.ActiveDocument.Close(false);
w.Quit;
w:=UnAssigned;
e.ActiveSheet.Close(false);
e.Quit;
e:=UnAssigned;
close;
end;

Надеюсь на ваше помощь!

[hon]

function IsRunning(sName: string): boolean; // проверяет, запущен ли процесс sName
var
   han: THandle;
   ProcStruct: PROCESSENTRY32;
   sID: string;
begin
   Result:=false;
   han:=CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
   if han=0 then exit;
   ProcStruct.dwSize:=sizeof(PROCESSENTRY32);
   if Process32First(han, ProcStruct) then
   begin
      repeat
         sID:=ExtractFileName(ProcStruct.szExeFile);
         if uppercase(copy(sId, 1, length(sName)))=uppercase(sName) then
         begin
            Result:=true;
            Break;
         end;
      until not Process32Next(han, ProcStruct);
   end;
   CloseHandle(han);
end;

Пример использования:

if IsRunning('winword.exe') then ShowMessage('Word запущен!');