請問如何得到電腦運行的操作系統和版本? 請問如何得到電腦運行的操作系統和版本?98,98 se,xp home,xp pro,nt,2000...... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TfmAbout.GetOSInfo;var Platform: string; BuildNumber: Integer;begin case Win32Platform of VER_PLATFORM_WIN32_WINDOWS: begin Platform := 'Windows 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 Label1.Caption := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion, Win32MinorVersion, BuildNumber]) else Label1.Caption := Format('%s %d.%d (Build %d: %s)', [Platform, Win32MajorVersion, Win32MinorVersion, BuildNumber, Win32CSDVersion]); end else Label1.Caption := Format('%s %d.%d', [Platform, Win32MajorVersion, Win32MinorVersion])end;procedure TfmAbout.FormCreate(Sender: TObject);begin GetOSInfo;end; 急求参考文献 远程连接 本机用ADSL上网后获取的外网IP 关于DELPHI内嵌汇编指令的问题!!!急~~~在线等待~~~ 要怎样才能让主窗体在托盘程式中移动呢? 请教:怎样设置自己创建的组件的初始值? 如何控制自制组件的外观和大小? 在delphi中使用什么报表控件打印的报表效果较好 Delphi多线程同步中的临界区问题 硬盘序列号(出厂就有的那种)最多几个字节 请教EditPlus的注册码!!! 如何在拖放过程中改变鼠标的光标? 128个2进制串转16进制
var
Platform: string;
BuildNumber: Integer;
begin
case Win32Platform of
VER_PLATFORM_WIN32_WINDOWS:
begin
Platform := 'Windows 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
Label1.Caption := Format('%s %d.%d (Build %d)', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber])
else
Label1.Caption := Format('%s %d.%d (Build %d: %s)', [Platform, Win32MajorVersion,
Win32MinorVersion, BuildNumber, Win32CSDVersion]);
end
else
Label1.Caption := Format('%s %d.%d', [Platform, Win32MajorVersion,
Win32MinorVersion])
end;procedure TfmAbout.FormCreate(Sender: TObject);
begin
GetOSInfo;
end;