CPU情報

[TISAproject]

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

[たかせ]

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

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

[TISAproject]

はい。
DYNABOOKです

[TISAproject]

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

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

となってしまいます。

[たかせ]

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

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

となってしまいます。

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

[TISAproject]

コード: 全て選択

#include ""

でいいのでしょうか

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

[たかせ]

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

#include ""は不要です。

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

'SYSTEM_INFO構造体の定義
DIM SYSINF AS SYSTEM_INFO
・
中略
・
'WIN32 API GetSystemInfoを呼び出す
GetSystemInfo(SYSINF)

[TISAproject]

コード: 全て選択

DIM SYSINF AS SYSTEM_INFO

GetSystemInfo(SYSINF)

#console

print SYSINF

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

となってしまいます。

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

[たかせ]

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

[TISAproject]

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

[たかせ]

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

Win32 APIのSetConsoleTitleで変更できるようです。
ABのヘルプに載っていませんので使用方法はSetConsoleTitleで検索してみてください

[TISAproject]

ありがとうございます。

[TISAproject]

コード: 全て選択

SetWindowText(SetConsoleTitle, "TEST" )

でできなかったのですが、どうすればいいですか？

[たかせ]

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]

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

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