DWMAPI

[ZuBy]

Привет Всем!

Вот решил освоить dwmapi windows vista/7.
Интересует: превью-окно, медиа контролы, добавление в меню.
особенно процедуры/функции для установки слежения за областью формы которые будут отображаться в превью.

вот имеется такой код

if DwmCompositionEnabled then
begin
  if Succeeded(DwmRegisterThumbnail(Handle,  
   FindWindow('Progman', nil), PH)) then
  begin
    try
      Props.dwFlags := DWM_TNP_SOURCECLIENTAREAONLY or                                       
           DWM_TNP_VISIBLE or DWM_TNP_RECTDESTINATION;
      Props.fSourceClientAreaOnly := false;
      Props.fVisible := true;
      Props.opacity := 255;
      Props.rcDestination := zmDisplay.ClientRect;
      DwmUpdateThumbnailProperties(PH^, Props);
    except
    end;
  end;
end;

он не работает, вызывает падение программы. Что не так?

Кто может поделится рабочим кодом?

[GunSmoker]

Телепатор подсказывает кривые заголовочники.

[ZuBy]

Сообщение от GunSmoker

Телепатор подсказывает кривые заголовочники.

Delphi XE, Win7

[GunSmoker]

Судя по записи, вы слабо разбираетесь в указателях. PH на что указывает? Есть подозрение, что в космос.

P.S. Привели бы полный код, где были записаны все подготовительные действия и объявления - не было бы этого гадания в день по догадке, а сразу бы дали ответ. Почему из вас клещами всё надо вытягивать?

[ZuBy]

var
  PH: PHTHUMBNAIL;
  Props: DWM_THUMBNAIL_PROPERTIES;
begin
if DwmCompositionEnabled then
begin
  if Succeeded(DwmRegisterThumbnail(Handle,  
   FindWindow('Progman', nil), PH)) then
  begin
    try
      Props.dwFlags := DWM_TNP_SOURCECLIENTAREAONLY or                                       
           DWM_TNP_VISIBLE or DWM_TNP_RECTDESTINATION;
      Props.fSourceClientAreaOnly := false;
      Props.fVisible := true;
      Props.opacity := 255;
      Props.rcDestination := zmDisplay.ClientRect;
      DwmUpdateThumbnailProperties(PH^, Props);
    except
    end;
  end;
end;

P.S. Переписан с MSDN
http://msdn.microsoft.com/en-us/libr...41(VS.85).aspx

[GunSmoker]

Переписан, да криво.

Мат-часть.

var
  PH: HTHUMBNAIL; 
  Props: DWM_THUMBNAIL_PROPERTIES;
  Wnd: HWND;
begin
  if DwmCompositionEnabled then
  begin
    Wnd := FindWindow('Progman', nil);
    OleCheck(DwmRegisterThumbnail(Handle, Wnd, @PH));

    Props.dwFlags := DWM_TNP_SOURCECLIENTAREAONLY or                                       
         DWM_TNP_VISIBLE or DWM_TNP_RECTDESTINATION;
    Props.fSourceClientAreaOnly := false;
    Props.fVisible := true;
    Props.opacity := 255;
    Props.rcDestination := zmDisplay.ClientRect;
    OleCheck(DwmUpdateThumbnailProperties(PH, Props));
  end;
end;

Одну ошибку исправил. Остальные, если они есть, искать лень.

[ZuBy]

GunSmoker, спасибо. Домой приду проверю...