2007-02-19から1日間の記事一覧
function getWinVersion: string; var Major,Minor: LongInt; Info: TOSVersionInfo; begin Info.dwOSVersionInfoSize := SizeOf(Info); GetVersionEx(Info); Major := Info.dwMajorVersion ; Minor := Info.dwMinorVersion ; case major of 4://95/98/ME/NT…