Хендл рабочего стола

[Михаил Юрьевич]

подскажите как узнать хендл рабочего стола,делаю так

function GetDesktopListViewHandle: THandle;
var
  S: string;
begin
  Result := FindWindow('ProgMan', nil);
  Result := GetWindow(Result, GW_CHILD);
  Result := GetWindow(Result, GW_CHILD);
  SetLength(S, 40);
  GetClassName(Result, PChar(S), 39);
  if PChar(S) <> 'SysListView32' then
    Result := 0;
end;

Но хендл не совпадает с тем что показывает программа InqSoft Windows Scaner

[Человек_Борща]

GetDC() - не?

[Михаил Юрьевич]

Чем это можно обьяснить?
при запуске программы с таким кодом Avast блокирует, и в карантин,и пишет что это троян.
handle:=findwindow('SysListView32', 'FolderView');