Bonjour
 
Je me suis remis à programmer en pascal depuis peu avec lazarus sous debian. (À L'époque où je programmais il n'y avait pas encore de turbopascal )
 
J'ai un de mes programmes qui intéresse un collègue qui est sous windows
Je porte donc mon programme sous win mais il me reste deux ou trois choses à régler  
 
-> 1) Comment télécharger un fichier en pascal, J'ai beaucoup de mal à trouver l'info car je tombe toujours sur téléchager lazarus ou delphi.  
Je souhaite en effet sur le clic d'un bouton télécharger l'executable (qui est dans un .zip) de gnuplot  qui se trouve ici http://puzzle.dl.sourceforge.net/s [...] 4win32.zip
(et pour dézipper ce fichier que faut il utiliser )
 
N'ayant pas windows j'ai des questions sur cet os
-> 2) Comment appeler le lecteur d'image png par defaut
sous xp j'appelle rundll32.exe c:\windows\system32\shimgvw.dll,imageview_fullscreen
mais sous 98 ? sous vista?  sous xp64?   sous vista64?  (je ne sais même pas si xp64bits existe)    
 
-> 3) Avez vous une procédure pour réconnaitre win98, xp32 xp64 vista32 vista64 ?  
Je plaide coupable pour cette question car je n'ai pas encore cherché.
 
Merci de m'aider.

Pour télécharger tu peux faire ca avec URLDownloadToFile()  
 
Pour les png avec ShellExecute()  

Merci  pour ta réponse
 
Je viens de trouver ceci  
http://lazforum-fr.tuxfamily.org/index.php?topic=255.0  
Qui correspond à ce que je cherche.
J'ai compilé indy  et tout marche au poil
 
Je regarderai quand même URLDownloadToFile()  

Effectivement tu peux faire ca avec Indy , je pensais que tu voulais pas trop installer des trucs .

Je réponds un peu en retard, mais bon, au cas où...

Sous Windows à partir du moment où une extension est liée à un programme, il suffit d'exécuter le fichier et il s'ouvre avec le programme par défaut justement.

Il faut voir Win32Platform et Win32MajorVersion/Win32MinorVersion,
ex :

 IsWindowsNT := Win32Platform = VER_PLATFORM_WIN32_NT;
  IsWindows2000 := (IsWindowsNT) and (Win32MajorVersion > 4);
  IsWindowsXP := (IsWindowsNT) and (((Win32MajorVersion = 5) and (Win32MinorVersion >= 1)) or (Win32MajorVersion > 5));
  IsWindowsVista := (IsWindowsNT) and (Win32MajorVersion > 5);

etc.
(ici c'est dans le sens "IsAtLeast..." )
Pour le 64bits, aucune idée...