大家不吝赐教啊!!!!

1.如何检测本机上安装了几个WINDOWS操作系统？如：WIN98，WINME，WIN2000，WINXP？2.如何检测当前正在使用的是什么操作系统？3.如何在WIN98和WIN2000系统下，在程序里执行：注销、休眠、关机、重启等操作？

解决方案 »

  1.   

    这些事一时半会说不明白.
    去看windows的API函数参考,这些系统操作API都可以解决.
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    Var
    OSVI:OSVERSIONINFO;
    begin
    OSVI.dwOSversioninfoSize:=Sizeof(OSVERSIONINFO);
    GetVersionEx(OSVI);
    label1.Caption:=IntToStr(OSVI.dwMinorVersion);
    label2.Caption:=IntToStr(OSVI.dwMinorVersion);
    label3.Caption:=IntToStr(OSVI.dwBuildNumber);
    label4.Caption:=IntToStr(OSVI.dwPlatformId);
    label5.Caption:=OSVI.szCSDVersion;
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
      sysinfo:system_info;
    begin
      getsysteminfo(sysinfo);
      label6.Caption:=IntToStr(Sysinfo.dwNumberOfProcessors);
    end;
      

  3.   

    SetSystemPowerState(False, True);  //Forces the system down 
    SetSystemPowerState(True, False); //Makes a "soft" off
      

  4.   

    3.如何在WIN98和WIN2000系统下，在程序里执行：注销、休眠、关机、重启等操  
      作？