prob shellexecute

Question

Je suis en train de faire un prog qui affiche la fête du jour à côté de l'heure.
Mon prog est divisé en deux applications qui se donnent la réplique.
Le premier prog s'exécute au démarrage et :
1) exécute le deuxième prog qui met à jour la fête journalière
2) tourne en boucle en vérifiant régulièrement la date. Lorsque celle-ci change, il exécute de nouveau le deuxième prog qui met la fete à jour...

Mon prob : le premier prog s'exécute, tourne en boucle, mais n'exécute pas le deuxième prog malgré mon shellexecute.
Cependant lorsque je l'exécute en double-cliquant dessus, tout fonctionne normalement.

Bien sûr je pourrai mettre les deux prog en un seul (c'est certainement ce que je ferai de toute façon), mais pour une question d'honneur perso, je veux pouvoir faire ça !

Le code de mon premier prog :

procedure TForm2.FormCreate(Sender: TObject);
var DateEtHeure : TSystemTime;
    a,b : string;
begin
        ShellExecute(Application.handle,'Open', PChar('sdj.exe') ,'','',SW_SHOWNORMAL);
  repeat
     GetSystemTime(DateEtHeure);
     a:=inttostr(DateEtHeure.wday);
     sleep(5000);
     GetSystemTime(DateEtHeure);
     b:=inttostr(DateEtHeure.wday);
    if a<>b then
        ShellExecute(Application.handle,'Open', PChar('sdj.exe') ,'','',SW_SHOWNORMAL);
        sleep(60000);
        GetSystemTime(DateEtHeure);
  until dateetheure.wday=dateetheure.wDay+2;
end;

Par avance merci..

yoghisan · Answer

essaie winexe au lien de shellexecute

yoghisan · Answer

lien --> lieu

NinJoDo · Answer

j'ai lu qq part que winexe n'était pas conseillé pour des problèmes de colmpatibilité avec les windows ?

qu'en penses-tu ?

yoghisan · Answer

J'en sais rien... desole...

florenth · Answer

il faut que tu donnes le chemin complet de ta 2eme appli sauf si elle est dans le repertoire windows ou systeme.

Voila

Si tu ne te plantes pas ......
     tu ne poussera jamais

florenth · Answer

J'oubilais : N'oublie pas de mettre ShellApi dans la clause Uses

Si tu ne te plantes pas ......
     tu ne poussera jamais

Prob shellexecute

6 réponses

Votre réponse

Discussions similaires