软件发布：sysicon(系统拖盘控件）

[yangwj]

详细资料请访问:http://www.csdn.net/cnshare/soft/6/6413.html
软件简介：//========================sysicon.dll==================
文件大小：311KB
发行时间：2001年3月9日

欢迎使用，但是必须连同sysicon.txt一起发行
不得擅自修改该文件，如果你在使用中有什么意见，可
以和作者联系，联系方式：
[e-mail]
[e-mail]
http://go.163.com/~yangwj
功能说明:

该dll主要是用来在程序中生成系统拖盘程序，其中包括三大功能：
1、文字提示功能。
2、图标显示，隐藏主程序。
3、弹出带图标的菜单。

使用说明：
例如在VB中使用：
首先在一个模块中声明：
Declare Function AddIcon Lib "sysicon.dll" (ByVal wHandle As Long, ByVal aHandle As Long, ByVal ihandle As Long, ByVal Strtip As String, ByVal helpfile As String) As Boolean
Declare Function DelIcon Lib "sysicon.dll" () As Boolean

参数说明：
wHandle : 你的应用程序的句柄
aHandle : 关于窗体的句柄
iHandle : icon图标的句柄
Strtip : 要提示的说明文字
helpfile: 帮助文件的名称(包括完整路径)

返回参数：如果操作成功返回True,否则返回False.
其中E:\yang\delphidll\formdll\SysIcon\sysicon.dll是我用的绝对路径，你可以用相对路径,即把sysicon.dll拷贝到
\Windowssystem\目录下或与你的运行文件在同一目录下,然后就可以写
成:sysicon.dll


Private Sub Form_Load()
Dim re As Boolean
re = AddIcon(Me.hWnd, frmAbout.hWnd, Me.Icon.Handle, "yangwenjun", "sundaymanager.hlp")
End Sub


Private Sub Form_Resize()

If WindowState = 1 Then
Me.Visible = False
Else
Me.SetFocus
End If
End Sub



Private Sub Form_Unload(Cancel As Integer)
Dim a As Boolean
a = DelIcon()

End Sub



作者：杨文俊