给你一条函数 function IsWinNT():boolean; var OSVersionInfo:TOSVERSIONINFO; begin OSVersionInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO); GetVersionEx(OSVersionInfo); if(OSVersionInfo.dwPlatformId= VER_PLATFORM_WIN32_NT)then result:=true else result:=false; end;如果它返回是真值的话那就加载Netapi32.dll,假值的话加载 svrapi.dll
function IsWinNT():boolean;
var
OSVersionInfo:TOSVERSIONINFO;
begin
OSVersionInfo.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(OSVersionInfo);
if(OSVersionInfo.dwPlatformId= VER_PLATFORM_WIN32_NT)then
result:=true else result:=false;
end;如果它返回是真值的话那就加载Netapi32.dll,假值的话加载 svrapi.dll