Symbole auf dem Desktop ausblenden

Symbole auf dem Desktop ausblenden

Symbole auf dem Desktop ausblenden : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel beschreibt, wie Sie alle Symbole auf dem Desktop ausblenden.
var
DesktopWnd: HWND;
Prozedur TForm1.Button1Click(Sender: TObject);
beginnen
DesktopWnd: = FindWindow ('Progman', 'Program Manager');
Wenn DesktopWnd > 0 dann beginnen
DesktopWnd: = FindWindowEx (DesktopWnd, 0, 'SHELLDLL_DefView', Nil);
Wenn DesktopWnd > 0 dann
DesktopWnd: = FindWindowEx (DesktopWnd, 0, 'SysListView32', null);
Ende;
Wenn DesktopWnd = 0 then
ShowMessage ('Fehler - konnte nicht gefunden Schreibtisch')
sonst
ShowWindow (DesktopWnd, SW_HIDE);
Ende;