[Delphi7] Détecter si l'application est lancée depuis son raccourci ou de son dossier

Version imprimable

01/11/2017, 16h56
aimer_Delphi

[Delphi7] Détecter si l'application est lancée depuis son raccourci ou de son dossier
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:

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 ?
01/11/2017, 17h46
Andnotor

Citation:

Envoyé par aimer_Delphi

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.
02/11/2017, 09h34
aimer_Delphi

Bonjour et Merci pour la réponse .
SVP , existe il une autre solution sans passer par les paramètres Inno Setup ?
02/11/2017, 10h52
Paul TOTH

Citation:

Envoyé par aimer_Delphi

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.
02/11/2017, 11h05
SergioMaster
Bonjour,

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

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
02/11/2017, 12h11
aimer_Delphi
Citation:
Envoyé par SergioMaster

Bonjour,

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

Code:

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.
02/11/2017, 12h12
aimer_Delphi

Citation:

Envoyé par Paul TOTH

à 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.

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:

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');

04/11/2017, 09h57
Paul TOTH
Citation:
Envoyé par 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:

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".

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

Code:

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.

04/11/2017, 10h21
Jipété

Bonjour,

Citation:

Envoyé par aimer_Delphi

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...

Citation:

Envoyé par aimer_Delphi

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 :resolu: alors que ce n'est pas encore le cas...) :

Citation:

Envoyé par aimer_Delphi

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.
04/11/2017, 12h18
aimer_Delphi

Citation:

Envoyé par Jipété

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 :resolu: 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 :resolu:

Citation:

Envoyé par aimer_Delphi

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

Code:

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

05/11/2017, 11h26
Jipété
Citation:

Envoyé par aimer_Delphi

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 :
Citation:
Envoyé par aimer_Delphi

Code:

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.
:koi:
C'est l'utilisateur qui va être surpris !

Enfin bon, j'dis ça j'dis rien, hein...
05/11/2017, 13h39
aimer_Delphi

Citation:

Envoyé par Jipété

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

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