お知らせ

電子会議

ライブラリ

パレット

Delphi FAQ検索

Delphi FAQ一覧

サンプル蔵





FDelphi FAQ
16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル

"PC98, DOS/V 機種判定"

この発言に対し以下のコメントが寄せられています
#00192 Satobe さん RE:PC98, DOS/V 機種判定
#00203 熊谷秀武 さん RE:PC98, DOS/V 機種判定+エプソン互換機

DOS/V か、PC-98 かを判定する方法です。 フォーム上にラベルを1つ配置して、以下のコードを記述して下さい。 ==================================================== 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蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。

Copyright 1996-2002 Delphi Users' Forum