Панель и сип убираю так:
- Код: Выделить всё
const
SW_HIDE = $0000;
SW_SHOW = $0001;
Var
hTaskBar,hkeyboard: thandle;
SW: INTEGER;
begin
if showit then begin
sw:=SW_SHOW
end ELSE begin
SW:=SW_HIDE;
end;
hTaskBar := FindWindow('HHTaskBar','');
if htaskBar > 0 then
ShowWindow(hTaskBar,SW);
hkeyboard:=FindWindow('menu_worker','');
if hkeyboard >0 then
ShowWindow(hkeyboard,SW);
Выставление размера формы без результата, она сразу же возвращается под размер панели и сип, как будто они на месте.
- Код: Выделить всё
movewindow(Form1.Handle,0,0,240,320,True);
Функция из aygshell, вообще не отрабатывает.
И еще как называется эта панель и как ее тоже убрать? (скрин с эмулятора, но и на терминалах тоже не работает как надо)
http://postimage.org/image/6lz8pa8mv/
Может кто то скинуть рабочий пример под WinCE 5.0
