Discussion :

[dehorter olivier]

Bonjour a tous

j'essaye d'ouvrir un fichier avec mon application (a l'instar d'excel ou de word).

Lorsque le fichier entraine l'ouverture (creation) de l'application, pas de pb, j'utilise ParamStr(x) pour indiquer le fichier en cause. Mais lorsque mon application est deja ouverte, la fonction ParamStr ne fonctionne plus (puisque l'appli est deja ouverte)

alors comment puis je faire ?

a+


olivier

[VLDG]

Excel ou word fonctionne avec la technologie COM (Ole automation)

regarde un peu par ici http://www.phidels.com/php/index.php...fc245cc7e8d404

[dehorter olivier]

Salut VLDG

en fait je citais word ou excel comme exemple.

En fait les fichiers que j'utilise ont un format propre qui ne peuvent etre traites que par mon application.

Mon pb consiste a traiter le fichier (apes un double-clic dans l'explorateur ou la messagerie). lorsque l'application n'est pas ouverte, pas de pb; mais lorsqu'elle l'ai : je sais pas faire.

Evidemment, je pourrais lancer le traitement avec une procedure "fichier, ouvrir ...", mais c'est moins pratique

a+

olivier

[VLDG]

en fait je citais word ou excel comme exemple.

j'ai bien compris. Le tuturial te montre comment faire pour ton appli pour avoir un serveur OLE.

Ensuite tu peux utilser des composants comme Shellplus
http://www.shellplus.com/examples/sh...u-example.html

[Andnotor]

Tu peux aussi passer par WM_COPYDATA.

[exoseven]

va voir sur torry tu trouveras des composants qui font ce que tu veux (par exemple TMain Instance ou TOneInstance)

[dehorter olivier]

Merci a tous

j'ai untilise le composant OneInstance de BOME qui presente un evenement "InstanceStarted" qui permet de recuperer les parametres passes a la 2eme instance.

voici la procedure test :

Code :

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

1
2
3
4
5
6
7
8
 
    TRY
       if params.Count > 0 THEN
          for i := 0 TO params.Count - 1 do
              MessageDlg('Parametre : ' + params.Strings[i] , mtWarning, [mbOK], 0);
    FINALLY
 
    END;   // Fin de TRY FINALLY

a+

olivier