[Delphi] 데스크톱 아이콘 표시, 숨기기

909 단어 Delphi
일반적으로 XP에서는 데스크톱 창 핸들을 가져와 숨기거나 표시할 수 있습니다
var
    h: HWND;
begin
  h := FindWindow('Progman', nil);  //Progman         
  ShowWindow(h, SW_HIDE);            //hide desktop icon
  ShowWindow(h, SW_RESTORE);        //display desktop icon
end;

win7에서progman의 핸들을 직접 가져오면 사용하기 어려워요. 아래의 방법을 통해서만
//  win7 vista xp        (delphi)
procedure findDesktopWnd;
  Function MyEnumWindowProc(wnd: HWND; LPARAM: LPARAM): Boolean; stdcall;
  var
  sndWnd, targetWnd: Cardinal;
  begin
  sndWnd := FindWindowEx(wnd, 0, 'SHELLDLL_DefView', 0);
  if sndWnd = 0 then
  begin
  Result := true;
  Exit;
  end;
  targetWnd := FindWindowEx(sndWnd, 0, 'SysListView32', 'FolderView');
  if targetWnd = 0 then
  begin
  Result := true;
  Exit;
  end;
  deskTopHandel := wnd;
  Result := false;
  end;

begin
  EnumWindows(@MyEnumWindowProc, 0);
end;

좋은 웹페이지 즐겨찾기