引言: function Shell_NotifyIcon(dwMessage:DWORD;lpData:PNotifyIconData):BOOL;stdcall;
在shellapi单元中。
摘要:首先,选择file|new, 选择页面activex,选择activex library,点击ok,生成一个activex的项目。然后选择 file|new,选择multitier,选择mts datamodule或者mts object。其中mts datamodule可以在module上放数据库链接等控件。而mts object没有。选择完毕后,点击ok,弹出对话框要选择类名,输入类名mtst......
摘要:今天用到压缩文件的问题,找了一些网上的资料,后来发现了delphi自身所带的zlib单元,根据例子稍微改变了一些,使它能够符合所有的格式。
使用时,需要zlib.pas和 zlibconst.pas两个单元文件,这两个文件保存在 delphi 5.0安装光盘上 \info\extras\zlib目录下,此外,在 info\extras\zlib\obj目录中还保存了 zlib.pas单元引用的 ......
如何在状态栏中加入图标,图片,还有动态的时间function shell_notifyicon(dwmessage:dword;lpdata:pnotifyicondata):bool;stdcall;
在shellapi单元中. 【程序编程相关:
Delphi----永不消逝的精灵
】 【推荐阅读:
如何在数据中能加载.JPG格式的图片
】
dwmessage:nim_add 【扩展信息:
OTA:向Action List中添加一】
nim_modify
nim_delete
pnotifyicondata=^tnotifyicondataa
tnotifyicondataa=record
cbsize:dword;
wnd:hwnd;
uid:uint;
uflags:uint;
ucallbackmessage:uint;
hicon:hicon;
sztip:array[0..63] of ansichar;
end;
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
...
const
myiconid=1;
myiconevent=wm_user+1;
...
private
...
myicon:ticon;
...
//install
var ...
下一页 摘要://窗体
object form1: tform1
left = 192
top = 107
width = 442
height = 246
caption = form1
color = clbtnface
font.charset = default_charset
font.color = clwindowtext
font.height = -11 ......