Кнопка Пуск

function StartButton(action:integer):integer;
var
Rgn : hRgn;
begin
case action of
//Спрятать
0:begin
Rgn := CreateRectRgn(0, 0, 0, 0); 
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,
'Button',
nil),
Rgn,true);
end;
//показать
1:begin
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
0,
'Button',
nil),
0,true);
end;
//запретить
2:begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
0,
'Button',
nil),false);
end;
//Разрешить
3:begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 
0,
'Button',
nil),true);
end;
end;
end;