unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, CommDlg;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME,
osXP);var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
os:TosVersion;
osVersion:string;
begin
os:=Getos;
case OS of
os95, os95OSR2: OSVersion:='Windows 95';
os98: OSVersion:='Windows 98';
os98SE: OSVersion:='Windows 98 第二版';
osME: OSVersion:='Windows Millenium Edition';
osNT3, osNT4: OSVersion:='Windows NT';
os2K: OSVersion:='Windows 2000';
osXP: OSVersion:='Windows XP';
end;
showmessage(osversion);
end;
end.为什么一编绎的时候总是在os:=Getos;出错。如何修改?????
谁如果能说明原理。或讲解一下送66分。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,StdCtrls, CommDlg;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TOSVersion = (osUnknown, os95, os95OSR2, os98, os98SE, osNT3, osNT4, os2K, osME,
osXP);var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
os:TosVersion;
osVersion:string;
begin
os:=Getos;
case OS of
os95, os95OSR2: OSVersion:='Windows 95';
os98: OSVersion:='Windows 98';
os98SE: OSVersion:='Windows 98 第二版';
osME: OSVersion:='Windows Millenium Edition';
osNT3, osNT4: OSVersion:='Windows NT';
os2K: OSVersion:='Windows 2000';
osXP: OSVersion:='Windows XP';
end;
showmessage(osversion);
end;
end.为什么一编绎的时候总是在os:=Getos;出错。如何修改?????
谁如果能说明原理。或讲解一下送66分。
解决方案 »
- 如何让BS结构登记系统使用本地摄像机抓图!
- 如何在数据库表中取出某个字段的一个值?
- 青岛程序员请进,本地原创另类歌曲。想听的进。
- 求jedi-directx7头文件,那里有的下载,我的EMAIL:[email protected],QQ:52943597
- 需要d7的下栽地址!http的
- 愿意为这个问题出一千分:有谁知道知道32位色下的点的颜色混合怎么算吗?
- delphi中的IO函数?
- D6+sqlsever,如何加快ADOTable的Append过程?
- 那里有installshield6.3的东方汉化资源包下载
- 98分询问工具栏制作最佳方法
- Delphi 操縱*.ini文件(高手請進)
- 关于一次在dbgrid控件中删除n条数据的问题。
是吗?如果是,你的GetOS函数在哪里啊?
没有就没办法了
he GetSystemInfo function returns information about the current system. VOID GetSystemInfo( LPSYSTEM_INFO lpSystemInfo // address of system information structure
);
ParameterslpSystemInfoPoints to a SYSTEM_INFO structure to be filled in by this function. Return ValuesThis function does not return a value.
var
OS :TOSVersionInfo;
begin
ZeroMemory(@OS,SizeOf(OS));
OS.dwOSVersionInfoSize:=SizeOf(OS);
GetVersionEx(OS);
Result:=osUnknown;
if OS.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
case OS.dwMajorVersion of
3: Result:=osNT3;
4: Result:=osNT4;
5: Result:=os2K;
end;
if (OS.dwMajorVersion=5) and (OS.dwMinorVersion=1) then
Result:=osXP;
end else begin
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=0) then begin
Result:=os95;
if (Trim(OS.szCSDVersion)='B') then
Result:=os95OSR2;
end else
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=10) then begin
Result:=os98;
if (Trim(OS.szCSDVersion)='A') then
Result:=os98SE;
end else
if (OS.dwMajorVersion=4) and (OS.dwMinorVersion=90) then
Result:=osME;
end;
end;
http://bydxj.com.cn/grzy/suker/delphi/getsystem.rar
大家看下。
TechnoFantasy得分。