Lazarus+KOL for wince 全屏显示(转)

猫工

1)定义hTaskBar全局变量;
2)在KOLForm1FormCreate和KolFormDestroy过程添加:

var hTaskBar:HANDLE;   [li] [/li]procedure TForm1.KOLForm1FormCreate(Sender: PObj);   [li]begin  [/li]  hTaskBar := findwindow('HHTaskBar','');   [li]  form.Top :=0;  [/li]  form.Left := 0;   [li]  form.Height:=320;  [/li]  form.HasCaption:= false;//设置不显示标题栏   [li]  ShowWindow(hTaskBar,SW_HIDE);//Hide任务栏  [/li]end;   [li] [/li]procedure TForm1.KOLForm1Destroy(Sender: PObj);   [li]begin  [/li]  ShowWindow(hTaskBar,SW_SHOW);//退出显示任务栏   [li]end;  [/li]

转自：廖伯志的博客

zenheart

好文要顶，

欧阳易幽

假使我不是使用KOL呢？这有咋办

ilost

CE上，去掉上面的任务栏可以了，那如何去掉下面的（输入法）那栏呢？
help～

ilost

终于搞定了，，去掉输入法栏了。。

hadycool

很好，谢谢楼主！

banshihong

kol 最新的在那里下载？？？