delphi ShellExecute 打开文件夹

单元 shellapi

ShellExecute(Handle, 'open', 'Explorer.exe', PChar(GetCurrentDir), nil, SW_NORMAL);