var
vi:TOSVersionInfo;
begin
...
GetVersionEx(vi) ;
...
vi:TOSVersionInfo;
begin
...
GetVersionEx(vi) ;
...
解决方案 »
- 安装程序能加注册码吗?
- 在Delphi中,如何自定义函数?
- 再次高分求教:同一个XML文件内,有多个重复节点,如何分别取值?
- 跪求问题解决方法!!不够开贴再给!!
- 怎样转化日期格式
- 这里有没有西南交大的朋友啊(总校,分校都算),大家出来漏个脸
- 请高手指点一个线程优先级控制问题!
- 随有本事就来拿分,关于dll文件的调用
- Qreport不能打印 custom?
- 如何在Delphi的ServerSocket控件中使用自己定义的阻塞线程?
- 请问,用delphi开发的程序,想用asp调用,有几种调用方式或者说我该怎样做才好
- delphi6.0该出补丁,许多外部的activeX控件从delphi5.0移植到delphi6.0后出了一大堆问题?
var
IdiomaID:LangID;
Idioma: array [0..100] of char;
begin
IdiomaID:=GetSystemDefaultLangID;
VerLanguageName(IdiomaID,Idioma,100);
Result:=String(Idioma);
end;