ab.com コミュニティ
https://www.activebasic.com/forum/

CPU情報
https://www.activebasic.com/forum/viewtopic.php?t=4599
ページ 12

作成者:  TISAproject [ 2016年10月12日(水) 15:35 ]
記事の件名:  CPU情報

CPU情報を取得する方法を教えてください。

作成者:  たかせ [ 2016年10月12日(水) 16:23 ]
記事の件名:  Re: CPU情報

どのような情報が必要なのかわかりませんが、
Win32 API GetSystemInfoで取得できるようです。
詳細はABのヘルプにも載ってますのでここをご確認ください。

#ところで、TISAprojectさんもWINDOWS 10/64BIT版のPCされているようですね?

作成者:  TISAproject [ 2016年10月12日(水) 18:02 ]
記事の件名:  Re: CPU情報

はい。
DYNABOOKです

作成者:  TISAproject [ 2016年10月12日(水) 18:11 ]
記事の件名:  Re: CPU情報

Declare Sub GetSystemInfo Lib "kernel32" _
(ByRef lpSystemInfo As SYSTEM_INFO)

"GetSystemInfo" はすでに定義されています

となってしまいます。

作成者:  たかせ [ 2016年10月12日(水) 19:24 ]
記事の件名:  Re: CPU情報

引用:
Declare Sub GetSystemInfo Lib "kernel32" _
(ByRef lpSystemInfo As SYSTEM_INFO)

"GetSystemInfo" はすでに定義されています

となってしまいます。
ヘルプに記載されているWIN32 API関数はABのINCLUDEファイルに定義されていますので不要です。
具体的にはAB4のディレクトリの下にIncludeというフォルダがありその中にapi_system.sbpの372行目にあります。

作成者:  TISAproject [ 2016年10月12日(水) 20:42 ]
記事の件名:  Re: CPU情報

コード:

#include ""

でいいのでしょうか

ℓ372 をコピーして、貼り付けてもおなじエラーが発生してしまいます。

作成者:  たかせ [ 2016年10月12日(水) 20:51 ]
記事の件名:  Re: CPU情報

何も指定しないでください。

#include ""は不要です。

次のようにすればOKです。

'SYSTEM_INFO構造体の定義
DIM SYSINF AS SYSTEM_INFO

中略

'WIN32 API GetSystemInfoを呼び出す
GetSystemInfo(SYSINF)

作成者:  TISAproject [ 2016年10月13日(木) 19:02 ]
記事の件名:  Re: CPU情報

コード:
DIM SYSINF AS SYSTEM_INFO

GetSystemInfo(SYSINF)

#console

print SYSINF
で、
"SYSINF" 型が違います
型が違います

となってしまいます。

DOSプロントで表示するにはどうすればいいですか?

作成者:  たかせ [ 2016年10月13日(木) 19:12 ]
記事の件名:  Re: CPU情報

SYSINFはSYSTEM_INFO構造体として定義されているので、単純にPRINT SYSINFだと型が違うという理由でコンパイルエラーになります。
SYSTEM_INFO構造体の詳細はヘルプに記載されていますのでこちらをご確認下さい。
たとえば、PCのメモリページのサイズを表示するときは、
PRINT SYSINF.dwPageSizeと記載すればOKです。

作成者:  TISAproject [ 2016年10月14日(金) 17:45 ]
記事の件名:  Re: CPU情報

DOSプロントで、タイトルバーの文字列を変更するにどうすればいいでしょう?

作成者:  たかせ [ 2016年11月09日(水) 19:45 ]
記事の件名:  Re: CPU情報

引用:
DOSプロントで、タイトルバーの文字列を変更するにどうすればいいでしょう?
Win32 APIのSetConsoleTitleで変更できるようです。
ABのヘルプに載っていませんので使用方法はSetConsoleTitleで検索してみてください

作成者:  TISAproject [ 2016年11月10日(木) 16:33 ]
記事の件名:  Re: CPU情報

ありがとうございます。

作成者:  TISAproject [ 2016年11月13日(日) 11:13 ]
記事の件名:  Re: CPU情報

コード:
SetWindowText(SetConsoleTitle, "TEST" )
でできなかったのですが、どうすればいいですか?

作成者:  たかせ [ 2016年11月13日(日) 21:26 ]
記事の件名:  Re: CPU情報

SetWindowTextでコンソールのタイトル変更はできません。
以下に使用例を記載します。
流れとして
①GetConsoleTitleで現在のコンソールのタイトル取得
②MessageBox関数で取得したコンソールのタイトルを表示
③SetConsoleTitleで現在のコンソールのタイトルを"コンソールタイトル変更"に変更
④①と同様
⑤②と同様
#console
DIM TEXT[255] AS Char
GetConsoleTitle(TEXT,255)
MessageBox(NULL,TEXT,"TEST",MB_OK)
SetConsoleTitle("コンソールタイトル変更")
GetConsoleTitle(TEXT,255)
MessageBox(NULL,TEXT,"TEST",MB_OK)
END
ご確認下さい。

作成者:  TISAproject [ 2016年11月14日(月) 22:36 ]
記事の件名:  Re: CPU情報

"SetConsoleTitle" 無効な識別子です
"GetConsoleTitle" 無効な識別子です

と、なってしまうのですが (AB4.24)

ページ 12 全ての表示時間は UTC+09:00 です
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/