如何打开一个文件夹？

[w_sabre]

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

[lxpbuaa]

SelectDirectory

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

[lxpbuaa]

implementation

uses ShellAPI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'explore', 'G:\lxpbuaaSoft', nil, nil, SW_SHOW);
end;

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

[WWWWA]

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

[w_sabre]

OK,OK!