Word trägt sich selber in die ROT (Running Object Table) ein.
Das kann man ausnützen:
Delphi-Quellcode:
var
word : Olevariant;
begin
try
word := GetActiveOleObject('Word.Application');
ShowMessage('Word läuft');
word := unassigned;
except
ShowMessage('Word läuft nicht');
end;