如何打开一个文件夹？

Question

如何打开一个文件夹？就像FlashGet那个“打开文件所在目录”的样子。

Answer 1

SelectDirectory————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

implementationuses ShellAPI;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'explore', 'G:\lxpbuaaSoft', nil, nil, SW_SHOW);
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 3

ShellExecute(Handle, 'explore', PChar('c:\windows)',nil, nil, SW_SHOW);