Проверить, установлен ли Word




uses
Registry;
function IsWordInstalled: Boolean;
var
Reg: TRegistry;
s: string;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
Result := Reg.KeyExists('Word.Application');
finally
Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsWordInstalled then
ShowMessage('MS Word is installed.');
end;


Далее: Работа с другим приложением без Hook и DLL на примере GetFocus »»