显丑了,呵呵 :-)我新近做了一小东东,公开源,仅供参考!
http://CoolSlob.8u8.com/Download/Cleaner.src.zip
http://CoolSlob.8u8.com/Download/Cleaner.src.zip
解决方案 »
- Bitter_fish(苦鱼) 领分
- Delphi 里有和c++中的fscanf相似的函数吗?
- 急!小问题?
- 用DELPHI7 中的WebBrowser控件,如何向一个网页提交数据?
- 大送分了,有本事就拿啊
- 一个关于穿透的问题大家帮忙看看,急,微软真的太离谱了
- “动态”创建的窗口中执行多线程就出错,为什么?
- 为什么数据库定义成VarChar类型了,存进去用trim,还是后面有空格,我用的是clientdataset.insertrecord
- 中国的国际邮编是多少??急!!是为了收到外国信件!!!!
- 请教在在DLL中加入ADO为什么会报'尚未调用coInitiailize’(使用的是Delphi5)
- 如何让数据链结窗口弹出?
- TreeView的Item在插入的时候如何始终显示在首行?
unit Unit1; interface { 记住在uses部分中包括 ShellAPI}
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls; {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
{自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
const MY_MESSAGE = WM_USER + 100; type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormPaint(Sender: TObject);
private
procedure OnIconNotify(var Message: TMessage);
message MY_MESSAGE;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM}
{当小图标捕捉到鼠标事件时进入此过程}
{当小图标捕捉到鼠标事件时进入此过程}
procedure TForm1.OnIconNotify(var Message: TMessage);
const
Busy: Boolean = false;
begin
if not Busy then begin
Busy := true;
if Message.LParam=WM_LBUTTONDOWN then
if Application.MessageBox('Are you sure',
'Exit', MB_YESNO)=IDYES then Close;
Busy := false;
end;
end; {当主Form建立时通知Windows加入小图标}
procedure TForm1.FormCreate(Sender: TObject);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.Wnd := Handle; // 主窗口句柄
nid.uID := -1; // 内部标识,可设为任意数
nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?
nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?nid.szTip := 'This is a test application'; // 提示字符串
nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息
nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有?if not Shell_NotifyIcon(NIM_ADD, @nid) then begin
ShowMessage('Failed!');
Application.Terminate;
end;
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end; {程序被关闭时通知Windows去掉小图标}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.uID := -1; //内部标识,与加入小图标时的数一致
nid.Wnd := Handle; //主窗口句柄
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标
end; {主窗口初始化完毕并显示时将激活Paint重画事件,此时将主窗口隐藏}
procedure TForm1.FormPaint(Sender: TObject);
begin
Hide;
end; end.
procedure TFM_DL_SRV.FormCreate(Sender: TObject);
begin
InstallIcon;
end;procedure TFM_DL_SRV.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnstallIcon;
end;procedure TFM_DL_SRV.InstallIcon();
var IconData: TNotifyIconData;
Icon: TIcon;
begin
IconData.cbSize := SizeOf(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
IconData.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
IconData.uCallbackMessage :3D MI_ICONEVENT;
Icon := TIcon.Create;
ilICon.GetIcon(0,ICon);
0A IconData.hIcon := ICon.Handle;
IconData.szTip := '下载文件服务端';
Shell_NotifyIcon(NIM_ADD,@IconData);
Icon.Free;
end;procedure TFM_DL_SRV.UnstallIcon();
var IconData: TNotifyIconData;
begin
IconData.cbSize := SizeOf(IconData);
IconData.Wnd := Handle;
IconData.uID := ICON_ID;
Shell_NotifyIcon(NIM_DELETE,@IconData);
end;
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
你的网址上不去,发个mail给我好吗?
[email protected]
& lxpbuaa(桂枝香在故国晚秋) :
你们都没有明白我的意思:不是做普通的那种,而是在win2000及以后才有的新特性,就是Balloon ToolTip,像个气泡的那种。