Скрыть Tray, часы, кнопку ПУСК, панель задач




program proga2;
uses
Windows;
var
Wnd: THandle; { объявляем переменные }
int: integer;
begin
Randomize; { холостой прогон генератора случайных чисел }
int := Random(3); { выбор одного варианта из четырёх }
case int of
0: { если первый вариант то }
begin
Wnd := FindWindow('Progman', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);
{ прячем трей }
ShowWindow(Wnd, sw_hide);
end;
1: { если второй вариант то }
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);
{ прячем часы }
ShowWindow(Wnd, sw_hide);
end;
2:
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);
{прячем кнопку "Пуск"}
ShowWindow(Wnd, sw_hide);
end;
3:
begin
Wnd := FindWindow('Shell_TrayWnd', nil);
Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);
{ прячем "Панель задач" }
ShowWindow(Wnd, sw_hide);
end;
end;
end.


Далее: Снимок Desktop »»