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

猫工 · 发表于 2009-2-20 21:41:55

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 · 发表于 2009-9-13 12:22:11

好文要顶，

欧阳易幽 · 发表于 2009-9-27 13:32:45

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

ilost · 发表于 2009-11-17 14:59:53

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

ilost · 发表于 2009-12-1 15:23:10

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

hadycool · 发表于 2009-12-31 11:14:33

很好，谢谢楼主！

banshihong · 发表于 2010-11-12 13:00:22

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

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）