uses ShellApi; function FindExec(sFile: String): String; var Exec: array [0..255] of Char; begin FindExecutable(PChar(ExtractFileName(sFile)), PChar(ExtractFilePath(sFile)), Exec); Result:=String(Exec); end;
Télécharger le zip
Cette réponse est très interessante car on y trouve la librairie (uses ShellApi) qui permet de lancer la fonction FIndExecutable ce qui n'est pas toujours le cas lorsque l'on fait appel aux api windows.Encore bravo et merci.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 496 membres 33 nouveaux aujourd'hui 16 151 membres club