谁知道有什么简单的方法知道当前系统是98/2000还是xp

Question

rt

Answer 1

是不是用GetVersion,GetVersionEx之类的

Answer 2

var
  osvi:_osversioninfo;
  Winver: String;
begin  
  osvi.dwOSVersionInfoSize:=sizeof(osversioninfo);
  getversionex(osvi);
  case OSvi.dwPlatformId of
    VER_PLATFORM_WIN32s        : Winver := 'Windows 3.1';
    VER_PLATFORM_WIN32_WINDOWS : Winver:= 'Windows 95/98';
    VER_PLATFORM_WIN32_NT  : Winver := 'Windows NT';
  end;  Label1.Caption:= format('操作系统：%s  ',[Winver]);
end;

Answer 3

除了getversion之类，
操作注册表！