ck11926375的专栏

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click

function TForm1.GetOSVersion:String;var OSVersion:TOSVersionInfo;begin  OSVersion.dwOSVersionInfoSize:=SizeOf(OSVersion);  GetVersionEx(OSVersion);  case OSVersion.dwPlatformId of    VER_P