桌面图标用小图标方式显示

Neil J. Rubenking <jrubenki@SPAM-B-GONE@mother.com> program Test;
{$APPTYPE CONSOLE}
USES Windows, Messages, commctrl;
function GetLVHan : HWnd;
// Get the handle of the desktop listview
begin
Result := FindWindowEx(FindWindowEx(FindWindowEx(
GetDesktopWindow, 0, 'Progman', nil), 0,
'SHELLDLL_DefView', nil), 0, 'SysListView32', nil);
end;
function ActiveDesktop : Boolean;
begin
Result := FindWindowEx(FindWindowEx(FindWindowEx(
GetDesktopWindow, 0, 'Progman', nil), 0,
'SHELLDLL_DefView', nil), 0, 'Internet Explorer_Server',
nil) <> 0;
end;
procedure SetListviewStyleSmall(H : HWnd);
VAR S : StyleStruct;
begin
S.StyleOld := GetWindowLong(H, GWL_STYLE);
S.StyleNew := S.StyleOld AND NOT LVS_TYPEMASK;
S.StyleNew := S.StyleNew OR LVS_ICON;
SetWindowLong(H, GWL_STYLE, S.StyleNew);
SendMessage(H, WM_STYLECHANGED, GWL_STYLE, Integer(@S));
ShowWindow(H, SW_SHOWNORMAL);
end;
begin
IF ActiveDesktop THEN
begin
WriteLn('Turn off Active Desktop first.');
Halt;
end;
SetListViewStyleSmall(GetLVHan);
WriteLn('The desktop listview should now have small icons');
WriteLn('Switch to Active Desktop and watch them disappear');
WriteLn('(to get them back, log off and on again)');
WriteLn;
WriteLn('WHY does this happen? How can it be prevented?');
end.