HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2015
0829
RichAero¤Ë¤Ä¤¤¤Æ6²ò·è


Rich

¥ê¥ó¥¯

2015/8/29(Sat) 16:03:35|NO.71112

Aero¥â¥¸¥å¡¼¥ë¤òºî¤Ã¤Æ¤¤¤ë¤ó¤Ç¤¹¤¬¡¢
XP¤Ê¤É¤ÎAero¤ËÂбþ¤·¤Æ¤¤¤Ê¤¤¤È¤­¤ä¡¢Aero¤òɽ¼¨¤µ¤»¤Ê¤¤¤è¤¦¤Ë¤·¤Æ¤¤¤ë»þ¤Î
¼èÆÀÊýË¡¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£

#module//¥â¥¸¥å¡¼¥ë»Ï¤á #uselib "dwmapi.dll" #func DwmExtendFrameIntoClientArea "DwmExtendFrameIntoClientArea" int, var #uselib "user32.dll" #func SetLayeredWindowAttributes "SetLayeredWindowAttributes" int,int,int,int #cfunc GetWindowLong "GetWindowLongA" int,int #func SetWindowLong "SetWindowLongA" int,int,int //SetExtendFrameClientArea Aero¥¨¥ê¥¢¤ò¹­¤²¤ë // //SetExtendFrameClientArea hnd,px,py,sx,sy,bc // hnd = ¥Ï¥ó¥É¥ë // px~sy = ¹­¤²¤ë¥µ¥¤¥º // bc = ¥°¥é¥¹¤Ë¤¹¤ë¿§(BBGGRR) //SetLayeredWindow ¥ì¥¤¥ä¡¼¥¦¥£¥ó¥É¥¦¤Ë¤¹¤ë // //SetLayeredWindow hnd,phnd,bc // hnd = »Ò¥Ï¥ó¥É¥ë // phnd = ¿Æ¥Ï¥ó¥É¥ë // bc = Æ©ÌÀ¤Ë¤¹¤ë¿§(BBGGRR) #deffunc SetExtendFrameClientArea int hnd,int px,int py,int sx,int sy,int bc margins = px, py, sx, sy DwmExtendFrameIntoClientArea hnd,margins return #deffunc SetLayeredWindow int hnd , int phnd , int bc SetWindowLong hnd, (-8), phnd SetWindowLong hnd,-20, GetWindowLong(hnd,-20) |0x80000 SetLayeredWindowAttributes hnd,bc,255,3 return #global//¥â¥¸¥å¡¼¥ë½ª¤ï¤ê #if 0//1¤Ë¤¹¤ë¤È¥µ¥ó¥×¥ë¼Â¹Ô //¥µ¥ó¥×¥ë //¥¿¥¤¥È¥ë¥Ð¡¼¤Ë¥Ü¥¿¥ó #include "user32.as" buffer 3 color 245,245,0:boxf color 255,255,200:line 0,0,91,0 font "Meiryo UI",12 pos 25,3:color 0,0,0:mes "Menu ¢§" color 255,255,255 pset 0,19:pset 90,19 screen 1,480,400 hWindow=hwnd color 0,0,0:boxf 0,0,480,2 title "" SetExtendFrameClientArea hwnd,0,0,3,0,0 oncmd gosub *OnMoveing,0x0216 oncmd gosub *OnSize,0x0005 bgscr 2,91,20,,ginfo(4)+28,ginfo(5)+7//¥ì¥¤¥ä¡¼¥É¥¦¥£¥ó¥É¥¦(¥Ü¥¿¥óɽ¼¨ÍÑ) hWButton=hwnd cls 0 SetLayeredWindow hwnd,hWindow,0xFFFFFF objimage 3 objsize 91,20:button gosub "",*Menu:hButton=objinfo(stat,2) dim RECT,4 CreatePopupMenu:hMenu= stat AppendMenu hMenu ,0x000,0,"New(&N) Ctrl+N" AppendMenu hMenu ,0x000,0,"Open...(&O) Ctrl+O" AppendMenu hMenu ,0x000,0,"Save(&S) Ctrl+S" AppendMenu hMenu ,0x000,0,"SaveAs..(&A)" AppendMenu hMenu ,0x800,0,0 AppendMenu hMenu ,0x000,0,"Exit(&E) Alt+F4" //Aero»þ·× screen 0,480,80 title "" cls 4 SetExtendFrameClientArea hwnd,-1,0,0,0,0 color 255,255,255 font "Meiryo UI",40,1 repeat gsel 0 redraw 0 pos 0,0 color 0,0,0:boxf color 255,255,255 mes ""+gettime(0)+"/"+gettime(1)+"/"+gettime(3)+" "+strf("%02d", gettime(4) )+":"+strf("%02d", gettime(5) )+":"+strf("%02d", gettime(6) ) redraw 1 wait 1 loop stop *Menu gsel 1,1 dim RECT,4 GetWindowRect hButton, varptr(RECT) TrackPopupMenuEx hMenu, 0,RECT(0),RECT(3), hwnd, 0 return *OnMoveing dupptr rect,lparam,16 MoveWindow hWButton ,rect(0)+28,rect(1)+7,91,20,1 return *OnSize gsel 1 MoveWindow hWButton,ginfo(4)+28,ginfo(5)+7,91,20,1 return



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


kanamaru

¥ê¥ó¥¯

2015/8/29(Sat) 16:31:00|NO.71114

varptr¤ò»È¤Ã¤Æ¡¢»È¤¦´Ø¿ô¤¬Â¸ºß¤¹¤ë¤«Ä´¤Ù¤ë¤Î¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡©



b

¥ê¥ó¥¯

2015/8/29(Sat) 20:27:29|NO.71118

DwmIsCompositionEnabled ´Ø¿ô¤ÈOS¥Ð¡¼¥¸¥ç¥ó¾È¹çÁȤ߹ç¤ï¤»¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡©

DwmIsCompositionEnabled »ÈÍÑÊýË¡:
https://msdn.microsoft.com/ja-jp/library/windows/desktop/aa969518(v=vs.85).aspx



Rich

¥ê¥ó¥¯

2015/9/3(Thu) 19:02:05|NO.71291

¤³¤ó¤Ê´¶¤¸¤Ç¤¹¤«¤Í¡£

Enable=1 DwmIsCompositionEnabled varptr(Enable) if stat!0|Enable=0 : dialog "Aero̵¸ú" : Enable=0
Dwmapi¤ÏWindowsVista¤«¤éÆþ¤Ã¤Æ¤¤¤ë¤ß¤¿¤¤¤Ê¤Î¤ÇDwmapi.dll¤¬¤¢¤ë¤«Ä´¤Ù¤¿¤¤¤ó¤Ç¤¹¤±¤É¡¢
¥×¥í¥°¥é¥àÀ©¸æÌ¿Îá¤Ï¡¢
¿¶¤êʬ¤±¤Ï¤Ç¤­¤Ê¤¤¤è¤¦¤Ê¤Î¤ÇÊ̤ÎÊýË¡¤ÇDLL¤òÆɤ߹þ¤àÊýË¡¤ò¶µ¤¨¤Æ¤¯¤À¤µ¤¤¡£



b

¥ê¥ó¥¯

2015/9/3(Thu) 19:29:06|NO.71292


#uselib "dwmapi.dll" //»È¤¦dll #func DwmIsCompositionEnabled "DwmIsCompositionEnabled" var //ÄêµÁ DwmIsCompositionEnabled(Enable) //¸Æ¤Ó½Ð¤· if(stat == 0 ){ //Àµ¾ïÆ°ºî¤«³Îǧ if(Enable==1){ //1¤Ê¤éÍ­¸ú mes "Í­¸ú" }else{ mes "̵¸ú" } }
Vista°Ê¹ß¤Ê¤é¤³¤ì¤Ç»È¤¨¤ë¡£
ÌäÂê¤Î´Ø¿ô¤¬»È¤¨¤ë¤«¤É¤¦¤«¤È¤¤¤¦¤³¤È¤Ç¤¹¤¬¡¢
ÊýË¡­¡
C:\System32\Dwmapi.dll¤¬¤¢¤ë¤«¤òexsistÅù¤ÇÄ´¤Ù¤Æ¤·¤Þ¤¦
ÊýË¡­¢
varptr(»È¤¤Êý¤Ï¥Þ¥Ë¥å¥¢¥ëÅù¤Ç)¤ò»È¤¤DwmAPI¤ÎŬÅö¤Ê´Ø¿ô¤Î¥¢¥É¥ì¥¹¤òÄ´¤Ù¤Æ¥Á¥§¥Ã¥¯¤¹¤ë



²Ë¿Í

¥ê¥ó¥¯

2015/9/3(Thu) 20:06:02|NO.71293

ºÇ½é¤ËÍ­¸ú¤«¤É¤¦¤«Ä´¤Ù¤ë¤À¤í¤¦¤«¤é
¤½¤ÎÌ¿Îá¤Î¥¢¥É¥ì¥¹Ä´¤Ù¤ì¤Ð¼ê¤Ã¼è¤êÁᤤ

#uselib "dwmapi.dll" //»È¤¦dll #func DwmIsCompositionEnabled "DwmIsCompositionEnabled" var //ÄêµÁ if varptr(DwmIsCompositionEnabled) { DwmIsCompositionEnabled Enable if stat {Enable=-1} }else{Enable=-1} if Enable<0 { mes "Aero̵¤·" }else{ if Enable=1 {mes "Í­¸ú"}else{mes "̵¸ú"} }



Rich

¥ê¥ó¥¯

2015/9/5(Sat) 15:35:00|NO.71378

kanamaru¤µ¤ó b¤µ¤ó ²Ë¿Í¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤¬¤ó¤Ð¤Ã¤Æ¡¢¤Á¤ã¤ó¤ÈAero¤¬µ¡Ç½¤¹¤ë¥½¥Õ¥È¤òºî¤ê¤Þ¤¹¡£



ONION software Copyright 1997-2023(c) All rights reserved.