Discussion :

[Infopassion]

Bonjour,
J'ai un problème en Pascal qui je pense se résout assez facilement mais je ne trouve pas la réponse.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
Uses
 Crt,Dos,Windows;
begin
SwapVectors;
Exec('C:\Program Files\Microsoft Office\Office12\exemple1.exe','');
SwapVectors;
End.

Je lance mon programme(avec d'autres procédures avant et après ce morceau de code) et une fois que le fichier Excel est ouvert je peux rien faire sur mon programme sans avoir préalablement fermer le fichier Excel. Quelqu'un a une solution ?

Merci pour vos réponses

[e-ric]

Salut

Comme le dit la description de la procédure Exec ("https://www.freepascal.org/docs-html/rtl/dos/exec.html"):

Exec executes the program in Path, with the options given by ComLine. The program name should not appear again in ComLine, it is specified in Path. Comline contains only the parameters that are passed to the program.

After the program has terminated, the procedure returns. The Exit value of the program can be consulted with the DosExitCode function.

For an example, see DosExitCode

Une fois le programme appelé, la procédure redonne le contrôle à l'appelant. Ainsi ton programme attend qu'Excel se termine pour continuer.
Je ne pense pas qu'il y ait de solution avec Exec, si tu restes dans le monde Dos, en effet ce dernier n'est pas multi-tâches. Est-tu vraiment obligé de travailler avec des API du DOS ?

Cdlt

[Jipété]

Salut,

J't'ai plussé, mais il y a quand même un truc qui n'est pas clair, ou ambigu :

Une fois le programme appelé, la procédure redonne le contrôle à l'appelant. Ainsi ton programme attend qu'Excel se termine pour continuer.

J'aurais préféré lire (même si c'est lourd) : Une fois que le programme appelé est terminé, parce que sinon on a l'impression que la proc redonne le contrôle à l'appelant (le user ?) dès le programme appelé, ce qui est la demande de l'OP, et qui semble impossible ; par ailleurs la seconde phrase est en opposition avec la première, d'où l'ambiguïté.

Et la chose est bien précisée dans le lien d'aide que tu as donné :

Execute another program, and wait for it to finish

(c'est moi qui ai mis en gras)

[e-ric]

J'aurais préféré lire (même si c'est lourd) : Une fois que le programme appelé est terminé, parce que sinon on a l'impression que la proc redonne le contrôle à l'appelant (le user ?) dès le programme appelé, ce qui est la demande de l'OP, et qui semble impossible ; par ailleurs la seconde phrase est en opposition avec la première, d'où l'ambiguïté.

Tu as raison, je ne me suis pas assez relu mais tu chipotes un peu sur la fin .

@+

[Infopassion]

Merci pour vos réponses !