بستن پنجره پوشه باز شده

[mbshareat]

سلام
من تصویر حافظه رو می گیرم و با فرمت jpg ذخیره می کنم.بعد پوشه تصاویر رو نمایش میدم.اگر پوشه از قبل باز نباشه می تونم با ShellExecute فایل تصویر رو هم در حالت انتخاب قرار بدم.اما اگر پوشه از قبل باز باشه با ShellExecute به اون روش که بلدم نمیشه.
در هر صورت سه ثانیه طول میکشه که پنجره فایل رو به انتهای فایلها اضافه کنه.
گفتم پنجره رو ببندم.اما چند راه رو امتحان کردم هیچیک جواب نداد:

var

  H:THandle;

begin

  H:=FindWindow('CabinetWClass','Boot');

  if H<>0 then

  Begin

    ShowMessage('Found!');

    CloseWindow(H);

    DestroyWindow(H);

    ShellExecute(H,'Close','Explorer','Boot','',SW_Hid  e);

    ShellExecute(H,'Close','Boot','','',SW_Hide);

    SendMessage(H,WM_Close,0,0);

  End;

end;

کسی راهی سراغ داره؟