WebBrowserで表示するエクスプローラーでグループ表示化 (ID:151213)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

かなり強引にできないことはないみたいですが、強引すぎますよね。

uses shlobj;

procedure TForm1.Button1Click(Sender: TObject);
var pw:PWideChar;
    path:string;
begin
  getmem(pw,1024);
  try
    ZeroMemory(pw,1024);
    SHGetSpecialFolderPath(handle,pw,CSIDL_PROFILE,false);
    path:=pw;
  finally
    freemem(pw);
  end;
  WebBrowser1.Navigate(path+'\Downloads');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var p:TPoint;
    i:Integer;
begin
  p:=WebBrowser1.ClientToScreen(Point(0,0));
  SetCursorPos(p.X+1,p.Y+80);
  mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);

keybd_event(ord('V'), 0, 0, 0);
  keybd_event(ord('V'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(ord('D'), 0, 0, 0);
  keybd_event(ord('D'), 0, KEYEVENTF_KEYUP, 0);

mouse_event(MOUSEEVENTF_RIGHTDOWN,0,0,0,0);
  mouse_event(MOUSEEVENTF_RIGHTUP,0,0,0,0);

keybd_event(ord('P'), 0, 0, 0);
  keybd_event(ord('P'), 0, KEYEVENTF_KEYUP, 0);
  keybd_event(ord('N'), 0, 0, 0);
  keybd_event(ord('N'), 0, KEYEVENTF_KEYUP, 0);
end;

←解決時は質問者本人がここをチェックしてください。

戻る