procedure TForm4.FormCreate(Sender: TObject);
const
screenwidthdev = 1280;
ScreenHeightDev = 960;
var
HTaskbar: HWND;
x,y:integer;
begin
{screenresolution}
scaled := true;
screenwidth:= Screen.width;
screenheigth:= Screen.Height;
if(y <> ScreenHeightDev) or (x <> ScreenwidthDev) then
begin
form4.Height := (form4.ClientHeight* y div ScreenHeightDev) +
form4.Height- form4.ClientHeight;
form4.Width := (form4.ClientWidth * x div ScreenWidthDev) +
form4.Height - form4.ClientHeight;
scaleBy(x,Screenwidthdev);
end;
// Find
handle of TASKBAR
HTaskBar := FindWindow('Shell_TrayWnd', nil);
// Disable the taskbar
EnableWindow(HTaskBar, False);
// Hide the taskbar
ShowWindow(HTaskbar, SW_HIDE);
BorderStyle := bsNone;
Left := 0;
Top := 0;
Height := Screen.Height;
Width := Screen.Width;
form4.color:=clblack;
end;