【その他】
以下のような感じで追加できそうな感じです。
---- frmNakoU.pas(31)ぐらいに追加
TNotifyIconDataVistaA = record
cbSize:Integer;
Wnd:HWND;
uID:Integer;
uFlags:Integer;
uCallbackMessage:Integer;
hIcon:HICON;
szTip:array[0..127] of char;
dwState:Integer;
dwStateMask:Integer;
szInfo:array[0..255] of char;
uTimeout:Integer;
szInfoTitle:array[0..63] of char;
dwInfoFlags:Integer;
guidItem:TGUID;
hBalloonIcon:HICON;
end;
---- 147行目ぐらい
private
NotifyIcon: TNotifyIconDataVistaA;
NotifyIconSize: Integer; // V1(NT)=88 V2(2K)=488 V3(XP)=504 V4(Vista)=508
---- 152行目ぐらい
public
IsLiveTasktray: boolean;
dwBalloonOption: Integer;
bBalloonRealtime: boolean;
procedure InitTasktray;
procedure FinishTasktray;
procedure ChangeTrayIcon;
procedure MovetoTasktray(HideForm:Boolean = True); // タスクトレイへ移動
procedure LeaveTasktray(RestoreForm:Boolean = True); // タスクトレイを離れる
procedure ShowBalloon(message:string); // バルーン表示
procedure HideBalloon(); // バルーン削除
----- 1553ぐらいのFinishTasktrayのcbSizeの設定を変更
cbSize := NotifyIconSize;
----- 1567ぐらいのInitTasktrayを変更
procedure TfrmNako.InitTasktray;
begin
if IsLiveTasktray then exit;
NotifyIconSize := 508; // V4(Vista)のサイズ
with NotifyIcon do
begin
cbSize := NotifyIconSize;
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP or $00000080; // NIF_SHOWTIP=$00000080
uCallbackMessage := WM_NotifyTasktray;
if Self.Icon.Handle > 0 then
hIcon := Self.Icon.Handle
else
hIcon := Application.Icon.Handle;
StrLCopy(@szTip[0],PChar(Self.Caption), 127);
end;
if not Shell_NotifyIcon(NIM_ADD,@NotifyIcon) then
begin
NotifyIconSize := 504; // V3(XP)のサイズ
NotifyIcon.uFlags := NotifyIcon.uFlags and $ffffff7f; // NIF_SHOWTIP=$00000080
NotifyIcon.cbSize := NotifyIconSize;
if not Shell_NotifyIcon(NIM_ADD,@NotifyIcon) then
begin
NotifyIconSize := 488; // V2(2K)のサイズ
NotifyIcon.cbSize := NotifyIconSize;
if not Shell_NotifyIcon(NIM_ADD,@NotifyIcon) then
begin
NotifyIconSize := 88; // V1(NT)のサイズ
NotifyIcon.cbSize := NotifyIconSize;
StrLCopy(@(NotifyIcon.szTip[0]),PChar(Self.Caption), 63);
Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
end;
end;
end;
IsLiveTasktray := True;
end;
---- 1634あたりにShowballoonとHideBalloonを追加
procedure TfrmNako.ShowBalloon(message:String);
begin
if not IsLiveTasktray then exit;
if NotifyIconSize = 88 then exit;
with NotifyIcon do
begin
cbSize := NotifyIconSize;
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP or $00000010; // NIF_INFO=$00000010
if NotifyIconSize = 508 then
begin
uFlags := uFlags or $00000080; // NIF_SHOWTIP=$00000080
if bBalloonRealtime then
uFlags := uFlags or $00000040; // NIF_REALTIME=$00000040
end;
uCallbackMessage := WM_NotifyTasktray;
if Self.Icon.Handle > 0 then
hIcon := Self.Icon.Handle
else
hIcon := Application.Icon.Handle;
if NotifyIconSize = 508 then
if (dwInfoFlags and $0000000f) = $00000004 then // NIIF_USER=$00000004
if Self.Icon.Handle > 0 then
hBalloonIcon := Self.Icon.Handle
else
hBalloonIcon := Application.Icon.Handle;
StrLCopy(@szTip[0],PChar(Self.Caption), 127);
StrLCopy(@szInfoTitle[0],PChar(Self.Caption), 63);
StrLCopy(@szInfo[0],PChar(message), 255);
dwInfoFlags := dwBalloonOption;
if NotifyIconSize = 488 then
dwInfoFlags := dwInfoFlags and $0000000f; // NIF_ICON_MASK=$0000000f
end;
Shell_NotifyIcon(NIM_MODIFY, @NotifyIcon);
IsLiveTasktray := True;
end;
procedure TfrmNako.hideBalloon();
begin
if not IsLiveTasktray then exit;
if NotifyIconSize = 88 then exit;
with NotifyIcon do
begin
cbSize := NotifyIconSize;
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP or $00000010; // NIF_INFO=$00000010
if NotifyIconSize = 508 then
uFlags := uFlags or $00000080; // NIF_SHOWTIP=$00000080
if Self.Icon.Handle > 0 then
hIcon := Self.Icon.Handle
else
hIcon := Application.Icon.Handle;
StrLCopy(@szTip[0],PChar(Self.Caption), 127);
StrLCopy(@szInfoTitle[0],PChar(''), 63);
StrLCopy(@szInfo[0],PChar(''), 255);
dwInfoFlags := dwBalloonOption;
if NotifyIconSize = 488 then
dwInfoFlags := dwInfoFlags or $0000000f; // NIF_ICON_MASK=$0000000f
end;
Shell_NotifyIcon(NIM_MODIFY, @NotifyIcon);
IsLiveTasktray := True;
end;
----- 1768あたりのChangeTrayIconを変更
procedure TfrmNako.ChangeTrayIcon;
begin
if not IsLiveTasktray then exit;
with NotifyIcon do
begin
cbSize := NotifyIconSize;
Wnd := Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
if NotifyIconSize = 508 then
uFlags := uFlags or $00000080; // NIF_SHOWTIP=$00000080
uCallbackMessage := WM_NotifyTasktray;
if Self.Icon.Handle > 0 then
hIcon := Self.Icon.Handle
else
hIcon := Application.Icon.Handle;
if NotifyIconSize = 88 then
StrLCopy(@szTip[0],PChar(Self.Caption), 63)
else
StrLCopy(@szTip[0],PChar(Self.Caption), 127)
end;
Shell_NotifyIcon(NIM_MODIFY, @NotifyIcon);
IsLiveTasktray := True;
end;
---- vnako_function.pasの6977あたりの変数宣言にoptを追加
var e: TfrmNako; ico: TIcon; icoCreate: TjvIcon; s: string; bmp: TBitmap;opt : Integer;
---- 7042あたりにバルーン系のコマンドを追加
if cmd = 'タスクトレイバルーン表示' then e.showBalloon(hi_str(v)) else
if cmd = 'タスクトレイバルーン非表示' then e.hideBalloon() else
if cmd = 'タスクトレイバルーンオプションSET' then
begin
s := hi_str(v);
opt := 0;
if Pos('アイコン無し', s) > 0 then opt := $00000000 { NIIF_NONE=$00000000 } else
if Pos('エラーアイコン', s) > 0 then opt := $00000003 { NIIF_ERROR=$00000003 } else
if Pos('通知アイコン', s) > 0 then opt := $00000001 { NIIF_INFO=$00000001 } else
if Pos('警告アイコン', s) > 0 then opt := $00000002 { NIIF_WARNING=$00000002 } else
if Pos('アプリケーションアイコン',s) > 0 then opt := $00000004; { NIIF_USER=$00000004 }
if (Pos('音無し', s) > 0) or (Pos('無音', s) > 0) then opt := opt + $00000010; { NIIF_NOSOUND=$00000010 }
e.dwBalloonOption := opt;
if Pos('リアルタイム',s) > 0 then e.bBalloonRealtime := true
else e.bBalloonRealtime := false;
end else
if cmd = 'タスクトレイバルーンオプションGET' then
begin
opt := e.dwBalloonOption;
s := '';
if (opt and $00000010) <> 0 then begin s:='/無音'; opt:=opt-$00000010; end;
if opt=$00000000 then s:='アイコン無し'+s;
if opt=$00000003 then s:='エラーアイコン'+s;
if opt=$00000002 then s:='警告アイコン'+s;
if opt=$00000001 then s:='通知アイコン'+s;
if opt=$00000004 then s:='アプリケーションアイコン'+s;
e.dwBalloonOption := opt;
if e.bBalloonRealtime then s:=s+'/リアルタイム';
Result := hi_var_new; hi_setStr(Result, s);
end else
---- vnako.nakoの486あたりにバルーン系のコマンドを追加
・タスクトレイバルーン表示(Vを)～
VCL_COMMAND(オブジェクト, "タスクトレイバルーン表示",V)
・タスクトレイバルーン非表示()～
VCL_COMMAND(オブジェクト, "タスクトレイバルーン非表示",0)
・{非公開}バルーンオプション設定(V)～VCL_COMMAND(オブジェクト, "タスクトレイバルーンオプションSET",V)
・{非公開}バルーンオプション取得～VCL_COMMAND(オブジェクト, "タスクトレイバルーンオプションGET","")
・タスクトレイバルーンオプション ←バルーンオプション設定 →バルーンオプション取得
----