Hide / show all icons on desktop
Hide / show all icons on desktop
|
1 2 3 4 5 6 7 8 9 10 11 |
<span style="font-weight: bold;">procedure</span> TForm1.Button1Click(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-style: italic;">//hide desktop icons</span> <span style="font-weight: bold;">begin</span> ShowWindow(FindWindow(<span style="font-weight: bold;">nil</span>, 'Program Manager'),SW_HIDE); <span style="font-weight: bold;">end</span>; <span style="font-weight: bold;">procedure</span> TForm1.Button2Click(Sender: <span style="font-weight: bold;">TObject</span>); <span style="font-style: italic;">//show desktop icons</span> <span style="font-weight: bold;">begin</span> ShowWindow(FindWindow(<span style="font-weight: bold;">nil</span>, 'Program Manager'),SW_SHOW); <span style="font-weight: bold;">end</span>; |