[FreePascal] Lancer explorer depuis FreePascal

Bonjour,

Je cherche un moyen de lancer l'explorateur de fichier par défaut de l'OS installé (par exemple Explorateur Windows pour Windows, etc...), positionné sur un répertoire précis (par exemple le répertoire en cours d'utilisation de mon programme)

Bonjour !

Je ne peux tenter de répondre que pour la plateforme Windows :

Le chemin par défaut de l'explorateur est donné par la variable d'environnement %SystemRoot%, dont la valeur peut être déterminée par la fonction GetEnvironmentVariable;
Le dossier en cours peut être déterminé par la fonction GetCurrentDirectory;
L'explorateur peut être exécuté par la fonction ExecProcess.

Voici un exemple de code qui fonctionne chez moi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Program EXECEXPLORER;
 
Uses Strings, Windows;
 
Var CheminExplorer : Array [0..MAX_PATH] of Char;
    Buffer : Array [0..MAX_PATH] of Char;    
    CheminLocal : Array [0..MAX_PATH] of Char;
    StartupInfo : tStartupInfo;
    ProcessInformation : tProcessInformation;
 
Begin
  (* Détermination du dossier de l'explorateur *)
  Write('D'#233'termination de la variable d''environnement %SystemRoot% : ');
  if GetEnvironmentVariable('SystemRoot',CheminExplorer,SizeOf(CheminExplorer)) > 0
     then
       begin
         WriteLn(CheminExplorer);
         Write('Ex'#233'cution de Explorer.exe : ');
         (* Détermination du dossier courant *)
         StrCat(CheminExplorer,'\Explorer.exe');
         GetCurrentDirectory(SizeOf(Buffer),Buffer);
         StrCopy(CheminLocal,'"');         
         StrCat(CheminLocal,Buffer);
         StrCat(CheminLocal,'"');         
         (* Structure réglant les propriétés du processus exécuté *)
         FillChar(StartupInfo,SizeOf(StartupInfo),0);
         StartupInfo.cb := SizeOf(StartupInfo);
         (* Structure recevant des infos du nouveau processus *)
         FillChar(ProcessInformation,SizeOf(ProcessInformation),0);
         (* Exécution de l'explorateur *)
         if CreateProcess(CheminExplorer,CheminLocal,
                          Nil,Nil,False,NORMAL_PRIORITY_CLASS,Nil,Nil,
                          StartupInfo,ProcessInformation)
            then
              WriteLn('OK')
            else
              WriteLn('Erreur');
       end  
     else
       WriteLn('Erreur');
  ReadLn;            
End.

Merci pour la solution Windows. Ca marche aussi sous Windows Vista ?

Citation:

Envoyé par franck.thibault

Ca marche aussi sous Windows Vista ?

Ca marche avec toutes les versions antérieures donc il n'y a pas de raison que cela ne marche pas avec Vista.