İbrahim Çoban

procedure Tform1.TamEkran;
begin
  SHFullScreen(Form.Handle, SHFS_HIDETASKBAR or SHFS_HIDESTARTICON or SHFS_HIDESIPBUTTON);
  DestroyWindow(SHFindMenuBar(Form.Handle));
  ShowWindow(findwindow(‘HHTaskBar’, ”), SW_HIDE); // burası wince için.
  MoveWindow(Form.Handle, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), True);
  MoveWindow(Form.Handle, 0, 0, GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN), True);
  Form.HasBorder := False;
end;

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
form.CreateWindow;
TamEkran;
end;

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
if CePlatform=cpWinCE then    ShowWindow(findwindow(‘HHTaskBar’,”),SW_SHOWNORMAL);

end;