Aperçu des images et photocopies Windows

Aperçu des images et photocopies Windows - Delphi/Pascal - Programmation

Marsh Posté le 15-08-2007 à 14:39:30    

Bonjour,
 
J'aimerai lancer avec une commande Delphi, l'aperçu Windows avec mon fichier image.
 
J'utilise ceci :
 
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 à t'il une solution pour Delphi.
 
Merci,
 
Max

Reply

Marsh Posté le 15-08-2007 à 14:39:30   

Reply

Marsh Posté le 16-08-2007 à 15:03:33    

Pourquoi t'as mis une virgule dans l'argument sans la commande shellexecute alors que tu l'as pas mise en ligne de commande :??:
Essayes ceci :  

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

Message cité 1 fois
Message édité par rufo le 16-08-2007 à 15:03:57
Reply

Marsh Posté le 16-08-2007 à 15:33:50    

rufo a écrit :

Pourquoi t'as mis une virgule dans l'argument sans la commande shellexecute alors que tu l'as pas mise en ligne de commande :??:
Essayes ceci :  

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



 
Bonjour,
 
Ce serait trop simple, en effet une erreur "Types incompatibles "Integer" et "Pchar" et j'ai déjà essayé pas mal de situations avant de poster.
 
En fait par le bouton Démarrer et Exécuter la commande est :
 
rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_Fullscreen C:\Data\Delphi\Apercu image\cauetetcindy.jpg
 
Sans virgule forcément !
 
A mon avis, avec Shellexecute c'est impossible !
 
Merci,
 
Max

Reply

Marsh Posté le 19-08-2007 à 20:11:43    

@ rufo, tu avais raison mais il manquait Nil.
 
ShellExecute(0,'open','rundll32.exe','C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen C:\Data\Delphi\Apercu image\cauetetcindy.jpg',NIL,SW_SHOW);
 
Encore merci,
 
Max

Reply

Marsh Posté le 20-08-2007 à 09:06:03    

pas de quoi...:)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed