Discussion :

[aimer_Delphi]

Bonsoir a tous ,
Après l'installation de mon application (programme d'installation créer avec Inno Setup) ,
j'ai créer un raccourci de l'application sur le bureau .
tous fonctionne très bien, sauf un de mes clients a supprimer le raccourci est a copier l’exécutable de mon application directement sur le bureau,
lors de lancement de mon logiciel ce dernier cherche les fichier qui se trouve dans le dossier d’installation (qui sont nécessaire pour le fonctionnement de l'application) , mais il ne trouve rien .
ce je cherche c'est de détecte si l'application est lancée depuis son raccourci ou de son dossier d'installation.

Code :

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

1
2
3
4
si raccourci  alors 
   lancer l''application
sinon
  message(l''application doit être exécuté partir de son raccourci ).

y a il une idée svp ?

[Andnotor]

ce je cherche c'est de détecte si l'application est lancée depuis son raccourci ou de son dossier d'installation.

Ce sera ni l'un ni l'autre s'il a copier l'exe sur le bureau

Tu pourrais comparer ExtractFilePath(Application.ExeName) avec l'entrée dans la BdR créée par Inno Setup : HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{....}_is1 -> InstallLocation.

[aimer_Delphi]

Bonjour et Merci pour la réponse .
SVP , existe il une autre solution sans passer par les paramètres Inno Setup ?

[Paul TOTH]

Bonjour et Merci pour la réponse .
SVP , existe il une autre solution sans passer par les paramètres Inno Setup ?

à ma connaissance il n'est pas possible de savoir si l'application a été lancée depuis un raccourci ou non.

la seule solution est de regarder Application.ExeName qui donne l'emplacement du programme.

nb: dans l'installation il est possible d'ajouter un paramètre au lancement de l'application qui permettrait de plus ou moins détecter la chose

si le raccourci lance "project.exe /shortcut"

il suffit alors de tester ParamStr(1) = '/shortcut'

mais ça ne garanti pas l'origine du lancement, mais simplement qu'il existe un paramètre.

[SergioMaster]

Bonjour,

pourquoi ne pas tester l'existence d'un fichier (bidon mais obligatoire) dans le répertoire en cours ?

Code :

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

1
2
 if FileExists(ExtractFilePath(Paramstr(0))+'toto.txt') 
           then showmessage('OK') else  showmessage('pas bon');

J'ai testé ça rapidement sur une appli, ça à l'air de fonctionner : si raccourci ok si programme sur desktop pas ok

[aimer_Delphi]

Bonjour,

pourquoi ne pas tester l'existence d'un fichier (bidon mais obligatoire) dans le répertoire en cours ?

Code :

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

1
2
 if FileExists(ExtractFilePath(Paramstr(0))+'toto.txt') 
           then showmessage('OK') else  showmessage('pas bon');

J'ai testé ça rapidement sur une appli, ça à l'air de fonctionner : si raccourci ok si programme sur desktop pas ok

Merci Sergio pour la réponse , c'est vraiment une solution pratique.

[aimer_Delphi]

à ma connaissance il n'est pas possible de savoir si l'application a été lancée depuis un raccourci ou non.

la seule solution est de regarder Application.ExeName qui donne l'emplacement du programme.

nb: dans l'installation il est possible d'ajouter un paramètre au lancement de l'application qui permettrait de plus ou moins détecter la chose

si le raccourci lance "project.exe /shortcut"

il suffit alors de tester ParamStr(1) = '/shortcut'

mais ça ne garanti pas l'origine du lancement, mais simplement qu'il existe un paramètre.

merci Paul pour le suivie.
je vais tester ta solution.

[aimer_Delphi]

un autre solution dont j'ai trouvé (inspirée de l'idée de Sergio) c'est de chercher le Mot Desktop dans le chemin de mon exécutable.

Code :

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

1
2
3
4
  if Pos('Desktop', ExtractFilePath(Paramstr(0))) = 0 then // ce n'est pas un raccourci
     ShowMessage('ce n''est pas un raccourci')
  else
    ShowMessage('Haha c''est un raccourci');

[Paul TOTH]

un autre solution dont j'ai trouvé (inspirée de l'idée de Sergio) c'est de chercher le Mot Desktop dans le chemin de mon exécutable.

Code :

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

1
2
3
4
  if Pos('Desktop', ExtractFilePath(Paramstr(0))) = 0 then // ce n'est pas un raccourci
     ShowMessage('ce n''est pas un raccourci')
  else
    ShowMessage('Haha c''est un raccourci');

ça n'indique pas que l'executable n'a pas été déplacé, mais qu'il se trouve dans un sous répertoire de "Desktop".

[aimer_Delphi]

Une autre solution que j'ai trouvé , peut être ça va être utile a autre .

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
29
30
31
32
33
34
35
36
37
// https://stackoverflow.com/questions/36267584/delphi-where-is-the-shortcut-that-started-the-application
 
program GetShortCutTest;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
const
  STARTF_TITLEISLINKNAME = $800;
 
function GetShortcutName(out LinkName: string): Boolean;
var
  si: TStartupInfo;
begin
  Result := False;
  FillChar(si, SizeOf(TStartupInfo), 0);
  GetStartupInfo(si);
  if (si.dwFlags and STARTF_TITLEISLINKNAME) <> 0 then
  begin
    Result := True;
    LinkName := PChar(si.lpTitle);
  end;
end;
 
var
  sLink: string;
 
begin
  if GetShortcutName(sLink) then
    WriteLn('Shortcut: ' + sLink)
  else
    WriteLn('Not run from shortcut.');
 
  ReadLn;
end.

[Jipété]

Bonjour,

ce que je cherche c'est de détecter si l'application est lancée depuis son raccourci ou de son dossier d'installation.

Pour quoi faire ? Ça t'amènera au même résultat...

SVP , existe-t-il une autre solution sans passer par les paramètres Inno Setup ?

Bien sûr, et tu as depuis le début la solution sous le nez, sans passer par toutes ces complications (au passage je note que la discussion est alors que ce n'est pas encore le cas...) :

lors du lancement de mon logiciel ce dernier cherche les fichiers qui se trouvent dans le dossier d’installation (qui sont nécessaires pour le fonctionnement de l'application), mais il ne trouve rien.

Il te suffit bêtement et simplement de tester la présence de ces fichiers nécessaires pour déterminer si le programme est dans le bon dossier ou pas... Sergio t'avait mis sur la piste, mais le fait d'avoir mal posé le problème l'a embrouillé (présence d'un fichier bidon quand des fichiers valides sont tout autant nécessaires).

Je ne vois pas ce qu'il y a de compliqué là : si les fichiers nécessaires ne sont pas présents; c'est que l'utilisateur a bidouillé quelque chose, tu peux donc l'en informer.

[aimer_Delphi]

Bonjour,

Pour quoi faire ? Ça t'amènera au même résultat...


Bien sûr, et tu as depuis le début la solution sous le nez, sans passer par toutes ces complications (au passage je note que la discussion est alors que ce n'est pas encore le cas...) :


Il te suffit bêtement et simplement de tester la présence de ces fichiers nécessaires pour déterminer si le programme est dans le bon dossier ou pas... Sergio t'avait mis sur la piste, mais le fait d'avoir mal posé le problème l'a embrouillé (présence d'un fichier bidon quand des fichiers valides sont tout autant nécessaires).

Je ne vois pas ce qu'il y a de compliqué là : si les fichiers nécessaires ne sont pas présents; c'est que l'utilisateur a bidouillé quelque chose, tu peux donc l'en informer.

Bonjour , et merci pour le suivi.
mais je crois que tu n'a pas bien lu la discussion et les réponses .
et je note très bien que la discussion comme j'ai motionné est bien

[Paul TOTH]

Une autre solution que j'ai trouvé , peut être ça va être utile a autre .

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
29
30
31
32
33
34
35
36
37
// https://stackoverflow.com/questions/36267584/delphi-where-is-the-shortcut-that-started-the-application
 
program GetShortCutTest;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
 
const
  STARTF_TITLEISLINKNAME = $800;
 
function GetShortcutName(out LinkName: string): Boolean;
var
  si: TStartupInfo;
begin
  Result := False;
  FillChar(si, SizeOf(TStartupInfo), 0);
  GetStartupInfo(si);
  if (si.dwFlags and STARTF_TITLEISLINKNAME) <> 0 then
  begin
    Result := True;
    LinkName := PChar(si.lpTitle);
  end;
end;
 
var
  sLink: string;
 
begin
  if GetShortcutName(sLink) then
    WriteLn('Shortcut: ' + sLink)
  else
    WriteLn('Not run from shortcut.');
 
  ReadLn;
end.

excellent, je ne savais pas que c'était possible

[Jipété]

mais je crois que tu n'a pas bien lu la discussion et les réponses .

Mais bien sûr que j'ai tout lu, et depuis le début, où l'on peut lire ça :

Code :

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

1
2
3
4
si raccourci  alors 
   lancer l''application
sinon
  message(l''application doit être exécutée à partir de son raccourci.)

Ce qui revient à interdire un double clic sur le .exe situé dans le dossier d'installation.

C'est l'utilisateur qui va être surpris !

Enfin bon, j'dis ça j'dis rien, hein...

[aimer_Delphi]

Enfin bon, j'dis ça j'dis rien, hein...

c'est avec vous quand apprend toujours.
merci pour le suivie