Delphi で Windows Vista かどうかを判別する関数。どこかにメモったはずだけど、検索でひっかからなかったので再掲。

function isWindowVista: Boolean;
var
  major,minor: LongInt;
  Info: TOSVersionInfo;
begin
  Info.dwOSVersionInfoSize := SizeOf(Info);
  GetVersionEx(Info);
  Major := Info.dwMajorVersion ;
  Minor := Info.dwMinorVersion ;
  //Result := (Major = 5) and (Minor = 1); // XP
  Result := (Major = 6);
end;

ちょっとした時に使いそう。

• ついでに、権限昇格の場合は、以下に詳しい話が載ってます。
• http://plaza.rakuten.co.jp/wblue/diary/200711040000/

※はまったメモ：Delphi7の実行がおかしいので、いつも互換性モードで実行したのですが、そうすると、OSのバージョンがXPになってました。大失敗。

コメント †