ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Приветствую всех.
Нужна помощь, надеюсь на ее...

1) Как сделать, чтобы форму нельзя было свернуть ? (например, чтобы нельзя было закрыть я писал :
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False
end;
А как , чтоб нельзя было свернуть ?

2) Как заблокировать клавиатуру и мышь ? ( не работает это :
var
Form1: TForm1;
Dummy: integer = 0;
OldKbHook: HHook = 0;

implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
window:THandle;
a: TRegistry;
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_MOUSE, @KbHook, HInstance, 0);
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
)


3) Почему непрячетются панель задач, пуск, часы ? В чем ошибка ?
procedure TForm1.FormCreate(Sender: TObject);
var
window:THandle;
begin
window := FindWindow('Shell_TrayWnd', nil);
window := FindWindowEx(window, HWND(0),'TrayNotifyWnd', nil);
window := FindWindowEx(window, HWND(0),'TrayClockWClass', nil);
ShowWindow(window, SW_HIde);

begin
window := FindWindow('Shell_TrayWnd', nil);
window := FindWindowEx(window, HWND(0),'Button', nil);
ShowWindow(window, SW_HIde);
begin
window := FindWindow('Shell_TrayWnd', nil);
window := FindWindowEx(window, HWND(0),'TrayNotifyWnd', nil);
ShowWindow(window, SW_HIDe);

4) Моя цель ознакомительно-образовательная, не кидайтесь, просто help и все.