Associer une extension à un nom de fichier

Ouvrir avec ...

mardi 4 décembre 2007, par bluegyn_spip

Dans cet exemple tous les fichiers nommés :

.V2

s’ouvriront avec le programme :

V2Viewer.exe

Ajouter la librairie Registry à la clause USES de la fiche

with TRegistry.create do begin

try

  RootKey := HKEY_CLASSES_ROOT;



  if openKey('\.v2',True) = False then exit;

  WriteString('','V2Viewer');



  if OpenKey('\V2Viewer',True) = false then exit;

  WriteString ('','Lecture DICOM-V2');



  if OpenKey('\V2Viewer\Shell\Open\Command',True) = False then exit;

  WriteString('','"'+Application.ExeName+'" "%1"');



finally

  Free;

end; // Try

end; // With

Explications

Dans la Branche HKEY_CLASSES_ROOT

Une clef .V2 est créée dans la base de registre

Cette clef pointe sur l’entrée V2Viewer

Une clef V2Viewer est créée dans la base de registre

A cette clef est attachée l’arborisation

- Shell

- - Open

- - - Command

Qui pointe vers le programme

V2Viewer

Avec comme Argument %1 qui transmettra au programme le nom du fichier appelant.

ATTENTION aux ’double guillemets double sous Windows

’ " ’ + Application.ExeName+’ " "%1" ’

Associer une extension à un nom de fichier

Explications

Manip’s

Dans la même rubrique

Mots-clés