[D6][Windows 11 64 bits]Quelle est la différence entre un chemin de TOpenDialog et une variable string

Bonjour à toutes et à tous,

Dans une de mes applications remises à jour, j'ai constaté que avec un TopenDialog et un fichier dont le chemin est repris dans un Tedit fonctionne :

Code:

---

1 2	Edittest.text := optest.filename;

---

et

Code:

---

1 2 3 4 5 6 7

var Filename : string; begin filename := 'Mon fichier';   Edittest.text := Filename;

---

Fonctionne différemment et provoque un message.

Merci pour l'éclairage.

@+,

cincap

un Gestionnaire du OnChange
Il n'y aucune raison qu'une chaine string qu'elle soit locale ou issue d'une propriété d'un composant se comporte différemment

Bonjour Cincap,

Si j'ai bien compris :

Dans le premier cas tu fais un OpTest.Execute et tu récupères le contenu de la propriété FileName de OpTest.

Dans le second cas tu créés ta propre variable locale Filename à laquelle tu affecte une valeur toi même.

Ce n'est donc pas la même chose.

De quel message parles tu ?

A+
Charly

@ ShaiLeTroll, merci de ton message.

@ Charly910 merci aussi en fait dans mon application il y a deux choix soit en cherchant son propre fichier (choix 1) ou un fichier par défaut (choix 2), après l'instruction je fais un kill pour fermer l'application et puis l'ouvrir.

Si je choisis à l'ouverture de l'application soit en 1er (choix 1) un fichier sur mon Pc le processus se déroule bien et le kill aussi puis le 2ième (choix 2) aussi.

Si je choisis à l'ouverture de l'application le fichier (choix 2) par défaut dans mon dossier, le processus se déroule bien mais le kill affiche que l'application n'existe pas et se ferme.

Je cherche aussi, j'avais essayer avec trim(Edittest.text) sans succès;

@+,

cincap

bon, il va falloir que tu apprennes à poser un problème correctement, car ta demande est juste incompréhensible

je ne peux que supposer que dans le cas qui ne fonctionne pas, vu que tu cherches à killer une application qui n'est plus active, c'est qu'elle est déjà fermée ou qu'elle a planté...mais là c'est de l'ordre de la divination

Bonjour,
Si je comprends bien, quand tu choisis de tuer le fichier par défaut, le kill t'indique que le fichier n'existe pas. Si tu testes son existence avant de le tuer, que donne le if FileExists ?

Bonjour,

Effectivement, avant de faire le Kill, tu peux : afficher le nom de l'exe, tester si le fichier existe et tester si l'application est en cours d’exécution avec ExeRunning

Alors seulement, tu pourras faire le Kill et savoir pourquoi cela ne marche pas : Erreur sur le nom, fichier inexistant ou application non active.

A+
Charly

Le chemin complet dans un cas et le chemin relatif dans l'autre, peut-être.

Ensuite tu utilises GetModuleHandle + GetWindowThreadProcessId + OpenProcess + TerminateProcess ?

@ tous, merci de votre réponse, je m'orienterai sur la suggestion de ShaiLeTroll car les deux procédures sont identiques sauf que dans une j'ouvre un TopenDialo et dans l'autre une variable de type string.

Dans mes essais, pour le choix 2 j'ai même mis le chemin complet sans succès.

Pour le choix 2 si je met un TopenDialog c'est ok.

La commande taskkill est simple soit cmd.exe et '/c taskkill.exe /f /im C_Modifie_Son.exe&&start C_Modifie_Son.exe', nil, SW_SHOWNORMAL).

Donc c'est bien ce que pense ShaiLeTroll.

Je continue à creuser.

@+,

cincap

Ou alors un espace dans le chemin et l'oublie des " " autour

Pense la prochaine fois à donner le contexte complet, en fournissant le code

Evidemment, je suppose que la CMD Taskkill est encapsulée dans une fonction de ton cru, tu ne duplique deux appels différents à ShellExecute ?

Genre

Code:

---

1 2 3 4

function TaskRestart(const AFileName: string): THandle; begin Result := ShellExecute(0, 'open', 'cmd.exe', PChar(Format('/c taskkill.exe /f /im "%0:s"&&start "%0:s"', [AFileName])), nil, SW_SHOWNORMAL); end;

---

ou directement

Code:

---

1 2 3 4 5 6

function TaskRestart(const AFileName: string): THandle; begin ShellExecute(0, 'open', 'taskkill.exe', PChar(Format('/f /im "%0:s"', [AFileName])), nil, SW_SHOWNORMAL); Result := ShellExecute(0, 'open', AFileName, nil, SW_SHOWNORMAL); end;

---

Bonjour à toutes et à tous,

@ ShaiLeTroll, merci de ton suivi, en fait je n'ai pas de fonction de mon cru j'utilise une seule commande Taskkill directement depuis ShellExecute et chemin de mon application dont le raccourci est sur le bureau.

Par contre j'ai trouvé mon erreur et c'était bien le chemin entre le fichier .wav qui était créé dans un sous dossier depuis une ressource et la dll à modifier qui était créée dans le dossier de l'application puis copiée dans le dossier "System32".

Pour résoudre le problème j'ai enlevé la variable string pour le fichier et j'utilise aussi un TopenDialog.

Merci à tous pour votre éclairage.

@+,

cincap

@ ShaiLeTroll, ta fonction telle quelle ne fonctionnera pas sous Windows 11 (j'ai testé) et je pense sous Windows 10 non plus car cmd.exe est dans le dossier super protégé.

Pour en revenir à l'objet de mon topic :

Imaginons que dans mon dossier data j'ai un fichier .wav donc le chemin est : C:\Data\Startup.wav

Avec un TopenDialog ouvert dans Data j'ai bien mon fichier Startup.wav dans OpenDialog.filename.

Si maintenant avec une variable de type string soit MonFichier := 'Startup.wav' cela devrait être la même chose et pourtant j'ai un autre comportement.

C'est pour cette raison que pour mon fichier .wav par défaut j'utilise aussi un TopenDialog plutôt qu'une variable et que j'ai fermé le topic.

@+,

cincap

TOpenDialog ne fournirait pas le chemin complet ?
J'avais même eu l'impression qu'il pouvait changer le CurrentDir mais vu depuis le temps que je n'ai pas utilisé ça, je lui préfère un simple PromptForFileName

Et la fonction TaskRestart que j'ai fourni est surement la même chose que votre code, je ne vois pas en quoi ça ne fonctionnerait pas, surtout que c'est exactement ce que vous avez écrit

Citation:

---

Envoyé par cincap

La commande taskkill est simple soit cmd.exe et '/c taskkill.exe /f /im C_Modifie_Son.exe&&start C_Modifie_Son.exe', nil, SW_SHOWNORMAL).

---

Et bricoler comme vous faites sans comprendre, c'est vraiment pas une solution viable à long terme.
Maitriser, CurrentDir, les chemins complets et relatifs c'est le B-A-BA !

D'ailleurs, Kill doit surement préférer le nom court et Start le chemin complet, ce qui se traduirait par ceci avec Path 'C:\Data\' et AFileName 'C_Modifie_Son.exe'.

Que vient faire 'Startup.wav' dans un taskkill ?
Ce n'est pas un programme, vous confondez tout !
C'est le programme qui lit le fichier wav qu'il faut arrêter, aucune surprise que cela ne fonctionne pas car vous ne communiquez pas les bonnes informations, c'est incompréhensible.

Code:

---

1 2 3 4

function TaskRestart(const APath, AFileName: string): THandle; begin Result := ShellExecute(0, 'open', 'cmd.exe', PChar(Format('/c taskkill.exe /f /im "%0:s"&&start "%1:s%0:s"', [AFileName, APath])), nil, SW_SHOWNORMAL); end;

---

Code:

---

1 2 3 4 5 6

function TaskRestart(const APath, AFileName: string): THandle; begin ShellExecute(0, 'open', 'taskkill.exe', PChar(Format('/f /im "%0:s"', [AFileName])), nil, SW_SHOWNORMAL); Result := ShellExecute(0, 'open', APath + AFileName, nil, SW_SHOWNORMAL); end;

---

@ ShaiLeTroll,

Citation:

---

Que vient faire 'Startup.wav' dans un taskkill ?
Ce n'est pas un programme, vous confondez tout !
C'est le programme qui lit le fichier wav qu'il faut arrêter, aucune surprise que cela ne fonctionne pas car vous ne communiquez pas les bonnes informations, c'est incompréhensible.

---

Ce que tu écris n'est pas dans ma commande "Taskkill" et c'est bien l'application "C_Modifie_Son.exe" qui est visée dans cette commande :

Citation:

---

La commande taskkill est simple soit cmd.exe et '/c taskkill.exe /f /im C_Modifie_Son.exe&&start C_Modifie_Son.exe', nil, SW_SHOWNORMAL).

---

Le chemin ne concerne que le fichier "Startup.wav" qui comme je l'ai dit est sauvé dans le dossier de l'application.

Pour ta fonction, c'est le "cmd.exe" que tu ne pourras pas exploiter comme tel à cause de l'UAC tu n'as qua tester, je n'ai pas écrit la commande "ShellExecute" complète.

@+,

cincap