可用分押宝游戏火热进行中...	专题改版：Java Web 专题

如何判断当前用户用的是什么操作系统？？

楼主xwy55555（我在谁的舞台扮演谁）2003-08-03 22:53:00 在 Delphi / VCL组件开发及应用提问

如何判断当前用户用的是什么操作系统？？
如windows/linux/unix
如果是windows,又分别是什么版本？

请高手指教，谢谢
问题点数：100、回复次数：11Top

1 楼xybh97102（冰点）回复于 2003-08-03 23:08:53 得分 50

这里找了一个判断是Windows的何种操作系统的函数;
function GetOSInfo:string;
var
Platform: string;
BuildNumber: Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
begin
Platform := 'Windows 95/98';
BuildNumber := Win32BuildNumber and $0000FFFF;
end;
VER_PLATFORM_WIN32_NT:
begin
Platform := 'Windows NT';
BuildNumber := Win32BuildNumber;
end;
else
begin
Platform := 'Windows';
BuildNumber := 0;
end;
end;
if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or
(Win32Platform = VER_PLATFORM_WIN32_NT) then
begin
if Win32CSDVersion = '' then
Result := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber])
else
Result := Format('%s %d.%d (Build %d: %s)', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber, Win32CSDVersion]);
end
else
Result := Format('%s %d.%d', [Platform, Win32MajorVersion,
Win32MinorVersion])
end;Top

2 楼qevan（guodong）回复于 2003-08-03 23:14:39 得分 40

ft,如果你编译好的exe，到linux上能运行么？
判断又有和用，判断是什么版本的还有点用

在delphi中程序中可一用条件编译来区分linux/win
{$IFDEF MSWINDOWS}

{$ENDIF}
{$IFDEF LINUX}

{$ENDIF}Top

3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2003-08-03 23:16:04 得分 10

OS的版本可以判定的，类型是不能的Top

4 楼xwy55555（我在谁的舞台扮演谁）回复于 2003-08-04 08:20:06 得分 0

为什么很多论坛里面可以判断操作系统的类型和版本呢？？Top

5 楼failer（独败）回复于 2003-08-04 08:40:46 得分 0

看看Top

6 楼hongqi162（失踪的月亮）回复于 2003-08-04 08:48:51 得分 0

路过！
学习学习！Top

7 楼FrameSniper（http://naoku.net/blogs/framesniper/）回复于 2003-08-04 08:51:43 得分 0

支持Qevan的说法！Top

8 楼bxh2dai（希望明天会有些改变）回复于 2003-08-04 09:00:43 得分 0

Qevan说得对~！Top

9 楼fhuibo（永远深爱一个叫“莎”的好女孩儿）回复于 2003-08-04 09:05:40 得分 0

学习！Top

10 楼gaogoat（高山上的羊）回复于 2003-08-04 09:07:37 得分 0

继续学习，指的是我！Top

11 楼ld9702（ld）回复于 2003-08-04 09:11:36 得分 0

路过！
学习学习！
Top