YY工具 -- BalloonTip

lxl1638

非本人的原创，网上找到的，很小啊。

参数均是可选的：
第1个是气泡的内容,
第2个是气泡的标题,
第3个是气泡持续的时间,默认是1000毫秒(1秒钟),
第4个是可选的图标样式,可选值为0(无图标),1(信息图标),2(警告图标),3(错误图标),默认是0

[ 本帖最后由 lxl1638 于 2008-10-25 22:30 编辑 ]

lsj0416

老九的东西时一定要顶的！

dzy

本人 YY !

CWD

咦。。。老九又有新玩意与大家共享啦。。。气泡持续时间结束后自动退出的么？

dony2006

这东西好玩，下来试试。谢了。

lxl1638

原帖由 zhxy9804 于 2008-10-25 22:57 发表
这个会生成临时文件，呵呵，感觉其实这样子就不好了

本人这个不会了，原来从网上拉下来的会。
原来的是将那个 EXE 钳入到 VBS 脚本中，VBS 脚本将 EXE 释放到 C: 盘，再执行释放后的 EXE。

wang6071

老九何不自已搞一个？加到wincmd参数中。

type
  PNewNotifyIconData = ^TNewNotifyIconData;
  TDUMMYUNIONNAME    = record
    case Integer of
      0: (uTimeout: UINT);
      1: (uVersion: UINT);
  end;
  TNewNotifyIconData = record
    cbSize: DWORD;
    Wnd: HWND;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
   //Version 5.0 is 128 chars, old ver is 64 chars
    szTip: array [0..127] of Char;
    dwState: DWORD; //Version 5.0
    dwStateMask: DWORD; //Version 5.0
    szInfo: array [0..255] of Char; //Version 5.0
    DUMMYUNIONNAME: TDUMMYUNIONNAME;
    szInfoTitle: array [0..63] of Char; //Version 5.0
    dwInfoFlags: DWORD;   //Version 5.0
  end;
  TSysTray = class(TComponent)
  private
    FIconData: TNewNotifyIconData;

procedure TSysTray.ShowBalloonTips(Const TipInfo, TipTitle: string);
const
  NIF_INFO = $10;
  NIIF_INFO = $00000001;
  NOTIFYICON_VERSION = 3;
  NIM_SETVERSION = $00000004;
begin
  FIconData.cbSize := SizeOf(FIconData);
  FIconData.uFlags := NIF_INFO;
  strPLCopy(FIconData.szInfo, TipInfo, SizeOf(FIconData.szInfo) - 1);
  FIconData.DUMMYUNIONNAME.uTimeout := 0;
  strPLCopy(FIconData.szInfoTitle, TipTitle, SizeOf(FIconData.szInfoTitle)-1);
  FIconData.dwInfoFlags := NIIF_INFO;     //NIIF_ERROR;  //NIIF_WARNING;
  Shell_NotifyIcon(NIM_MODIFY, @FIconData);
  FIconData.DUMMYUNIONNAME.uVersion := NOTIFYICON_VERSION;
end;

[ 本帖最后由 wang6071 于 2008-10-26 00:05 编辑 ]

19951001

真是挺YY的，网吧为逃避责任而做的吧。

hwd6

挺好玩的，不错...........

yichya

不支持VBS的地方能用吗？

yichya

原帖由 wang6071 于 2008-10-25 23:55 发表
老九何不自已搞一个？加到wincmd参数中。

type
  PNewNotifyIconData = ^TNewNotifyIconData;
  TDUMMYUNIONNAME    = record
    case Integer of
      0: (uTimeout: UINT);
      1: (uVersion: UI ...

delphi的？

lxl1638

原帖由 yichya 于 2008-10-26 09:08 发表
不支持VBS的地方能用吗？

附件不是有个CMD么？

yichya

原帖由 lxl1638 于 2008-10-26 09:51 发表


附件不是有个CMD么？

我是说，打算放进PE，然后修改下PSEUDO的资源组件。

lxl1638

原帖由 zhxy9804 于 2008-10-26 10:17 发表
我看，给这个BalloonTip.exe设计个右下角图标，然后点提示信息自动退出就完美了！

不就是用来YY么？可以给封装系统、修改PE的人YY了，系统启动完成后，在那里来个YY：

温馨提示
XXX YY系统已顺利启动，如有问题请与YYY QQ联系。

mapeimapei

是个个性化的东西，谢谢老九。。

从托盘测试，老九使用的win 2003吧。。

lxl1638

原帖由 zhxy9804 于 2008-10-26 11:38 发表
没发现这个软件本来就是为网吧设计的吗？所以希望更完美点，不知道我的想法能不能实现

要如果完善，道来听听，或者本人可以........................

wang6071

依葫芦画瓢，我做了一个与原功能一样的，原始大小15K，压缩后是9K，比那个大了不少。

太阳上的鱼

呵呵
果然小巧
很好玩

太阳上的鱼

21楼的要好一点
试过了，可以自己手动关闭
强 呵呵

cp8109

呵呵，比 较 有 意  思

tzxinqing

老九出品，必属精品！顺便弱弱的问一下，您的plus4什么时候更新？

lxl1638

原帖由 wang6071 于 2008-10-26 14:23 发表
依葫芦画瓢，我做了一个与原功能一样的，原始大小15K，压缩后是9K，比那个大了不少。

Delphi做的？Delphi的窗口至少370K，无窗口时16K左右。VC可以在4K左右做出来。
按微软的文档，ToolTip有很多风格，比如可以设置成在任意位置的方形窗口提示。

lxl1638

原帖由 wang6071 于 2008-10-26 14:23 发表
依葫芦画瓢，我做了一个与原功能一样的，原始大小15K，压缩后是9K，比那个大了不少。

晕，你这个在本人的系统中无反映。

lisong

越来越好玩了，只需隐藏DOS窗口运行就行

stwcb2007

要隐藏窗口很简单
建个快捷方式
然后把参数都写在里面就行

lxl1638

原帖由 zhxy9804 于 2008-10-26 16:47 发表

第一，右下角tray要有个图标，可以就是“i”啊。
第二，别人可能一点消息框就消失了，但是程序还是在运行的，这种情况下，应该程序一起退出才是比较合理的

第1点不难，是不是象图那样，自定图标，自定分行，默认系统会分行，但如何分法由系统决定；
第2点也可，只是文件要做大些，要有个窗口接收消息，关了提示后结束程序。

[ 本帖最后由 lxl1638 于 2008-10-26 17:04 编辑 ]

wang6071

原帖由 lxl1638 于 2008-10-26 15:54 发表


晕，你这个在本人的系统中无反映。

是Delphi版的，2003系统可能需要handle，再接再厉做着玩，给个hanle看看，鼠标移入托盘区自动结束程序。

lxl1638

原帖由 zhxy9804 于 2008-10-26 21:38 发表

好的，你别加壳，发上来，我好自定义个图标[img]http://bbs.wuyou.net/images/smilies/lol.gifhttp://bbs.wuyou.net/images/smilies/lol.gif[/img]
当然发你改的吧，第二点不满足也行，反正指定时间一过，也自动消失！

早呢，不有很多不如人意之处，过些时候吧。
基本是这样，"提示框标题2"的提示框功能还需完善。

gaokun

一个用来YY的小东西也成了话题，不过怎么分行啊，我要搞出半屏的气泡提示出来。

lxl1638

原帖由 zhxy9804 于 2008-10-26 22:28 发表
行，那抓紧快点完工啊

搞好了，在 WinCMD 主题：

http://bbs.wuyou.net/forum.php?mod=viewthread&tid=121828&extra=page%3D4

附件内有演示。