Webbrowserのアイコン表示の名前の変更と表示の変更 (ID：42566)

名前

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

本文

あさんありがとうございました。
質問１：は完動です。
質問２はやや完動です。
ご指摘のサイトの例ではアイコンが消えないため、やや不完全です。
上のコメント部分です。
他のサイトで見つけたのがありまして、それはほぼ正常に作動します。
出来れば、windows７から見かけた特大のアイコンがあれば言うこと無しですが。コンスタントをめくらめっぽうやってみましたが当たらないです。

procedure TForm1.mSamnaileClick(Sender: TObject);
{var
 h : HWND ;
 GWLSTYLE : Longint;
 LVS : Word;
begin

if Sender=mSamnaile then LVS := LVS_ICON
    else
    if Sender=mTitle then  LVS :=LVS_REPORT
    else
    if Sender=mIcon then  LVS := LVS_SMALLICON
    else
    if Sender=mList then  LVS := LVS_LIST
    else
    if Sender=mReport then LVS:= LVS_TYPEMASK;

h := FindWindowEx(WebBrowser1.Handle , 0, 'SHELLDLL_DefView', nil);
  h := FindWindowEx(h, 0, 'SysListView32', nil);
  GWLSTYLE := GetWindowLong(h,GWL_STYLE);
  GWLSTYLE := GWLSTYLE and (not LVS_TYPEMASK);
  GWLSTYLE := GWLSTYLE or LVS ;
  SetWindowLong(h,GWL_STYLE,GWLSTYLE );
}
const
  SHVIEW_Default    = 0;
  SHVIEW_ICON      = $7029;
  SHVIEW_LIST      = $702B;
  SHVIEW_REPORT    = $702C;
  SHVIEW_THUMBNAIL = $702D;
  SHVIEW_TILE      = $702E;
  SHVIEW_SLIDE     = $702F;
var
    AViewStyle : Integer;
begin
    if Sender=mSamnaile then begin
     AViewStyle := SHVIEW_THUMBNAIL;
    end else
    if Sender=mTile then begin
      AViewStyle := SHVIEW_TILE;
    end else
    if Sender=mIcon then begin
      AViewStyle := SHVIEW_ICON;
    end else
    if Sender=mList then begin
      AViewStyle := SHVIEW_LIST;
    end else
    if Sender=mReport then begin
     AViewStyle := SHVIEW_REPORT;
    end;
    if Sender=mDefault then begin
     AViewStyle := SHVIEW_Default;
    end;

SendMessage(Webbrowser1.Handle,WM_COMMAND,AViewStyle,0);
end;

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

戻る