داشتم نا امید می شدم.جواب اینه:
SendMessage(H, WM_SYSCOMMAND,SC_CLOSE,0);
عجیبه اگه پنجره پوشه باز باشه سه ثانیه طول می کشه رفرش بشه.وقتی خودم رفرش رو با برنامه انجام میدم هم طول می کشه.
اما اگر پنجره بسته و باز بشه اصلا طول نمی کشه:
H:=FindWindow('CabinetWClass',PChar(BookNum+'Jpgs' ));
if H<>0 then
Begin
SendMessage(H, WM_SYSCOMMAND,SC_Close,0);
// SendMessage(H, WM_SYSCOMMAND,SC_Restore,0);
// sendMessage(H,WM_KEYDOWN,VK_F5,0);
// CloseWin(H);
//Sleep->æÞÊí äÌÑå ÊÕÇæíÑ ÈÇÒå¡ÈíÝÇíÏå ÈæÏ ÈÑ ÏÇÔÊãÔ
//Sleep(3000);
{ShellExecute(Handle, 'Refresh',Pchar('explorer.exe')
,Pchar('/select,'+JpgDir+'\'+ReverseString(ClipText)+'.jpg' ),'',SW_NORMAL) ;}
//sleep(1000);
ShellExecute(Handle, 'Open',Pchar('explorer.exe')
,Pchar('/select,'+JpgDir+'\'+ReverseString(ClipText)+'.jpg' ),'',SW_NORMAL) ;