Membuka Folder Dengan Delphi

Bagaimana Cara Membuka Folder dengan Delphi ? Silahkan Simak Coding'y :
...................................
implementation
uses
  ShellApi;
{$R *.dfm}
procedure ShowFolder(strFolder: string);
begin
  ShellExecute(Application.Handle,
    PChar('explore'),
    PChar(strFolder),
    nil,
    nil,
    SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  strFolder = 'C:\Program Files';
begin
  ShowFolder(strFolder);
end;

Sumber