HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
0111
たこたこHSPで、モニター2画面両方フルスクリーンにすることはできますか?1未解決


たこたこ

リンク

2015/1/11(Sun) 17:06:08|NO.66937

HSPで、モニター2画面両方フルスクリーンにすることはできますか?2画面使っている人用
の仕様を作りたいので。



この記事に返信する


kanahiron

リンク

2015/1/11(Sun) 17:54:46|NO.66938

過去のHSP掲示板でabcさんが作ったモジュールがあります
http://www.onionsoft.net/hsp/beta/log/26.html
の[8126] です


#module #uselib "user32.dll" #cfunc EnumDisplayMonitors "EnumDisplayMonitors" sptr, sptr, sptr, int #func GetMonitorInfo "GetMonitorInfoA" sptr, sptr #define FALSE 0 #define TRUE 1 #define NULL 0 #define MaxMonitors 16 #define MaxRectParameters 4 #define MaxParameters 5 #define Prm_API 0 #define Prm_max 1 #define Prm_cnt 2 #define Prm_idx_primary 3 #define Prm_ptr_rects 4 // 初期化 ret = GMIinit( 最大値 ); // 最大値は数えるディスプレイの最大数。1以上MaxMonitors以下の値。 // 成功ならretは0以外の値、失敗なら0。 #defcfunc GMIinit int max; if ( (max < 1) || (max > MaxMonitors) ) { return FALSE; } dim prm, (MaxParameters + 1); dim rects, ((max + 1) * MaxRectParameters); dim bin, (23 + 1); dim a_stat mref a_stat, 64; bin( 0) = 0x83ec8b55, 0x5653d8c4, 0x145d8b57, 0x28d845c7, 0x8d000000; bin( 5) = 0x8b50d845, 0xff520855, 0x75c08513, 0xebc03304, 0xfc558b2e; bin(10) = 0x7501fa83, 0x084b8b06, 0x8b0c4b89, 0x538b0843, 0x04e0c110; bin(15) = 0x8b104d8b, 0x0004b9f1, 0x3c8d0000, 0x0001b802, 0xa5f30000; bin(20) = 0x5f0843ff, 0xe58b5b5e, 0x0010C25D; prm(Prm_API) = varptr(GetMonitorInfo); prm(Prm_max) = max; prm(Prm_cnt) = 0; prm(Prm_idx_primary) = 0; prm(Prm_ptr_rects) = varptr(rects); ret = EnumDisplayMonitors(NULL, NULL, varptr(bin), varptr(prm)); return ret; // ディスプレイの数を取得しstatに格納。失敗は負数。 #deffunc GMIcnt if (ret == FALSE) { a_stat = -1; } else { a_stat = prm(Prm_cnt); } return; // プライマリー・ディスプレイのインデックスを取得しstatに格納。失敗は負数。 #deffunc GMIprimary if (ret == FALSE) { a_stat = -1; } else { a_stat = prm(Prm_idx_primary); } return; // 指定したディスプレイの、仮想画面内の座標を取得。 // ret = GMIrect(idx, rect); // 成功 : retは0以外。rectに座標を格納。 // rect(0) : 左上X座標, rect(1) : 左上Y座標, // rect(2) : 右下X座標, rect(3) : 右下Y座標 // 失敗 : retは0。 rectは不定。 #defcfunc GMIrect int idx, array rect if ( (ret == FALSE) || (idx < 0) || (idx >= prm(Prm_cnt)) ) { return FALSE; } work = idx * MaxRectParameters; rect(0) = rects(work + 0); rect(1) = rects(work + 1); rect(2) = rects(work + 2); rect(3) = rects(work + 3); return TRUE; // 後始末 #deffunc GMIclear dim prm, 1; dim rects, 1; dim bin, 1; ret = FALSE; return; #global ret = GMIinit(4) if ret != 0{ GMIcnt discnt = stat if discnt != -1{ GMIprimary dispri = stat dim dispostemp,4 dim disinfo,discnt,6 dim disinfo2,8 repeat discnt dim dispostemp,4 if GMIrect(cnt,dispostemp) = 0:discnt = -1:break disinfo(cnt,0) = dispostemp(0) //poslx プライマリーディスプレイから見たn番目のディスプレイの左上x座標 disinfo(cnt,1) = dispostemp(1) //posly プライマリーディスプレイから見たn番目のディスプレイの左上y座標 disinfo(cnt,2) = dispostemp(2) //posrx プライマリーディスプレイから見たn番目のディスプレイの右下x座標 disinfo(cnt,3) = dispostemp(3) //posrx プライマリーディスプレイから見たn番目のディスプレイの右下y座標 disinfo(cnt,4) = dispostemp(2)-dispostemp(0) //n番目のディスプレイの幅 disinfo(cnt,5) = dispostemp(3)-dispostemp(1) //n番目のディスプレイの高さ loop repeat discnt if disinfo2(0) >= disinfo(cnt,0):disinfo2(0) = disinfo(cnt,0) //個々のディスプレイで一番小さいx座標 if disinfo2(1) >= disinfo(cnt,1):disinfo2(1) = disinfo(cnt,1) //個々のディスプレイで一番小さいy座標 if disinfo2(2) <= disinfo(cnt,2):disinfo2(2) = disinfo(cnt,2) //個々のディスプレイで一番大きいx座標 if disinfo2(3) <= disinfo(cnt,3):disinfo2(3) = disinfo(cnt,3) //個々のディスプレイで一番大きいy座標 loop disinfo2(4) = -1 * (0 - disinfo2(0)) //ディスプレイ全体の最左座標 disinfo2(5) = -1 * (0 - disinfo2(1)) //ディスプレイ全体の最上座標 disinfo2(6) = abs(disinfo2(0)) + abs(disinfo2(2)) //ディスプレイ全体の横幅 disinfo2(7) = abs(disinfo2(1)) + abs(disinfo2(3)) //ディスプレイ全体の縦幅 } } else { dialog "初期化失敗" end } GMIclear sdim message,1024 message += strf("%d枚のディスプレイがあります\n",discnt) message += strf("プライマリーディスプレイは%d枚目です\n\n",dispri) repeat discnt message += strf("%d枚目のディスプレイの情報\n",cnt) message += strf("\t左上座標(%4d,%4d)",disinfo(cnt,0),disinfo(cnt,1)) message += strf(" 右下座標(%4d,%4d)",disinfo(cnt,2),disinfo(cnt,3)) message += strf(" 幅%4dpx,高さ%4dpx\n",disinfo(cnt,4),disinfo(cnt,5)) loop mesbox message,640,480 stop
自分はこのようにして使わせて頂いています



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