Discussion :

[PhilLU]

Bonjour,
J'utilise le code suivant qui marche bien temps que le path ne contient pas d'espace:

Code :

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

1
2
3
var cmd: string;
cmd := '+h +r ' + extractFilePath(application.exename)+ proj +'.phl';
ShellExecute(handle, nil, 'attrib',PChar(cmd),nil,sw_shownormal);

J'ai tenté des variations en suivant les info sur le net mais sans résultat
(du style double quote...)
Comment m'en sortir???
Merci pour vos idées

[Andnotor]

Converti le chemin\fichier en format court (8.3) par ExtractShortPathName.

[Linkin]

Double quote pour le nom de l'executable et double queot pour chaque paramètre:

Code :

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

1
2
3
cmd := '+h +r ' +'"'+ extractFilePath(application.exename)+'" "'+ proj +'.phl"'

Par contre le +h +r me paraît bizarre.

[Andnotor]

Double quote pour le nom de l'executable et double queot pour chaque paramètre

Faut-il encore que le programme soit capable de parser une chaîne de commandes contenant des guillemets

[PhilLU]

Voici la solution:

Code :

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

1
2
cmd := '-h ' +'"'+ extractFilePath(application.exename)+ proj +'.phl"';
ShellExecute(handle, nil, 'attrib',PChar(cmd),nil,sw_shownormal);

[guillemouze]

Faut-il encore que le programme soit capable de parser une chaîne de commandes contenant des guillemets

Heu je suis pas sûr de ce que j'avance, mais il me semble que les guillemets n'apparaissent pas dans le ParamStr si ils sont la juste pour encadrer un paramètre.

[PhilLU]

Ben ça fonctionne, il faut dire que proj peut aussi contenir un espace