Unit zum sperren verschiedener Systemfunktionen

[toms]

Hi,

zu:

ShowWindowsButton, HideWindowsButton

Diese Funktionen machen eigentlich nicht das, was man von ihrer Beschreibung her erwartet (Sie deaktiveren den Button anstatt zu verstecken/wieder zeigen).
Entweder benennst du diese Funktionen in z.B EnableWindowsButton
um oder schreibst so was:

Code:

procedure ShowWindowsButton; 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(True)); 
end;

Code:

procedure HideWindowsButton; 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(False)); 
end;

Oder in einer Funktion:

Code:

procedure ShowWindowsButton(bValue: Boolean); 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(bValue)); 
end;