Taskbarı Kapatmak
Formunuza bir Buton (Button1) ekleyin ve aşağıdaki kodu OnClick Eventine yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
htaskbar:HWND;
begin
hTaskBar := FindWindow('Shell_TrayWnd', nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowMessage('Taskbar Gizlendi!');
ShowWindow(hTaskBar, SW_SHOW);
end;
Yapılan işlem FindWindow Api'si ile taskbar'ı bulmak ve SW_HIDE mesajı göndererek taskbarı kapatmak.
Formunuza bir Buton (Button1) ekleyin ve aşağıdaki kodu OnClick Eventine yazın.
procedure TForm1.Button1Click(Sender: TObject);
var
htaskbar:HWND;
begin
hTaskBar := FindWindow('Shell_TrayWnd', nil);
ShowWindow(hTaskBar, SW_HIDE);
ShowMessage('Taskbar Gizlendi!');
ShowWindow(hTaskBar, SW_SHOW);
end;
Yapılan işlem FindWindow Api'si ile taskbar'ı bulmak ve SW_HIDE mesajı göndererek taskbarı kapatmak.