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;