以下是我写的一个判断是否为NT系统的函数,但未做细分(是95、98还是NT4、2000),你可以修改一下完成详细检测。//---------------------------------------------------------------------
// 函数名:IsNTSystem
// 功能描述:判断操作系统是否NT
// 入口参数:无
// 返回值:如果操作系统是NT则返回True
// 作者:JoyHero
// 创建日期:2001.06.28
//---------------------------------------------------------------------
function IsNTSystem: Boolean;
var
MyVersionInfo: TOSVersionInfo;
begin
MyVersionInfo.dwOSVersionInfoSize:=sizeof(TOSVERSIONINFO);
if GetVersionEx(MyVersionInfo) then
begin
if MyVersionInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
Result:=true
else
Result:=false;
end
else
Result:=false;
end;
// 函数名:IsNTSystem
// 功能描述:判断操作系统是否NT
// 入口参数:无
// 返回值:如果操作系统是NT则返回True
// 作者:JoyHero
// 创建日期:2001.06.28
//---------------------------------------------------------------------
function IsNTSystem: Boolean;
var
MyVersionInfo: TOSVersionInfo;
begin
MyVersionInfo.dwOSVersionInfoSize:=sizeof(TOSVERSIONINFO);
if GetVersionEx(MyVersionInfo) then
begin
if MyVersionInfo.dwPlatformId=VER_PLATFORM_WIN32_NT then
Result:=true
else
Result:=false;
end
else
Result:=false;
end;
写一个判断windows版本的程序放在目标机,然后在自己的机子上做一个程序,运行就启动目标机的程序,目标机上的程序取得版本号通过网络把数据传到自己的电脑上随便说说,我也没试过,功力还不够:)
信息格大概可以这样写!
GETWINDOWSVERSION 192.1.1.1
I:=POS(' ',TRIM(S))可以确定命令的最后字符!
命令名为: COPY(S,0,I);
在接收端取得版本后,回传到192.1.1.1!
呵呵!