DIR2DOS - POUR OUVRIR CMD.EXE DIRECTEMENT SUR LE RÉPERTOIRE UTILE.
elguevel
Messages postés
718
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
22 novembre 2016
-
21 juil. 2006 à 11:40
GRAM03 Messages postés 3 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 15 juillet 2012 - 15 juil. 2012 à 11:10
GRAM03 Messages postés 3 Date d'inscription samedi 29 mars 2003 Statut Membre Dernière intervention 15 juillet 2012 - 15 juil. 2012 à 11:10
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38702-dir2dos-pour-ouvrir-cmd-exe-directement-sur-le-repertoire-utile
https://codes-sources.commentcamarche.net/source/38702-dir2dos-pour-ouvrir-cmd-exe-directement-sur-le-repertoire-utile
15 juil. 2012 à 11:10
Utilisez le caractère #13 (Retour Chariot) pour séparer 2 lignes
Label1.Caption := 'Première ligne' + #13 + 'Deuxième ligne';
4 août 2006 à 14:43
4 août 2006 à 13:47
J'ai trouvé les notes assez sévères...
On va plus oser poster ! :(
Je trouve l'étude de ce code plutôt intéressante, ne serait-ce que pour rafraîchir ses connaissances en BDR, ParamStr et autres Mutex...
Bon, pour pinailler, à la place de :
If Reg.KeyExists('*\Shell\Dir2DOS\') then
KeyExists := True
Else KeyExists := False;
j'aurais fait :
KeyExists := Reg.KeyExists('*\Shell\Dir2DOS\');
et deux ou trois bricoles encore, mais chacun son style, hein ?
Moi je le trouve très bon, ton humour, elguevel... ;-)
21 juil. 2006 à 14:21
sur mon lieu de travail c'était la façon la plus simple d'intégration sur les postes, notamment pour le déploiement : si tu veux bien m'en excuser :)
Elguevel, bon résumé ;)
21 juil. 2006 à 12:05
je suis au regret de t'apprendre que ton lien est mort ... :-)
@+
Cirec
21 juil. 2006 à 11:56
21 juil. 2006 à 11:52
on pourrait faire plus simple ... non ?
Tu mets ceci dans le registre
(où dans un fichier texte avec l'extention .REG et tu DblClique dessus):
[HKEY_CLASSES_ROOT\Directory\shell\cmd]
@="Ouvre une Fenêtre de Commande ici"
[HKEY_CLASSES_ROOT\Directory\shell\cmd\command]
@="cmd.exe /k "cd %L""
Et il ne te reste plus qu'a faire un contextuel sur un dossier (dans explorer par Ex.)
et de choisir "Ouvre une Fenêtre de Commande ici" et le tour est joué ...
Pas besoin de programme pour cela un simple fichier text avec ces quatre lignes et tu lui donne l'extention .REG et tu double clique dessus. (même pas besoin de Delphi :-))
Bonne continuation ...
@+
Cirec
21 juil. 2006 à 11:40
Cà se résume à ajouter des clés dans le registre (ou les virer) pour avoir le menu contextuel sur le programme et à :
"ShellExecute(0, 'OPEN', PChar('Cmd.exe'), Nil, PChar(ExtractFilePath(Data2)), SW_SHOW);"