使用下列过程:
var
FIconData: TNotifyIconData;
begin
with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Self.Handle;
uID := $DEDB;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := Forms.Application.Icon.Handle;
uCallbackMessage := WM_MIDASICON;
StrCopy(szTip, PChar(Caption));
end;
Shell_NotifyIcon(NIM_Add, @FIconData);
end;更详细的例子参照Borland\Delphi6(5)\Source\Vcl\ScktSrvr.dpr
var
FIconData: TNotifyIconData;
begin
with FIconData do
begin
cbSize := SizeOf(FIconData);
Wnd := Self.Handle;
uID := $DEDB;
uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
hIcon := Forms.Application.Icon.Handle;
uCallbackMessage := WM_MIDASICON;
StrCopy(szTip, PChar(Caption));
end;
Shell_NotifyIcon(NIM_Add, @FIconData);
end;更详细的例子参照Borland\Delphi6(5)\Source\Vcl\ScktSrvr.dpr
或者用cooltronicon控件很好使
存储过程什么的你可以从网上当一些sql的书看看
几乎所有书都有