ab.com コミュニティ

Case WM_SYSCOMMAND 
>       If wParam = SC_MINIMIZE Then
>             ShowWindow(hWnd, SW_HIDE)
>             return 0
>       EndIf

> [code]Case WM_SYSCOMMAND
> If wParam = SC_MINIMIZE Then
> ShowWindow(hWnd, SW_HIDE)
> return 0
> EndIf[/code]

これでやってみたらできました。
こんな方法があったんですね。
ありがとうございました！

Case WM_SYSCOMMAND 
      If wParam = SC_MINIMIZE Then
            ShowWindow(hWnd, SW_HIDE)
            return 0
      EndIf

[code]Case WM_SYSCOMMAND
If wParam = SC_MINIMIZE Then
ShowWindow(hWnd, SW_HIDE)
return 0
EndIf[/code]


こんな感じで防いでみたら上手くいきました。
なので実際は最小化ボタンを押されたら最小化をさせずに
ウィンドウを隠してるだけです。。

Case SW_MINIMIZE 
>             ' ここでウィンドウを隠す 
>             ShowWindow(hWnd,SW_HIDE)

Case WM_SYSCOMMAND
> 	If wParam = SC_MINIMIZE Then　ShowWindow(hWnd,SW_HIDE)

> 多分、SW_MINIMIZEが違うのではないかと思います。。
> 最小化ボタンが押されたよっていうのはWM_SYSCOMMANDに乗ってきます。
>
> [code]Case SW_MINIMIZE
> ' ここでウィンドウを隠す
> ShowWindow(hWnd,SW_HIDE)[/code]
> 　　　　　　　　↓
> [code]Case WM_SYSCOMMAND
> If wParam = SC_MINIMIZE Then　ShowWindow(hWnd,SW_HIDE)[/code]
>
>
> みたいな感じで多分うまくいくと思います。


確かにアイコンをダブルクリックしたとき、
ウィンドウを表示することはできました。
しかし、ウィンドウは一瞬隠れているみたいでるが、
隠れた後に最小化したものが、
タスクバーに出現してしまいます。
最小化している間は隠しておきたいのです。
どうすれば解決できるのでしょうか？

Case SW_MINIMIZE 
            ' ここでウィンドウを隠す 
            ShowWindow(hWnd,SW_HIDE)

Case WM_SYSCOMMAND
	If wParam = SC_MINIMIZE Then　ShowWindow(hWnd,SW_HIDE)

多分、SW_MINIMIZEが違うのではないかと思います。。
最小化ボタンが押されたよっていうのはWM_SYSCOMMANDに乗ってきます。

[code]Case SW_MINIMIZE
' ここでウィンドウを隠す
ShowWindow(hWnd,SW_HIDE)[/code]
　　　　　　　　↓
[code]Case WM_SYSCOMMAND
If wParam = SC_MINIMIZE Then　ShowWindow(hWnd,SW_HIDE)[/code]


みたいな感じで多分うまくいくと思います。

Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (dwMessage As Long,ByRef lpdata As NOTIFYICONDATA) As Long

Type NOTIFYICONDATA
	cbSize As DWord
	hWnd As DWord
	uID As DWord
	uFlags As DWord
	uCallbackMessage As DWord
	hIcon As DWord
	szTip[127] As Byte
	dwState As DWord
	dwStateMask As DWord
	szInfo[255] As Byte
	dummy As DWord
	szInfoTitle[63] As Byte
	dwInfoFlags As DWord
End Type

Type TPMPARAMS
	cbSize As Long
	rcExclude As RECT
End Type

Const MSG_TRAYICON = &H1000
Const NIM_ADD = &H0
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2

Const NIIF_NONE = &H0
Const NIIF_INFO = &H1
Const NIIF_WARNING = &H2
Const NIIF_ERROR = &H3

Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Dim si As NOTIFYICONDATA
Dim Msg As Long

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
	' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
	Select Case dwMsg
		Case WM_CREATE
			' 通知領域のアイコンを丈夫にする
			Msg=RegisterWindowMessage("TaskbarCreated")
		Case SW_MINIMIZE
		    ' ここでウィンドウを隠す
		    ShowWindow(hWnd,SW_HIDE)
		Case MSG_TRAYICON
			Select Case lParam
				Case WM_LBUTTONDBLCLK
					' ここでウィンドウを表示させたい
					' ShowWindow(hWnd,SW_SHOWNORMAL) をしてもダメだった
			End Select
		Case Msg
			Shell_NotifyIcon(NIM_ADD,si)
		Case WM_DESTROY
			' 通知領域のアイコンを消す
			Shell_NotifyIcon(NIM_DELETE,si)
	End Select

	' イベントプロシージャの呼び出しを行います。
	MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	FillMemory(VarPtr(si),Len(si),0)
	With si
		.cbSize=Len(si)
		.hWnd=hMainWnd
		.uID=1
		.uFlags=NIF_ICON or NIF_MESSAGE or NIF_TIP
		.uCallbackMessage=MSG_TRAYICON
		.hIcon=LoadIcon(CreateStruct.hInstance,101)
	End With
	Shell_NotifyIcon(NIM_ADD,si)
End Sub

プログラム起動時にアイコンを通知領域に表示させ、
最小化ボタンをクリックしたときに、
ウィンドウを隠すところまではうまくいきました。
しかし、通知領域のアイコンをダブルクリックして
ウィンドウを表示させようとしてもうまくいきません。
どうすればよいのでしょうか？

[hide][code]Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (dwMessage As Long,ByRef lpdata As NOTIFYICONDATA) As Long

Type NOTIFYICONDATA
cbSize As DWord
hWnd As DWord
uID As DWord
uFlags As DWord
uCallbackMessage As DWord
hIcon As DWord
szTip[127] As Byte
dwState As DWord
dwStateMask As DWord
szInfo[255] As Byte
dummy As DWord
szInfoTitle[63] As Byte
dwInfoFlags As DWord
End Type

Type TPMPARAMS
cbSize As Long
rcExclude As RECT
End Type

Const MSG_TRAYICON = &H1000
Const NIM_ADD = &H0
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2

Const NIIF_NONE = &H0
Const NIIF_INFO = &H1
Const NIIF_WARNING = &H2
Const NIIF_ERROR = &H3

Const NIF_ICON = &H2
Const NIF_MESSAGE = &H1
Const NIF_TIP = &H4

'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Dim si As NOTIFYICONDATA
Dim Msg As Long

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As LRESULT
' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。
Select Case dwMsg
Case WM_CREATE
' 通知領域のアイコンを丈夫にする
Msg=RegisterWindowMessage("TaskbarCreated")
Case SW_MINIMIZE
' ここでウィンドウを隠す
ShowWindow(hWnd,SW_HIDE)
Case MSG_TRAYICON
Select Case lParam
Case WM_LBUTTONDBLCLK
' ここでウィンドウを表示させたい
' ShowWindow(hWnd,SW_SHOWNORMAL) をしてもダメだった
End Select
Case Msg
Shell_NotifyIcon(NIM_ADD,si)
Case WM_DESTROY
' 通知領域のアイコンを消す
Shell_NotifyIcon(NIM_DELETE,si)
End Select

' イベントプロシージャの呼び出しを行います。
MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
FillMemory(VarPtr(si),Len(si),0)
With si
.cbSize=Len(si)
.hWnd=hMainWnd
.uID=1
.uFlags=NIF_ICON or NIF_MESSAGE or NIF_TIP
.uCallbackMessage=MSG_TRAYICON
.hIcon=LoadIcon(CreateStruct.hInstance,101)
End With
Shell_NotifyIcon(NIM_ADD,si)
End Sub[/code][/hide]

AB Ver.: 5.00.00 (CP3)