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;