Discussion :

[cincap]

Bonjour,

J'aimerai lancer avec une commande Delphi, l'aperçu Windows avec mon fichier image.

J'utilise ceci :

Code :

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

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

J'obtiens bien l'ouverture de l'aperçu Windows mais sans mon fichier photo.

Par le bouton démarrer et Exécuter, je tape ceci :

rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen C:\Data\Delphi\Apercu image\cauetetcindy.jpg

Et cela fonctionne.

Quelqu'un a t'il une solution pour Delphi avec ShellExecute.

Merci,

Cincap

[sjrd]

Le dernier paramètre chaîne de ShellExecute est le répertoire courant ! Pas un paramètre supplémentaire.

Tu dois mettre tous les paramètres dans l'avant-dernier paramètre chaîne, en les séparant par des espaces, et en les encadrant éventuellement de guillements doubles ".

[cincap]

Merci d'avoir répondu si vite, mais j'avais déjà essayé et j'obtiens une erreur de type incompatibles Integer et Pchar.

Code :

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

ShellExecute(0,'open','rundll32.exe','C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen, C:\Data\Delphi\Apercu image\cauetetcindy.jpg',SW_SHOW);

Essai aussi avec "

@+

[sjrd]

Et comme ça :

Code :

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

1
2
3
4
ShellExecute(0, 'open', 'rundll32.exe',
  'C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen '+
  '"C:\Data\Delphi\Apercu image\cauetetcindy.jpg"',
  nil, SW_SHOW);

As-tu déjà programmé dans un autre langage, auparavant ? Je serais tenté de dire que oui, au vu de ce que tu codes. Et je pencherais même pour du VB.
J'ai raison ?

[cincap]

Ok pas de problème à la compilation mais à l'exécution rien pas d'aperçu image et donc pas de photos.

Avec Winexec pas de problème mais j'aurai bien aimé le faire avec ShellExecute.

Sinon, je ne joue qu'avec Delphi depuis ma prépension car c'est plutôt l'électronique et le droit qui me passionnait.

@+

[Qwazerty]

Salut
Et comme ca

Code :

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

ShellExecute(0,'open','rundll32.exe','C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen C:\essai.jpg',nil,SW_SHOW);

A++
Qwaz

[cincap]

Bonsoir à toutes et à tous,

@ Qwazerty, très très fort mon ami, cela fonctionne.

J'avais aussi essayé en plaçant directement la photo dans le même dossier que le viewer mais sans résultat.

Grand merci comme quoi, la virgule ou le + me faisait des caprices.

@+,

Cincap

[cincap]

Excusez moi, mais avec un TopenDialog cela ne fonctionne pas même en mettant une variable String

Code :

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

1
2
3
4
5
6
7
8
9
10
var
fName: string;
begin
  if op1.Execute then begin
  fname:= 'C:\Data\Delphi\Apercu image\cauetetcindy.jpg' ;
 
  ShellExecute(0,'open','rundll32.exe',
  'C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen fname',Nil, SW_SHOW);
end;
 end;

Uniquement à titre d'info pour ne pas mourir idiot.

@+,

Cincap

[cincap]

Il faut lire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
fName: string;
begin
  if op1.Execute then begin
  fname:=op1.FileName ;
 
  ShellExecute(0,'open','rundll32.exe',
  'C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen fname',Nil, SW_SHOW);
end;
end;

[Qwazerty]

Re
C'est normal regarde ce que tu passe en paramettre, tu passe 'fname' or fname ca n'est pas fname, c'est comme si tu mettais

Code :

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

'Text1.text' := 'a'

Il faut faire comme ca

Code :

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

1
2
3
     fname := 'c:\essai.jpg';
     fname := 'C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen ' + fname;
ShellExecute(0,'open','rundll32.exe',pchar(fname) ,nil, SW_SHOW);end;

a++
Bonne nuit
Qwaz

[cincap]

Encore merci por tout et pour cette leçon de logique.

@+,

Cincap