Die Windows-Startschaltfläche ausblenden

Die Windows-Startschaltfläche ausblenden

Die Windows-Startschaltfläche ausblenden : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel beschreibt, wie die Schaltfläche 'Start' in Windows ausgeblendet.
Prozedur hideStartbutton(visi:boolean);
Var
Tray, Kind: hWnd;
C: Array [0..127] char;
S: String;
beginnen
Fach: = FindWindow ('Shell_TrayWnd', NIL);
Kind: = GetWindow (Tray, GW_CHILD);
während Kind <> 0 tun
beginnen
Wenn GetClassName (Kind, C, SizeOf(C)) > 0 dann
beginnen
S: = StrPAS(C);
Wenn Großbuchstaben (S) = 'BUTTON' then
beginnen
Startbutton_handle: = Kind;
Wenn Visi dann ShowWindow (Kind 1) sonst ShowWindow (Kind, 0);
Ende;
Ende;
Kind: = GetWindow (Kind, GW_HWNDNEXT);
Ende;
Ende;