Dir2dos - pour ouvrir cmd.exe directement sur le répertoire utile.

Télécharger le projet
Commenter

Description

Cette mini-application sert depuis l'Explorateur Windows à ouvrir une fenêtre de commande MsDOS directement dans le répertoire concerné.
  • L'interface utilisateur sert à Activer/désactiver la fonction Dir2DOS
  • Une fois activée, un click-droit sur un fichier, raccourci ou répertoire propose d'ouvrir la ligne de commande
  • La fonction renvoie au programme Dir2DOS qui interprète le chemin et déclenche le programme Cmd.exe

sur le chemin désigné.

Le tout travaille avec la base de registre... aussi Dir2DOS ne fonctionnera pas pour les comptes sans privilèges suffisants.

Ci-après, le code d'interprétation de la fonction Dir2DOS (le code de l'interface est dans une autre unité) ...

Source / Exemple : 


program Dir2DOS;

// =============================================================================
//   Dir2DOS
//
//   Ouverture d'une fenêtre 'Commande MsDOS' sur le chemin désigné par
//   une fenêtre ouverte de l'Explorateur Windows.
//
//   Lionel T. @ www.2Ears.net
//   Juillet 2006
//
// =============================================================================

uses
  Windows,
  Forms,
  ShellApi,
  SysUtils,
  Dir2DosCode in 'Dir2DosCode.pas' {Dir2DOSWindows};

var
  Data1,
  Data2       : String;

{$R *.RES}

// Processus premier :
// Active l'ouverture d'une fenêtre 'Cmd.exe' si '-dir' est en option commande,
// sinon, met en oeuvre la fiche 'Dir2DOSWindows' de commande.

begin
  // Vérification qu'une seule instance de Dir2DOS est active (/Registre)
  SetLastError(NO_ERROR);
  CreateMutex (nil, False, 'Dir2DOS');
  if GetLastError = ERROR_ALREADY_EXISTS then Exit;

  // Initialisation et traîtement des paramètres de la ligne de commande Reg.
  Application.Initialize;
  Application.Title := 'Dir2DOS';

  Data1 := ParamStr(1);

  if Data1 <> '-dir' then begin
     Application.CreateForm(TDir2DOSWindows, Dir2DOSWindows);
     Application.Run;
     end

  else begin
     Data2 := ParamStr(2);
     ShellExecute(0, 'OPEN', PChar('Cmd.exe'), Nil, PChar(ExtractFilePath(Data2)), SW_SHOW);
  end;

end.

Conclusion :


Il n'y aura pas de mises-à-jour de ce programme...

l'exécutable sera bientôt disponible sur mon web...

le code a été compilé sur Delphi v2.0...

et testé sur Win NT et XP.

A la prochaine :)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (GenEars)