ShellExecute 打开 一个 盘符(光驱Z:) 如何模拟F5刷新 一下 z盘 ？

Question

z:盘 是光驱盘 当z装载镜像文件后 打开ShellExecute(Handle, 'open', pchar('z:\'), nil, nil, SW_MAXIMIZE);发现 标题(没有卷标) 和 地址栏没有内容  键盘f5 刷新一下就都有了 注意 是键盘  F5  不是 右键-》刷新菜单 我用以下方法 不行
if not AppActivate('Z:\') then
      exit;    SendKeys(pchar('{F5}'), False);

Answer 1

如何   模拟  F5  刷新 所有  windows 活动窗口  主要是 explorer.exe  浏览器 ?

Answer 2

SendMessage(FindWindow('ExploreWClass', nil), WM_CHAR, VK_F5, 0);

Answer 3

'ExploreWClass'  是 所有 explorer.exe  的 父类吧  当前我打开了 几个 盘  如  驱动盘 z:  里面有镜像文件  执行了 没有效果呀 ！

Answer 4

var  pt:HWND;
begin  pt:=FindWindow('CabinetWClass', nil);   // 怎么我这里的类名是这个 'ExploreWClass'返回0
  ShowMessage(IntToStr(pt));  SendMessage(FindWindow('CabinetWClass', nil), WM_CHAR, VK_F5, 0);  // 这个没有效果 end;