Полноэкранное приложение

[rutony]

Помогите, никак не могу сделать. Брал примеры с вики, с гугла, ничего не работает. Максимум что получается это убрать панель задач и сип. Но форма ни в какую не хочет разварачиваться на весь экран.
Панель и сип убираю так:

Код: Выделить всё

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

[Mr.Smart]

LCL?
Смотрите в сторону KOL.
За одно и экзешник будет меньше и глюков поменьше.

[rutony]

LCL
К сожалению поздно, программа уже написана...
Да и нужны визуальные компоненты которых в KOL...
Опять же sqlite3