Too bad for the bottom menubar but I'll live with it.
I'm almost done with my fullscreen issue : have a look at the two attached screenshoots :
The first picture display my form with it's top taskbar.
The second picture is the same form but with the taskbar disabled (see code bellow).
procedure TfrmPrincipale.RemoveTaskbar(AFullScreen: Boolean);
const
MENU_HEIGHT = 20;
var
rc: TRect;
begin
if AFullScreen then
begin
GetWindowRect(Handle, @rc);
SHFullScreen(Handle, SHFS_HIDETASKBAR);
MoveWindow(Handle,
rc.left,
rc.top-MENU_HEIGHT,
rc.right,
rc.bottom+MENU_HEIGHT,
TRUE);
end
else
begin
GetWindowRect(Handle, @rc);
SHFullScreen(Handle, SHFS_SHOWTASKBAR);
MoveWindow(Handle,
rc.left,
rc.top+MENU_HEIGHT,
rc.right,
rc.bottom-MENU_HEIGHT,
TRUE);
end;
end;
GetWindowRect(Handle, @rc) retreive this informations :
rc.left : 0
rc.top : 20
rc.right : 240
rc.bottom : 240