名前 題名 ▼ Mr.XRAYさん > > そのために,NativeInt, NativeUInt が用意されています. > > 例えば以下のコードを実行すると, > 32 ビットの EXE では 32 ビットの値に, > 64 ビットの EXE では 64 ビットの値になります. > > > procedure TForm1.Button1Click(Sender: TObject); > var > LText : string; > LValue : UInt64; > begin > LValue := High(NativeUInt); > LText := IntToHex(LValue, 20); > > LText := 'NativeUInt' + sLineBreak + 'Delphi XE5 32 bit EXE' + sLineBreak + LText; > MessageBox(Handle, PChar(LText), '結果', MB_ICONINFORMATION); > end; > > > Windows 7 U64(SP1) で実行した結果 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link