Come aprire Windows Explorer quando faccio clic su un pulsante?

Question

Ho un modulo in un progetto Delphi. C'è un pulsante sul modulo. Quando l'utente fa clic sul pulsante, desidero che apra Esplora risorse.

Quale codice è necessario per raggiungere questo obiettivo?

Answer 1

Prova questa:

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

Avrai bisogno di aggiungere al vostro ShellAPIutilizza clausola.

Answer 2

Costruire su ciò che Mason Wheeler ha detto: si può anche passare in una directory come argomento, per ottenere la finestra per aprire una posizione non predefinita:

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

Ebbene nel caso in cui è necessario selezionare alcune particolare file in Esplora ho la seguente funzione che uso

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

e si può chiamare:

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

EDIT: Come accennato ShellAPI deve essere aggiunto all'elenco usi

Answer 4

Secondo http://msdn.microsoft.com/en-us/library/bb762153%28VS.85%29.aspx, ShellExecute supporta anche il 'esplorare' verb, che 'esplora' una cartella specificata da lpFile, quindi questo dovrebbe funzionare:

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