Q&A

  • Tweak UI 에 있는 바탕화면 Icon 투명하게 하는거 얼케해요?
Tweak 플그램 보믄, 바탕화면 아이콘이 뒷배경에 투명하게 나오도록 하는 기능있잖아요.. 이런건 얼케한느거죠? Api가 잇는거 같진 않고.. registry 셋팅인가? 이런 유틸기능에 대한 고수님들의 조언 부탁드립니다.

꾸뽁 (_ _)..

ps. 즐프 & 즐타
2  COMMENTS
  • Profile
    최용일 2003.02.13 20:36
    안녕하세요. 최용일입니다.

    아래와 같이 해보세요... uses절에 CommCtrl유닛 추가시키고요...

    procedure TransparentDesktopIcon;
    var
        ProgramWnd, DefViewWnd, DesktopWnd: THandle;
    begin
        ProgramWnd := FindWindow(PChar('Progman'), PChar('Program Manager'));
        DefViewWnd := FindWindowEx(ProgramWnd, 0, PChar('SHELLDLL_DefView'), nil);
        DesktopWnd := FindWindowEx(DefViewWnd, 0, PChar('SysListView32'), nil);

        ListView_SetTextBkColor(DesktopWnd, MAXDWORD);
        ListView_RedrawItems(DesktopWnd, 0, Pred(ListView_GetItemCount(DesktopWnd)));
        UpdateWindow(DesktopWnd);
    end;


    procedure TransparentDesktopIcon(ForegroundColor, BackgroundColor: TColor);
    var
        ProgramWnd, DefViewWnd, DesktopWnd: THandle;
    begin
        ProgramWnd := FindWindow(PChar('Progman'), PChar('Program Manager'));
        DefViewWnd := FindWindowEx(ProgramWnd, 0, PChar('SHELLDLL_DefView'), nil);
        DesktopWnd := FindWindowEx(DefViewWnd, 0, PChar('SysListView32'), nil);

        ListView_SetTextColor(Desktop, ForegroundColor);
        ListView_SetTextBkColor(Desktop, BackgroundColor);
        ListView_RedrawItems(Desktop, 0, Pred(ListView_GetItemCount(Desktop)));
        UpdateWindow(DesktopWnd);
    end;

    ^^ 항상 즐코하세요...

  • Profile
    KDDG_BaSTaD 2003.02.14 01:50
    바탕화면도 윈도우.. .. 따라서.. Transparent로 Update하믄.. 아햐햐햐햣 ^^;
    역시. .내공이 부족한 .. (_ _) 감솨욤...