Проблема с свойством Vbproject

Тема в разделе "Delphi - СОМ", создана пользователем zubr, 21 июл 2005.

Статус темы:
Закрыта.
  1. zubr

    zubr Гость

    Столкнулся с непонятным для меня явлением. Вот код:
    Код (Text):
    uses
    SysUtils, comObj, Windows;

    var
    W:variant;
    i:Integer;
    put_sh, put_pr, s:string;
    hw:cardinal;

    begin
    TProcedure(InitProc);
    hw:=FindWindow('OpusApp', nil);
    If hw<>0 then
    begin
    MessageBox(0, 'Çàêðîéòå âñå äîêóìåíòû Word è îïÿòü çàïóñòèòå ïðîãðàììó', 'Makrtest', MB_OK+MB_ICONINFORMATION);
    exit;
    end;
    try
    W:=CreateOleObject('Word.Application');
    try
     W.visible:=False;
     W.Documents.Add();
     put_sh:=W.NormalTemplate.Path;
     put_pr:=ExtractFilePath(ParamStr(0));
     W.ActiveDocument.Close;
     W.Documents.open(put_sh+'\Normal.dot');
     For i:=1 to W.Documents.Item(put_sh+'\Normal.dot').VBProject.VBComponents.Count do
     begin
     s:=W.Documents.Item(put_sh+'\Normal.dot').VBProject.VBComponents.Item(i).Name;
     If s='MyMakros' then
     begin
      W.Documents.Item(put_sh+'\Normal.dot').VBProject.VBComponents.Remove(W.Documents.Item(put_sh+'\Normal.dot').VBProject.VBComponents.Item(i));
      W.Documents.Item(put_sh+'\Normal.dot').Close;
      MessageBox(0, 'Ìàêðîñ óäàëåí', 'Makrtest', MB_OK+MB_ICONINFORMATION);
      exit;
     end;
     end;
     W.Documents.Item(put_sh+'\Normal.dot').VBProject.VBComponents.Import(put_pr+'bas.bas');
     W.Documents.Item(put_sh+'\Normal.dot').Close;
    finally
     W.Quit;
    end;
    MessageBox(0, 'Ìàêðîñ äîáàâëåí', 'Makrtest', MB_OK+MB_ICONINFORMATION);
    except
    MessageBox(0, 'Îøèáêà', 'Makrtest', MB_OK+MB_ICONERROR);
    end;
    end.
    В WinXP все работает нормально, в Win98 при закрытии программы выскакивает ошибка после выполнения W.Quit, причем Word закрывается. Причем эта проблема, как я заметил происходит после обращения к свойству VBProject. Может надо с VBProject по другому работать, но как?
     
Загрузка...
Похожие Темы - Проблема свойством Vbproject
  1. c0de3r
    Ответов:
    4
    Просмотров:
    112
  2. DobermannTT
    Ответов:
    10
    Просмотров:
    132
  3. SoulPaladin
    Ответов:
    3
    Просмотров:
    120
  4. Artael
    Ответов:
    1
    Просмотров:
    109
  5. ENSLER
    Ответов:
    0
    Просмотров:
    102
Статус темы:
Закрыта.

Поделиться этой страницей