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


HSPTV!·Ç¼¨ÈÄ


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

2021
0926
¤Í¤ó¤Í¤³¥É¥é¥¤¥Ö:\Users\¥æ¡¼¥¶¡¼Ì¾\AppData\Local\Microsoft\Windows\Fonts¤ÎÃæ¿È¤ò¼èÆÀ¤·¤¿¤¤11²ò·è


¤Í¤ó¤Í¤³

¥ê¥ó¥¯

2021/9/26(Sun) 10:42:31|NO.93974

¥É¥é¥¤¥Ö:\Users\¥æ¡¼¥¶¡¼Ì¾\AppData\Local\Microsoft\Windows\Fonts¤ÎÃæ¿È¤ò¼èÆÀ¤·¤¿¤¤¤Ç¤¹
¤É¤¦¤¹¤ì¤ÐÎɤ¤¤Ç¤¹¤«



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


¤Í¤ó¤Í¤³

¥ê¥ó¥¯

2021/9/26(Sun) 10:43:45|NO.93975

°ì±þ¥½¡¼¥¹¤Ï¤³¤ì¤Ç¤¹

#include "user32.as" dir=dirinfo($1001A) dialog dir chdir dir dialog dir_cur chdir ".." dialog dir_cur chdir "Local\Microsoft\Windows\Fonts" dirlist list,"k8x12s.ttf" if list=""{ MessageBox hwnd,"¥Õ¥©¥ó¥È k8x12s.ttf¤¬¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤Þ¤»¤ó\n¥Õ¥©¥ó¥È¤ÏFont¥Õ¥©¥ë¥À¤Ë¤¢¤ê¤Þ¤¹","ERROR",16:end } font "k8x12S",20



zrs90(5¤µ¤¤)

¥ê¥ó¥¯

2021/9/26(Sun) 11:42:02|NO.93978

­¡ ¥Õ¥©¥ó¥È¤ò¸«¤¿¤¤¤À¤±¤Ê¤é
exec "fonts",16

...¤Þ¤¿¤Ï¡¢¥Õ¥ê¡¼¥½¥Õ¥È¤ò»È¤Ã¤Æ±ÜÍ÷¤¹¤ë¡£


­¢ ¥Õ¥©¥ó¥È¤ò»ØÄꤷ¤¿¤¤¤Ê¤éHSP3.6¤Ç¤Ï
¿§»ØÄ꤬½ÐÍè¤Ê¤¤Åù¤Î¥Ð¥°¤¬¤¢¤ê¤Þ¤¹¤¬
mod_fontdlg.as¤ò»È¤¦¡£
(²ò·èË¡¤È¸¶°ø¡©¤ÏºÇ¶á¤Î·Ç¼¨ÈĤÎÃæ¤Ë¤¢¤ê¤Þ¤¹)


­£ ¥Õ¥©¥ó¥È¥Õ¥¡¥¤¥ë¤Î¸ºß¼«ÂΤòÃΤꤿ¤¤¤Ê¤é
»ä¤Ê¤é¡¢É¸½àÌ¿Îá¤Î exist Ì¿Îá¤ò»È¤¤¤Þ¤¹¡£

­¡¤«¤é­£¤ÎÃæ¤Ë¡¢»È¤¨¤ë²óÅú¤¬¤¢¤ì¤Ð
Îɤ¤¤Ç¤¹¤¬¡£



UT-X

¥ê¥ó¥¯

2021/9/26(Sun) 11:45:38|NO.93980

Windows10¤Î¾ì¹ç¡¢¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤ë¥Õ¥©¥ó¥È¤Ï C:\Windows\Fonts ¤Ë¤¢¤ê¤Þ¤¹¡£
#include "user32.as"
chdir "C:\\Windows\\Fonts" dirlist list,"k8x12s.ttf" if list=""{ MessageBox hwnd,"¥Õ¥©¥ó¥È k8x12s.ttf¤¬¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤Þ¤»¤ó\n¥Õ¥©¥ó¥È¤ÏFont¥Õ¥©¥ë¥À¤Ë¤¢¤ê¤Þ¤¹","ERROR",16:end } font "k8x12S",20



ÂôÅÏ

¥ê¥ó¥¯

2021/9/26(Sun) 12:12:00|NO.93981

¤Þ¤º¡¢Ê¸»úÎó¤ÎÃæ¤Ë¡Ö\¡×¤ò´Þ¤á¤¿¤¤¤Î¤Ê¤é¡¢¡Ö\\¡×¤È2¸ÄϢ³¤Ç½ñ¤¯É¬Íפ¬¤¢¤ê¤Þ¤¹¡£
¤½¤ì¤«¤é¡¢¥Õ¥©¥ó¥È¤Î¥¤¥ó¥¹¥È¡¼¥ë¾ì½ê¤Ç¤¹¤¬¡¢
¡ÖC:\Users\¥æ¡¼¥¶¡¼Ì¾\AppData\Local\Microsoft\Windows\Fonts¡×¤È
¡ÖC:\Windows\Fonts¡×¤Î2²Õ½ê¤¬¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢¥æ¡¼¥¶¡¼¥Õ¥©¥ë¥À¤À¤±¤ò
¥Á¥§¥Ã¥¯¤·¤Æ¤â¤½¤ì¤À¤±¤Ç¤Ï­¤ê¤Þ¤»¤ó¡£
¡Ê¼ÂºÝ»ä¤Î´Ä¶­¤Ç¤â¡ÖC:\Users\¥æ¡¼¥¶¡¼Ì¾\AppData\Local\Microsoft\Windows¡×¤Ë
¡¡Fonts¤È¤¤¤¦¥Õ¥©¥ë¥À¤Ï¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¡Ë
¤Þ¤¿¡¢¥æ¡¼¥¶¡¼Ì¾¤ËUnicode¤¬´Þ¤Þ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ç¤¹¤È¡¢
hsp3utf¤òÍøÍѤ·¤Ê¤¤¤È¡¢ÉáÄ̤Τä¤êÊý¤Ç¤Ï¥Õ¥©¥ë¥À¤Ë¥¢¥¯¥»¥¹¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£
¡Ê¥¢¥¯¥»¥¹¤Ç¤­¤Ê¤¤¤³¤È¤â¤Ê¤¤¤¬¡¢WinAPI¤ò¶î»È¤¹¤ë¤Ê¤É¡¢¤À¤¤¤ÖÏä¬ÌÌÅݤˤʤë¡Ë

¡Ö¥Õ¥©¥ó¥È¤òƱº­¤·¡¢¤½¤Î¥Õ¥©¥ó¥È¤ò»È¤¤¤¿¤¤¡×¤È¤¤¤¦¤³¤È¤Ê¤é¡¢
»ä¤¬²áµî¤Ë¡Ö¥¤¥ó¥¹¥È¡¼¥ë¤Ê¤·¤Ç¥Õ¥©¥ó¥È¤ò»ÈÍѤ¹¤ë¥â¥¸¥å¡¼¥ë¡×¤ò
ºî¤ê¤Þ¤·¤¿¤Î¤Ç¡¢¤½¤ì¤òÍøÍѤ¹¤ë¤Î¤Ï¤É¤¦¤Ç¤·¤ç¤¦¤«¡©

//¥Õ¥©¥ó¥È¤ò¥¤¥ó¥¹¥È¡¼¥ë¤»¤º¤Ë»ÈÍѤ¹¤ë¥â¥¸¥å¡¼¥ë #include "gdi32.as" #module #const use_fonts 10 //ÅÐÏ¿¤Ç¤­¤ë¥Õ¥©¥ó¥È¤ÎºÇÂç¿ô(Êѹ¹²Äǽ) #const global FR_PRIVATE 0x10 //¡ÖÅÐÏ¿¤·¤¿¥Õ¥©¥ó¥È¤ò¤³¤Î¥×¥í¥°¥é¥à¤À¤±¤Ç»ÈÍѤ¹¤ë¡×¥ª¥×¥·¥ç¥ó #const global FR_NOT_ENUM 0x20 //¡ÖÅÐÏ¿¤·¤¿¥Õ¥©¥ó¥È¤¬¥Õ¥©¥ó¥ÈÁªÂò¥À¥¤¥¢¥í¥°Åù¤Çɽ¼¨¤µ¤ì¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¡×¥ª¥×¥·¥ç¥ó #deffunc font_file_init l_flag=0 dim l_opt,use_fonts sdim l_name,64,use_fonts return //font_file p1,p2,p3 //»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë̾¤Î¥Õ¥©¥ó¥È¤ò°ì»þŪ¤Ë»È¤¨¤ë¤è¤¦¤ËÅÐÏ¿¤¹¤ë¡£ //p1¤Ï¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥¤¥ë̾¡£ //p2¤ò1¤Ë¤·¤¿¾ì¹ç¤Ï¤³¤ì¤Þ¤Ç¤ÎÅÐÏ¿¤ò²ò½ü¡£(¾Êά»þ¤Ï0) //p3¤ÏFR_PRIVATE¤«FR_NOT_ENUM¤«¡¢¤â¤·¤¯¤Ï0¤«¤ò»ØÄê¡£(¾Êά»þ¤ÏFR_PRIVATE¤ÈFR_NOT_ENUM¤ÎξÊý¤È¤âÍ­¸ú) #define global font_file(%1,%2=0,%3=0x30) _font_file %1,%2,%3 #deffunc _font_file str file,int cl_flag,int opt if cl_flag : font_clean if l_flag>=use_fonts : return 0 l_opt(l_flag)=opt l_name(l_flag)=file l_flag++ AddFontResourceEx file,opt,0 if stat=0 : l_flag-- return stat #deffunc font_clean onexit repeat if l_flag<=0 : break l_flag-- RemoveFontResourceEx l_name(l_flag),l_opt(l_flag),0 loop return #global font_file_init //¢«ºÇ½é¤Ë¼Â¹Ô¤¹¤ë //°Ê²¼¡¢»ÈÍÑÎã //¥µ¥Ö¥Õ¥©¥ë¥À¡Öfont¡×¤Ë¡Ök8x12S.ttf¡×¤¬¤¢¤ë¤â¤Î¤È¤¹¤ë¡£ font_file "font\\k8x12S.ttf" //¥Õ¥©¥ó¥È¤Î¥Õ¥¡¥¤¥ë̾¤ò»ØÄê font "k8x12S",20 mes "ÅìµþÆõöµö²Ä¶É"



¤Í¤ó¤Í¤³

¥ê¥ó¥¯

2021/9/26(Sun) 12:16:28|NO.93982

¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£²ò·è¤·¤Þ¤·¤¿¡£



zrs90(5¤µ¤¤)

¥ê¥ó¥¯

2021/9/26(Sun) 13:04:28|NO.93987

»ä¤âÊÙ¶¯¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
³§ÍÍ¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡£

ÂôÅϤµ¤ó¤Î²óÅú¤Ï¡¢os´Ä¶­¤Ë¤è¤ë¥Õ¥©¥ó¥È
¥Ç¥£¥ì¥¯¥È¥ê¤Î°ã¤¤Åù¤ä¡¢¥Õ¥©¥ó¥È¤¬¤Ê¤¤
´Ä¶­¤Ø¤ÎÇÛθ¤Þ¤Ç¤·¤Æ¤¢¤ê¡¢¤¹¤´¤¤¤Ç¤¹¡£
¸å¡¢¥½¡¼¥¹¤Î²Ä»ëÀ­¤ä¡¢¥³¥á¥ó¥È¤¬Æɤߤ䤹¤¤
¤Î¤Ç¡¢²óÅú¤µ¤ì¤Æ¤¤¤ë»þ¤Ï»þ¡¹
»²¹Í¤Ë¤µ¤»¤Æ¤â¤é¤Ã¤Æ¤Þ¤¹¡£



GENKI

¥ê¥ó¥¯

2021/9/26(Sun) 14:50:12|NO.93990

¤â¤¦²ò·è¤·¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¤¬¡¢¤Á¤ç¤Ã¤Èµ¤¤Ë¤Ê¤Ã¤¿¤Î¤ÇÄ´¤Ù¤Þ¤·¤¿¡£
´Ä¶­ÊÑ¿ô¤ò»È¤¦¤È¤³¤ó¤Ê½ñ¤­Êý¤¬¤Ç¤­¤Þ¤¹¡£

#include "hspinet.as" getenv flder, "LOCALAPPDATA" chdir flder + "\\Microsoft\\Windows\\Fonts" dirlist list,"k8x12s.ttf" if list=""{ dialog "¥Õ¥©¥ó¥È k8x12s.ttf¤¬¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤Þ¤»¤ó\n¥Õ¥©¥ó¥È¤ÏFont¥Õ¥©¥ë¥À¤Ë¤¢¤ê¤Þ¤¹", 1, "ERROR" end } font "k8x12S",20
¥Õ¥©¥ó¥È¥Õ¥©¥ë¥À¤Ï´Ä¶­ÊÑ¿ô¤ËÀßÄꤵ¤ì¤Æ¤Ê¤¤¤ó¤Ç¤¹¤Í¡£


´Ä¶­ÊÑ¿ô¤¬ÀßÄꤵ¤ì¤Æ¤¤¤Ê¤¤Æüì¥Õ¥©¥ë¥À¤Ø¤Î¥Ñ¥¹¤ò¼èÆÀ¤¹¤ëÊýË¡¤â¤¢¤ê¤Þ¤·¤¿¡£
CSIDL ÃͤȤ¤¤¦Ãͤò»È¤Ã¤Æ SHGetFolderPathA ´Ø¿ô¤ò»È¤¦¤È¤¤¤¤¤è¤¦¤Ç¤¹¡£¤³¤ÎÊýË¡¤Ê¤éWindows¤Î¥Ð¡¼¥¸¥ç¥ó¤Ë´Ø·¸¤Ê¤¯¼èÆÀ¤Ç¤­¤ë¤Ï¤º¤Ç¤¹¡£

#include "shell32.as" ; http://chokuto.ifdef.jp/urawaza/prm/CSIDL.html #define CSIDL_FONTS 0x0014 flder = "" ; http://chokuto.ifdef.jp/urawaza/api/SHGetFolderPath.html SHGetFolderPath hwnd, CSIDL_FONTS, 0, 0, varptr(flder) mes "¥Ñ¥¹¡§" + flder

fontÌ¿Îá»È¤Ã¤Æ¤ß¤Æstat¤¬ -1 ¤Ê¤é¸ºß¤·¤Æ¤¤¤Ê¤¤¥Õ¥©¥ó¥È¡Ä¤È¤â¹Í¤¨¤¿¤ó¤Ç¤¹¤¬¡¢¤Û¤È¤ó¤É¤Î¾ì¹ç¤ÏÂåÍѤΥե©¥ó¥È¤¬³ä¤êÅö¤Æ¤é¤ì¤Æ¤·¤Þ¤Ã¤Æ 0 ¤Ë¤Ê¤Ã¤Á¤ã¤¦¤ó¤Ç¤¹¤è¤Í¡£¤Á¤ç¤Ã¤Èº¤¤ë»ÅÍÍ¡£



zrs90(5¤µ¤¤)

¥ê¥ó¥¯

2021/9/26(Sun) 16:02:16|NO.93991

GENKI¤µ¤ó¡¡°ÊÁ°¡¢emes ¤ÎÅê¹Æ¤Î·ï¤Ç¤Ï
¤ªÀ¤Ïäˤʤê¤Þ¤·¤¿¡£
º£²ó¤ÎÅê¹Æ¤ò¸«¤Æ¡¢»×¤¤½Ð¤·¤¿»ö¤¬
¤¢¤Ã¤¿¤Î¤Ç¡¢»ä¤â¡¢¤Þ¤¿½ñ¤­¤Þ¤¹¡£

¥¦¥Á¤Î´Ä¶­¤À¤±¤«¤â¡¢ÃΤì¤Þ¤»¤ó¤¬
hspext.dll ¤Ç
¥Ø¥ë¥×¤Ë¤ÏºÜ¤Ã¤Æ¤Ê¤¤¤ó¤Ç¤¹¤¬

#include "hspext.as"
sdim a,260
fxdir a.20
mes ""+a

...¤Ç¡¢¥Õ¥©¥ó¥È¤Î¥Ç¥£¥ì¥¯¥È¥ê¤¬É½¼¨¤µ¤ì¤Þ¤·¤¿¡£
¾¤ÎÆüì¥Ç¥£¥ì¥¯¥È¥ê¤â¡¢Ê̤οôÃÍÆþ¤ì¤¿¤éɽ¼¨¤µ¤ì¤Þ¤¹¡£

repeat〜loop¤Ç0〜64²óÄø²ö¤·¤¿¤é²¿½½¸Ä¤«É½¼¨¤µ¤ì¤Þ¤·¤¿¡£
·ë¹½¡¢°Õ³°¤ÊÆüì¥Ç¥£¥ì¥¯¥È¥ê¤¬³ÎÊݽÐÍè¤ë¤è¤¦¤Ç¤¹¡£

Èô¤ó¤Ç¤ë¿ôÃͤ䡢¥À¥Ö¤ê¡©¤â¤¢¤ê¤Þ¤¹¡£
¸å¡¢²ö¤¹¿ô¤Ç¤¹¤¬64°Ê¾å»ØÄꤷ¤Æ¤â¥à¥À¡£
Windows8¡¿10¤Ïʬ¤«¤ê¤Þ¤»¤ó¤¬¡£

¤¿¤À¤·¡¢¸ø¼°¤Ë¤Ï¡¢ºÜ¤Ã¤Æ¤Ê¤¤¤Î¤Ç¡¢»È¤¨¤Ê¤¯¤Ê¤ë²ÄǽÀ­¤¬
¤¢¤ê¤Þ¤¹¡£



zrs90(5¤µ¤¤)

¥ê¥ó¥¯

2021/9/26(Sun) 16:15:23|NO.93992

ÄûÀµ¡£
¡¡fxdir a,20
¤Ç¤¹¡£. ¤È , ¤ò´Ö°ã¤¨¤Þ¤·¤¿¡£
¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£



GENKI

¥ê¥ó¥¯

2021/9/26(Sun) 21:00:36|NO.93993

>> zrs90(5¤µ¤¤) ¤µ¤ó
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤¢¡¢ËÜÅö¤À¡£CSIDL ÃͤÈÂбþ¤·¤Æ¤¤¤ë¤è¤¦¤Ê¤Î¤ÇÃæ¿È¤ÏƱ¤¸¤Ã¤Ý¤¤¤Ç¤¹¤Í¡£¤³¤ÎÌ¿Îá¤ÏÃΤê¤Þ¤»¤ó¤Ç¤·¤¿¡£
¥À¥Ö¥ê¤Ê¤É¤Ï°ú¿ô¤¬Àµ¤·¤¯¤Ê¤¤¾ì¹ç¤Ê¤Î¤Ç¡¢statÃͤò¸«¤ÆÃƤ±¤Ð¤¤¤¤¤è¤¦¤Ç¤¹¡£

#include "hspext.as" sdim a,260 s = "" repeat 0x30 + 1 fxdir a,cnt if stat = 0 : s += strf("0x%02X", cnt) + " " + a + "\n" loop mesbox s, ginfo_winx, ginfo_winy
fxdirÌ¿Îá¤ÎÀâÌÀ¤ò½¼¼Â¤·¤Æ¤Û¤·¤¤¤Ç¤¹¤Í¡£

¤È¤Ê¤ë¤È²óÅúÎã¤Ï¤³¤¦¤«¡£¡Ê¤â¤¦²ò·è¤·¤Æ¤ë¤±¤Éº£¸åƱ¤¸»ö¤ÇǺ¤àÊý¤Î¤¿¤á¤Ëµ­ºÜ¡£¡Ë

#include "hspext.as" ; ¥Õ¥©¥ó¥È¥Õ¥©¥ë¥À sdim f,260 fxdir f, 0x14 ; ¥Õ¥©¥ó¥È¸¡º÷ chdir f dirlist list, "k8x12s.ttf" if list = ""{ dialog "¥Õ¥©¥ó¥È k8x12s.ttf¤¬¥¤¥ó¥¹¥È¡¼¥ë¤µ¤ì¤Æ¤¤¤Þ¤»¤ó\n¥Õ¥©¥ó¥È¤ÏFont¥Õ¥©¥ë¥À¤Ë¤¢¤ê¤Þ¤¹", 1, "ERROR" end } font "k8x12S",20



zrs90(5¤µ¤¤)

¥ê¥ó¥¯

2021/9/26(Sun) 22:05:06|NO.93994

»ä¤¬¥³¥ì¤Ëµ¤¤¬¤Ä¤¤¤¿¤Î¤Ï¡¢HSP3.32¤Îº¢
¥ä¥±¥¯¥½¤Ë¤Ê¤Ã¤Æ¡¢repeat〜loop¤Ë
¤Ä¤Ã¤³¤ó¤À¤é¡¢²¿¸Î¤«¡¢¥¨¥é¡¼¤Ë¤Ê¤é¤º
¿§¡¹¤Ê¡¢¥Õ¥©¥ë¥À¤¬¼èÆÀ½ÐÍ褿¤ó¤Ç
¶Ã¤­¤Þ¤·¤¿¡£...¥½¡¼¥¹¤ÏpcÆâ¤ËÃÖ¤¤¤Æ¤¢¤Ã¤¿¤ó¤Ç¤¹¤¬
º£²ó¤Î·ï¤¬¤Ê¤±¤ì¤Ð¡¢´°Á´¤Ë˺¤ì¤Æ¤Þ¤·¤¿¡£
...Æ°ºî³Îǧ¡¢¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£

¤¿¤À¡¢ÂôÅϤµ¤ó¤¬½ñ¤¤¤Æ¤¤¤¿¤è¤¦¤Ë¡¢¥æ¥Ë¥³¡¼¥É¤ÎÂбþ¤ä
os¥¤¥ó¥¹¥È¡¼¥ë¾õÂ֤ΰ㤤Åù¤Ë¤è¤ë¡¢¥Õ¥©¥ó¥È¥Õ¥©¥ë¥À¤¬
°ã¤¦¾ì¹ç¤Ï¤É¤¦¤Ê¤ë¤«¡¢Ê¬¤«¤ê¤Þ¤»¤ó¡£



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