Comment ouvrir Windows Explorer quand je clique sur un bouton?

Question

J'ai un formulaire dans un projet Delphi. Il y a un bouton sur le formulaire. Lorsque l'utilisateur clique sur le bouton, je veux qu'il ouvre Windows Explorer.

De quel code aurai-je besoin pour cela?

Answer 1

Essayez ceci:

ShellExecute(Application.Handle, nil, 'explorer.exe', nil, nil, SW_NORMAL); 

Vous devrez ajouter à votre ShellAPIutilise la clause.

Answer 2

bâtiment sur ce que Mason Wheeler a dit: vous pouvez également passer dans un répertoire comme argument, pour obtenir la fenêtre pour ouvrir à un emplacement par défaut:

uses 
    ShellAPI; 

... 

    ShellExecute(Application.Handle, 
    nil, 
    'explorer.exe', 
    PChar('c:\'), //wherever you want the window to open to 
    nil, 
    SW_NORMAL  //see other possibilities by ctrl+clicking on SW_NORMAL 
    ); 

Answer 3

bien au cas où vous devez sélectionner une fichier particulier dans l'explorateur que j'ai la fonction suivante que j'utilise

procedure SelectFileInExplorer(const Fn: string); 
begin 
    ShellExecute(Application.Handle, 'open', 'explorer.exe', 
    PChar('/select,"' + Fn+'"'), nil, SW_NORMAL); 
end; 

et vous pouvez l'appeler:

SelectFileInExplorer('C:\Windows\notepad.exe'); 

EDIT: Comme mentionné ShellAPI doit être ajouté à votre liste uses

Answer 4

Selon http://msdn.microsoft.com/en-us/library/bb762153%28VS.85%29.aspx, ShellExecute soutient également le verbe « explorer » qui « explore » un dossier spécifié par lpFile, donc cela devrait fonctionner:

ShellExecute(Application.Handle, 'explore', '.', nil, nil, SW_NORMAL);