计算机二级:delphi任务栏托盘写法计算机二级考试
文章作者 100test 发表时间 2009:05:15 17:28:53
来源 100Test.Com百考试题网
2009年下半年全国计算机等级考试你准备好了没?考计算机等级考试的朋友,2009年下半年全国计算机等级考试时间是2009年9月19日至23日。更多优质资料尽在百考试题论坛 百考试题在线题库
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW).
ShowWindow(Application.Handle, SW_RESTORE).
ShowWindow(Application.Handle, SW_HIDE).
procedure TfrmMain.SetNotifyIcon(bShow: boolean).
var
NotifyIcon: TNotifyIconData.
begin
NotifyIcon.cbSize := sizeof(NotifyIcon).
NotifyIcon.Wnd := self.Handle.
NotifyIcon.uCallbackMessage := Message_NotifyIcon.
NotifyIcon.uID := 0.
NotifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP.
NotifyIcon.hIcon := Application.Icon.Handle.
NotifyIcon.szTip := ’My Tools’.
if bShow then
Shell_NotifyIcon(NIM_ADD, @NotifyIcon)
else
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon).
end.
特别推荐:
2009年9月全国计算机等级考试时间及科目预告