Discussion :

[hepha1970]

Bonsoir,

Etant occupé de créer un dvd contenant divers drivers et logiciels,
je bute sur le point suivant :

j'aimerai pouvoir simuler l'installation d'un fichier .inf comme si l'utilisateur aurais appliqué un click droit puis installer sur le fichier inf se trouvant dans un repertoire du dvd.

ceci dans le but de ne pas avoir a ouvrir :
demarrer , panneau de config, ajout de matériel et d'ensuite aller chercher le fichier .inf en question.

en ce sens je pensais me tourner vers ceçi:

Code :

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

1
2
 
ShellExecute(handle,'open','rundll32.exe setupapi,InstallHinfSection DefaultInstall 132','drivers\AHCI_v10_3_0_23_XPx86\nvgts.inf','',0);

mais sans succès !
si j'essaye comme ceçi

Code :

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

1
2
3
4
5
6
7
8
 
....
begin
Repertoire := ExtractFilePath(Application.ExeName);
 
ShellExecute(handle,'open','rundll32.exe setupapi,InstallHinfSection DefaultInstall 132',(Repertoire)+'drivers\AHCI_v10_3_0_23_XPx86\nvgts.inf','',0);
.....
.....

j'ai une erreur de paramètres je suppose donc que ma syntaxe n'est pas appropriée !

Auriez-vous l'amabilité de m'expliquer l'erreur et comment la rectifier ?

Merçi

[cincap]

Bonjour à toutes et à tous,

@ Hepha1970, les guillemets sont important à la bonne place.

Voici un exemple qui permet de voir une photo avec l'aperçu image.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  ShellExecute(0,'open','rundll32.exe',
  'C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen C:\Data\Delphi\Apercu image\cauetetcindy.jpg',Nil, SW_SHOW);
end;

Test avec le chemin du fichier image contenu dans un Tedit :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
var
fName: string;
begin
  fname:=edit1.Text; //C:\Data\Delphi\Apercu image\cauetetcindy.jpg
 
  fname :='C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen ' + fname;
ShellExecute(0,'open','rundll32.exe',pchar(fname) ,nil, SW_SHOW);
 end;

@+,

Cincap

[Dr.Who]

shellexecute :
parametre 1 : mettre 0 ou le handle du programme (facultatif, 0 suffit)
parametre 2 : commande (par exemple 'open')
parametre 3 : fichier à éxécuter (peut être jpg, mp3, exe, html, url etc)
parametre 4 : parametres à passer à un fichier exe/com/bat/cmd
parametre 5 : repertoire de travail (facultatif)
parametre 6 : affichage de la commande (constante SW_...)


ce qui donne par exemple :

Code :

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

ShellExecute(0, 'open', 'rundll32.exe', 'paramêtres RundDLL32', nil, SW_SHOW);

ou encore

Code :

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

ShellExecute(0, 'open', 'C:\program files\picasa\PicasaViewer.exe', 'c:\mes documents\mes images\photo.jpg', nil, SW_HIDE);

sinon lire l'aide sur ShellExecute.

[cincap]

@ Hepha1970, tu pourrais exécuter ton fichier avec une fonction comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
uses
   ShellAPI;
 
function InstallINF(const PathName: string; hParent: HWND): Boolean;
var
   instance: HINST;
begin
   instance := ShellExecute(hParent,
     PChar('open'),
     PChar('rundll32.exe'),
     PChar('setupapi,InstallHinfSection DefaultInstall 132 ' + PathName),nil, SW_HIDE) ;
 
   Result := instance > 32;
end;

Utilisation :

Code :

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

1
2
 
 InstallINF('C:\MonFichier.inf', 0) ;

ou :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.BTest1Click(Sender: TObject);
Var
Monfichier : String;
begin
 
 Monfichier := editTest1.text ;  //C:\monFichier.inf
 
 InstallINF(Monfichier, 0) ;   //InstallINF('C:\monFichier.inf', 0) ;
end;

@+,

Cincap

[hepha1970]

Merçi a tous pour vos solutions j'ai donc utilisé la première solution de cincap et maintenant cela répond exactement a mes attente encore merçi a vous