Discussion :

[Franckie]

Je dois écrire un programme qui devrait tester combien de fois word est ouvert et pour chaque session ouverte imprimer le document. Je ne trouve pas comment tester et prendre la main de word. Je précise que word n'est pas du tout gérépar mon application. Pas de DDE, pas de OLE etc. qqun aurait une piste.

J'utilise BSD Delphi 2005

Salutation
Franckie

[Ludo_360]

avec un timer, tu peux laisser ton appli en tache de fond et tu vérifie régulièrement les noms des applis lancés par les utilisateurs de la machine.

ludo

[Clorish]

tu as aussi les apis windows pour recuperer la liste des process ... mais le plus dur c'est pas de recuperer le handle de l'instance du document word ... mais bel est bien de lancer l'impression !

Je ne vois pas comment lancer l'impression automatiquement sans la prise de controle de l'applciation par OLE au minimum.

[Franckie]

Merci pour ta suggestion, mais peut-on prendre la main avec OLE d'une apllication alors qu'elle est déjà démarrée ?

[Clorish]

alors la ..... tres bonne question

[J-P-B]

Merci pour ta suggestion, mais peut-on prendre la main avec OLE d'une apllication alors qu'elle est déjà démarrée ?

Salut

si si, ça marche très bien. Surtout avec les Word et Excel. Quelque soit le nombre de fenêtres word, il n'y a qu'un seul process word qui gère le serveur DCOM Ole automation et qui "voit" tous les documents ouverts.

Petit test rapide :

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
25
26
27
28
program Project1;
 
uses
  Windows, Forms, Dialogs, SysUtils, word97;
 
{$R *.res}
 
var
  word: TWordApplication;
 
begin
  Application.Initialize;
  word := TWordApplication.Create(application);
 
 
  ShowMessage(IntToStr(word.Documents.Count) + ' documents ouverts');
  word.free;
 
  with Application do
  begin
    if Handle <> 0 then ShowOwnedPopups(Handle, False);
    ShowHint := False;
    Destroying;
    DestroyComponents;
  end;
 
 
end.

Cà affiche le nombre de documents ouverts qu'on lance ou non word avant ou après

JP

[Clorish]

Bien ... bon a savoir