怎样判别操作系统(5分)

X

xxxfff_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #1

怎样判别操作系统是NT、2000、98、还是XP呢？

 

宁

宁柯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #2

if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
{ 操作系统为WINNT或者WIN2000或者WINXP}
end
else begin
{ 操作系统为WIN95或者WIN98}
end;

 

宁

宁柯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #3

我说楼主，刚看清楚，您给的分太少了吧！ 我从来不回答少于100分的问题，今天没看清分数，白答了！ 哈哈哈哈哈哈

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #4

宁柯 真是作了回好人！
function SystemVersion: DWORD;
var
FVersion : _OSVERSIONINFOA;//可以看MsDn
begin
FVersion.dwOSVersionInfoSize := SizeOf(_OSVERSIONINFOA);
GetVersionEx(FVersion);
Result := FVersion.dwMajorVersion;
end;
dwMajorVersion = 5 2K, XP(再根据OSVERSIONINFOA的其他来判断)
= 4 98,95 ME

看MSDN你就知道了

 

X

xxxfff_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-29

• #5

感谢各位啊，让我捡了个大便宜。
由于小弟是个新手，问题太多，不得不省着点用，再说咱分也不足100了。
咱有的时候一定补上。还请多关照。

 

X

xxxfff_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-29

• #6

接受答案了.