忍者ブログ
We aren't android!
Admin / Write
2017/12/13 (Wed) 20:08
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

2010/07/15 (Thu) 10:36
 HSP3掲示板 で質問があったので回答。
マウスアイコンのホットスポットの計算もしているのでずれることはないはずです。 

※ホットスポットとは?(無線LANのほうじゃないよ)
http://www.hm.h555.net/~irom/ssb_help/ssb_help_pointer.htm
#include "user32.as"
#include "gdi32.as"
#define SRCCOPY     0x00CC0020

	screen 0,ginfo_dispx,ginfo_dispy,2

	// スクリーンショット
	CreateDCA "DISPLAY",0,0,0:hdcScreen=stat
	BitBlt hdc,0,0,ginfo_dispx,ginfo_dispy,hdcScreen,0,0,SRCCOPY
	DeleteDC hdcScreen

	// マウスアイコンハンドルを取得
	dim CURSORINFO,5
	CURSORINFO.0=20
	GetCursorInfo varptr(CURSORINFO)

	// ホットスポットを取得
	dim ICONINFO,5
	GetIconInfo CURSORINFO.2,varptr(ICONINFO)
	
	// アイコンを描画
	DrawIconEx hdc,CURSORINFO.3-ICONINFO.1,CURSORINFO.4-ICONINFO.2,CURSORINFO.2,0,0,0,0,0x0003 
	redraw 1

	gsel 0,1

PR
2010/07/14 (Wed) 09:32
 
hspuac.png
 





Windows Vista、Windows 7のUACの確認ダイアログの前に出てくるボタンについているウィンドウズアイコンが盾になったもの(シールドアイコン)を表示してみました。















#define
BCM_SETSHIELD 0x160c
button "UAC",*a
sendmsg objinfo(stat,2),BCM_SETSHIELD,0,1
stop
*a
 
かなり単純で、BCM_SETSHIELDをウィンドウメッセージとしてボタンに送ってあげればいいだけです。
sendmsg の 第4引数を 1 にするとシールドアイコン表示で 0 にすると解除されます。
 
ググると 同じ動作をするものに Button_SetElevationRequiredState が出てきますが、マクロですのでやっていることは同じです。
 
ちなみにこのアイコンをつけたからと言って権限昇格されるわけではないのでご注意を。
 
  HOME
カレンダー
11 2017/12 01
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
RSS/カウンタ
ブログ内検索
プロフィール
性別:
非公開
最新トラックバック
QRコード
最新コメント
[03/09 AAA]
[02/06 名無し]
[02/02 名無し]
[02/01 マンマミーヤ]
[01/30 地獄の番犬]
忍者ブログ [PR]