Masquage des icônes sur le bureau

Masquage des icones sur le bureau

Masquage des icones sur le bureau : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article explique comment masquer toutes les icones sur le bureau.
var
& nbsp & nbsp DesktopWnd : HWND
procedure TForm1.Button1Click(Sender: TObject)
begin
& nbsp & nbsp DesktopWnd := FindWindow('Programme', 'Gestionnaire de Programme')
& nbsp & nbsp si DesktopWnd > 0 then begin
& ! & ! & ! & nbsp DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SHELLDLL_DefView', nil)
& ! & ! & ! & nbsp si DesktopWnd > 0, alors
& ! & ! & ! & ! & ! & nbsp DesktopWnd := FindWindowEx(DesktopWnd, 0, 'SysListView32', nil)
& nbsp & nbsp fin
& nbsp & nbsp si DesktopWnd = 0, alors
& ! & ! & ! & nbsp ShowMessage('Erreur - ne pouvait pas trouver de bureau')
& nbsp & nbsp else
& ! & ! & ! & nbsp ShowWindow(DesktopWnd, SW_HIDE)
fin