16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"RE:PC98, DOS/V 機種判定+エプソン互換機"
この発言は #00190 Mata さんのPC98, DOS/V 機種判定 に対するコメントです
#190 Mata さん
エプソンの98互換機ノートで実験してみたら、$0441 が返ってきました。
case r of
$0000..$0004: Result := 'DOS/V';
$0441..$0441: Result := 'PC98'; { Epson Note AU,AV,AT }
$0D01..$0D06: Result := 'PC98';
else Result := 'Others($'+IntToHex(r,4)+')';
end; { case }
サンプル蔵って役に立ちますね。
97/11/21(Fri) 01:16pm GGB03124 熊谷秀武
Original document by 熊谷秀武 氏 ID:(GGB03124)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|