ab.com コミュニティ

ありがとうございました。

[quote="TISAproject"]"SetConsoleTitle" 無効な識別子です
"GetConsoleTitle" 無効な識別子です

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

大変申し訳ありませんでした。
AB5がメインなのでまったく気が付きませんでした。
AB5ではINCLUDEファイルに関数の定義されていますが、AB4では関数の定義がされていません。
AB4の場合はプログラムの先頭に以下の2行追加してください。
Declare Function GetConsoleTitle Lib "kernel32" Alias "GetConsoleTitleA" (lpConsoleTitle As LPSTR, nSize As DWord) As DWord
Declare Function SetConsoleTitle Lib "kernel32" Alias "SetConsoleTitleA" (lpConsoleTitle As LPSTR) As BOOL
ご確認ください。

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

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

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
ご確認下さい。

SetWindowText(SetConsoleTitle, "TEST" )

[code]SetWindowText(SetConsoleTitle, "TEST" )[/code]
でできなかったのですが、どうすればいいですか？

ありがとうございます。

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

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

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

DIM SYSINF AS SYSTEM_INFO

GetSystemInfo(SYSINF)

#console

print SYSINF

[code]DIM SYSINF AS SYSTEM_INFO

GetSystemInfo(SYSINF)

#console

print SYSINF
[/code]

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

となってしまいます。

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

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

#include ""は不要です。

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

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

#include ""

[code]

#include ""

[/code]

でいいのでしょうか

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

[quote="TISAproject"]Declare Sub GetSystemInfo Lib "kernel32" _
(ByRef lpSystemInfo As SYSTEM_INFO)

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

となってしまいます。[/quote]

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

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

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

となってしまいます。

はい。
DYNABOOKです