この発言に対し以下のコメントが寄せられています

#00192　Satobe          さん　RE:PC98, DOS/V 機種判定

#00203　熊谷秀武        さん　RE:PC98, DOS/V 機種判定＋エプソン互換機







DOS/V か、PC-98 かを判定する方法です。
フォーム上にラベルを１つ配置して、以下のコードを記述して下さい。

====================================================
function GetMachine : string;
var
   r : integer;
begin
     r := GetKeyboardType(1);// API
     case r of
     $000..$004:  Result := 'DOS/V';
     $D01..$D04:  Result := 'PC98';
     else         Result := 'Others';
     end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
     Label1.Caption := 'This Machine is ' + GetMachine;
end;
====================================================

                              Mata / Masahiro MATAYOSHI
                              from Okinawa, Ginowan city
                              97/11/14(Fri) 02:46am

Original document by Mata            氏 ID:(GHE04400)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。