[Johny777]

Respin, повесь в событии OnClick кнопки это:

Код:

procedure ExploreDocsFolder(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('Explore', ExpandConstant('{userdocs}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
  //ShellExec('Explore', ExpandConstant('{commondocs}'), '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;