program TransDsk;

uses
  Windows, CommCtrl;

{$R *.res}

var
  Window: HWND;

begin

  // This code was taken from Delphi32.com

  // Find the right window with 3 calls 
  Window := FindWindow('Progman', 'Program Manager'); 
  // FindWindowEx is used to find a child window 
  Window := FindWindowEx(Window, HWND(nil), 'SHELLDLL_DefView', ''); 
  // SysListView32 is the desktop icon list view 
  Window := FindWindowEx(Window, HWND(nil), 'SysListView32', ''); 
  // Use the macro to set the background color to clear
  ListView_SetTextBkColor(Window, $ffffffff);
  // Now send a redraw to the icons to redraw the new color
  ListView_RedrawItems(Window, 0, ListView_GetItemCount(Window) - 1);
  // Force the redraw to take effect immediatly
  UpdateWindow(Window);

end.