Delphi/C++Builder で システムフォントを取得(手抜き版)

Delphi/C++Builder で システムフォントを取得する手続きの手抜き版

ステータスバーを利用したアプリの話ですが、StatusBar のUseSystemFont が True(デフォルト)になっていると、StatusBar の Font プロパティは、システムフォントになるので、実行時にソレを拝借します