Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  It is possible to close a common dialog shown by TCommonDialog.Execute 
  (or its overriddens) method while it is visible and application handles messages. 
  The solution is: 

  Es ist moglich einen TCommonDialog der mit TCommonDialog.Execute geoffnet wurde, 
  automatisch zu schliessen wahrend er sichtbar ist. Die Losung ist: 
}


 SendMessage(GetParent(OpenDialog1.Handle), WM_SYSCOMMAND, SC_CLOSE, 0);