Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2011, 13:11   #1
CAID
Новичок
Джуниор
 
Регистрация: 16.01.2011
Сообщений: 1
По умолчанию Delphi. Программа взаимодействия с MS Word выдаёт ошибку "сервер RPC недоступен"

Доброго времени суток
У меня возникла проблема, суть её в том, что запускаю свой проект, он запускается, работает, а после его закрытия выходит вот такая ошибка:"project project1.exe raised exception class EOleException with message "сервер RPC недоступен" .process stoped . use step or run to continue". Помогите советом, возможно, я что-то упустил?!
Вот листинг:
Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ShellAPI, OleServer, WordXP;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    WordApplication1: TWordApplication;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, '1.doc', nil,nil, SW_SHOWNORMAL);
Application.ProcessMessages;
{Ctrl Key Down}
keybd_Event(VK_CONTROL, 0, 0, 0);
{F Key Down - Drops the menu down}
keybd_Event(ord('F'), 0, 0, 0);
{F Key Up}
keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
{Ctrl Key Up}
keybd_Event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;

end.
Благодарю заранее за помощь дельным советом.



___________
1) тема должна адекватно отражать суть задачи или проблемы!

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 20.04.2011 в 13:39.
CAID вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
программа выдаёт ошибку brans Microsoft Office Excel 3 24.10.2010 13:55
Как это устранить? ..Win32 Error. Code: 1722. Сервер RPC недоступен viktor982 Общие вопросы Delphi 2 21.11.2009 20:44
Выдаёт ошибку: acos DOMAIN error,полсе нажатия окей,ещё одну ошибку pow OWERFLAW ERROR prikolist Общие вопросы C/C++ 4 10.04.2009 20:27
Сервер RPC недоступен malevich Работа с сетью в Delphi 3 29.02.2008 20:49