Discussion :

[Charly910]

Bonjour,
mon programme doit écrire dans un document Word qui est ouvert au préalable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Try
  WordApp := GetActiveOleObject('Word.Application');
except
  // OleCheck, appelée par GetActiveOleObject, peut déclencher une exception EOleSysError
  // message 'Opération non disponible'
    on EOleSysError do
     begin
       ShowMessage('Word n''est pas actif') ;
     end;
end;

Le problème est que GetActiveOleObject échoue même si un instance de word est ouverte, quand mon programme et Word n'ont pas le même niveau de privilèges. Par exemple, mon programme en mode admin et Word en mode normal.

Y a t il un moyen de détecter dans mon appli, le niveau de privilèges des 2 programmes et éventuellement de les accorder ?

Merci
A+
Charly

[Charly910]

Pour mon appli je sais détecter le niveau de privilèges :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{ ================================================================== }
procedure isAdmin();
var
  reg: TRegistry;
  openResult: Boolean;
begin
  reg := TRegistry.Create(KEY_READ);
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.Access := KEY_WRITE;
  openResult := reg.OpenKey('Software\MyCompanyName\MyApplication\',True);
  if not openResult = True then
    begin
    MessageDlg('Unable to write to registry. Your application does NOT have Administrator level privileges.',
                mtError, mbOKCancel, 0);
    end
  else
    begin
    MessageDlg('Write to registry permitted. Your application has Administrator level privileges.',
                mtInformation, mbOKCancel, 0);
    end;
  reg.CloseKey();
  reg.Free;
end;
{ ================================================================== }

Mais pour Word ? That is the question

A+
Charly

[ShaiLeTroll]

Cela me semblerait curieux qu'une application Admin ne puisse pas voir une application normale, l'inverse évidemment c'est interdit mais dans ce sens, ça serait étrange.

Ayant un doute sur OLE, j'avoue que je n'en ai pas fait depuis longtemps et j'ai quasiment eu tout le temps les versions 32 et 64 bits installés en double.

D7 32 Bits peut-il voir une instance de OLE 64 Bits ?
Cela dépend
Par exemple ODBC via ADO, on ne voit que les Drivers et Alias correspondant à l'architecture, mais ADO c'est de l'In-Process

Alors que Excel c'est du Out-of-process donc un exe 32 Bits doit pouvoir appeler un OLE 64Bits par Automation ... à vérifier !
En théorie cela doit fonctionner D7 32 + Excel 64

Faut donc pousser plus loin Google donne tout de suite de ce lien intéressant GetObject ou GetActiveObject ne trouve pas une application Office en cours d’exécution en particulier la Solution de contournement pour C++ que j'avais évoqué ici pour un problème similaire

En fait cela consiste à lancer Excel par le Shell pour le forcer à enregistrer son instance dans la Running Object Table car si Excel est déjà lancé, la nouvelle instance en réalité ne démarre pas mais peut mettre la prémière instance de Excel au premier plan (oui la perte de focus par Excel le force aussi à s'inscrire dans la ROT)
Voir RegisterActiveObject qui t'expliquera la running object table (ROT)

[Charly910]

Merci Shai, je vais regarder le lien.

Dans mon cas, D7 et Word sont en 32 bits

A+
Charly