Open Folder

Uses ShellAPI, Windows, SysUtils;

function OpenFolder(const Folder: string): Boolean;

begin

if SysUtils.FileGetAttr(Folder) and faDirectory = faDirectory then

Result := ShellAPI.ShellExecute(

0, 'open', PChar(Folder), nil, nil, Windows.SW_SHOWNORMAL) > 32

else

Result := False;

end;