Slå 'active desktop' fra?

Tags:    delphi penge

Denne kode checker om 'active desktop' er slået til.

Kan den ændres, så den slår 'active desktop' fra, når det er den indstilling jeg ønsker?
Eller hvordan kan det gøres?

function IsActiveDeskTopOn: Boolean;
var
h: hWnd;
begin
h := FindWindow('Progman', nil);
h := FindWindowEx(h, 0,
'SHELLDLL_DefView', nil);
h := FindWindowEx(h, 0,
'Internet Explorer_Server', nil);
Result := h <> 0;
end;



jensk



t