-
版主等级
本版专家分：1244结帖率 97.96% -
是不是使用IsWinNT()，这个函数需要uses什么库呢？如果无此函数，如何判断？展开阅读全文
-
等级
本版专家分：1400
-
function IsWinNt: Boolean;
var
WinVersion: TOSVersionInfo;
begin
WinVersion.dwOSVersionInfoSize := SizeOf(WinVersion);
GetVersionEx(WinVersion);
Result := WinVersion.dwPlatformId = VER_PLATFORM_WIN32_NT;
end;
-
等级
本版专家分：6160 -
if
(Win32Platform <> VER_PLATFORM_WIN32_WINDOWS)
or (Win32MajorVersion > 4) then
begin
.....do anything for winNT or greater
end;
-
等级
本版专家分：1808 -
SysUtils单元有一组变量：
Win32Platform
Win32MajorVersion
Win32MinorVersion
Win32BuildNumber
Win32CSDVersion
可以判断出操作系统的版本。
具体意思：
Win32MajorVersion：
Windows 95 4
Windows 98 4
Windows Me 4
Windows NT 3.51 3
Windows NT 4.0 4
Windows 2000 5
Windows XP 5
Windows .NET Server 5
Win32MinorVersion：
Windows 95 0
Windows 98 10
Windows Me 90
Windows NT 3.51 51
Windows NT 4.0 0
Windows 2000 0
Windows XP 1
Windows .NET Server 1
Win32Platform：
VER_PLATFORM_WIN32s --- Win32s on Windows 3.1.
VER_PLATFORM_WIN32_WINDOWS --- Windows 95, Windows 98, or Windows Me.
VER_PLATFORM_WIN32_NT --- Windows NT 3.51, Windows NT 4.0, Windows 2000, Windows XP, or Windows .NET Server.
更详细的说明查阅MSDN中关于GetVersionEx 函数和OSVERSIONINFO结构的说明。
-
等级
本版专家分：7602
-
GetVersionEx
- 在Delphi编程中获取操作系统信息
在Delphi编程中获取操作系统信息 我们日常的编程中，常常会去判断用户所使用的操作系统是什么？为什么要这么做，因为：为了使应用程序适应不同的操作系统，能让它运行得更好！如在运行某个应用程序前，应先判断用户...
- Delphi中判断操作系统是否是Windows7
Delphi2007编译的时候去掉GetVersionExA(@VI)中的@ function GetWindowsVersionString: AnsiString;varVI: TOSVersionInfoA;beginVI.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA);if GetVersionExA(@VI) then...
- (转)Delphi获取windows系统版本信息
unit WindowsSysVersion;...uses windows ;{$IFDEF CONDITIONALEXPRESSIONS}{$IF Defined(TOSVersionInfoEx)}{$DEFINE TOSVERSIONINFOEX_DEFINED}{$IFEND}{$ENDIF}{$IFNDEF TOSVERSIONINFOEX_DEFINED}ty...
- Delphi中判断Windows操作系统版本
unit GetSystemVersion;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vc...
- 用Delphi 获取系统名称 判断是XP/Win7/Win8/Win10 等
代码如下：欢迎补充 unit GetWindowsSysVersion;... windows, Dialogs, SysUtils; {$IFDEF CONDITIONALEXPRESSIONS} {$IF Defined(TOSVersionInfoEx)} {$DEFINE TOSVERSIONINFOEX_DEFINED} {$IFEND} {$ENDI...
- 用Delphi创建windows服务程序
用Delphi创建windows服务程序
- Delphi获取Windows版本号、描述.rar
Delphi获取Windows版本号、描述等信息，可获取到主版本号、次版本号、系统描述、系统平台、构建号等，相关代码如下： //设置版本信息结构的大小 GetVersionEx(OSVI); //获取版本信息 is98orlater:= /...
- Delphi编写Windows NT中服务程序
Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi作为一种高效、快速、强大...
- Delphi 编写Windows NT服务
Delphi 编写Windows NT服务 1．产生一个Win32服务应用 产生一个Win32服务应用，选择File|New菜单，在New Items页中选择Service Application。这样在你的工程里加入一个全局变量命名的应用，它是 ...
- 018_《Delphi下深入Windows核心编程》
本书是一本介绍Windows核心技术及高级技巧的专著。从系统内核编程出发，使用大量的例子帮助读者理解这些编程技术，讲述了线程同步及隐藏、系统钩子深入分析、读写物理磁盘的关键技术、读写物理内存和其他进程内存的...
- delphi windows 程序DPI缩放设置
unit uWindowsDPISet; interface ... Winapi.Windows, Registry; type NET_API_STATUS = DWORD; _SERVER_INFO_101 = record sv101_platform_id: DWORD; sv101_name: LPWSTR; sv101_version_...
- Delphi下深入Windows核心编程
目錄 第1章 DLL与数据共享 1.1 关于DLL 1.1.1 DLL的结构 1.1.2 DLL数据作用范围 1.2 内存映像 1.2.1 创建映像文件 1.2.2 打开映像文件 ...1.2.3 映射到本进程中 1.2.4 关闭内存映射 1.2.5 两个E
- 运用Delphi编写Windows NT中服务程序
--- Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi4.0作为一种高效、...
- Delphi for Linux支持开发微软 WSL Windows Subsystem for Linux
什么是Windows Linux子系统（WSL）欢迎加入Delphi开发局QQ群:32422310 适用于Linux的Windows子系统（WSL）是一个兼容性层，用于在Windows 10和Windows Server 2019上本地运行Linux二进制可执行文件（ELF格式） 可...
- delphi NT服务程序制作
用delphi做nt程序也很简单了，new-> other -> new页签 --> service Application. 便会生成一个NT服务框架，TserviceApplice . 默认生成1个 Tservice . 一个NT服务框架可以生成很多service ,一个service 代表一个服务...
- delphi启动停止windows服务
不用cmd用delphi如何实现启动停止windows服务建议参考一下Delphi的ScktSrvr原码， $(DELPHI)/Source/Vcl/ScktSrvr.dpr --------------------------------------------------------------------------------windows...
- delphi中的单元
Object Passal的程序结构很特殊，与其它语言如C++，Object Windows等结构都不同。一个Delphi程序由多个称为单元的源代码模块组成。使用单元可以把一个大型程序分成多个逻辑相关的模块，并用来创建在不同程序中使用的...
- Delphi判断文件是否正在被使用
首先,我们先来认识下CreateFile函数，它的原型如下 HANDLE CreateFile( LPCTSTR lpFileName, //指向文件名的指针 ... DWORD dwDesiredAccess, //访问模式（写/读） ... DWORD dwShareMode, //共享模式 ...
- delphi获取windows系统版本信息，大全，准确
很多时候从网上找到的取操作系统版本的代码都不是很准确，有些信息也不全面。为此，在msdn上找到全面的信息整理... windows ; {$IFDEF CONDITIONALEXPRESSIONS} {$IF Defined(TOSVersionInfoEx)} {$DEFINE TOSVER
- 谈Delphi中SSL协议的应用
摘要:本文主要介绍如何在Delphi中使用SSL协议.一共分为七个部分:(1)SSL协议是什么?(2)Delphi中如何使用SSL协议?(3)SSL客户端编程实例.(4)SSL服务端编程实例.(5)SSL证书编程实例.(6)中间人欺骗实例.(7)其它.本文作者...
- delphi 应用程序工厂_使用Delphi创建Windows服务应用程序
delphi 应用程序工厂 Service applications take requests from client applications, process those requests, and return information to the client applications. They typically run in the background without...
- 在Delphi中运用Windows管道技术简述
在Delphi中运用Windows管道技术简述 Windows管道技术简述 不知你是否用过这样的程序，他们本身并没有解压缩的功能，而是调用DOS程序PKZIP完成ZIP包的解压缩。但是在程序运行时又没有DOS控制台的窗口出现而且一切本...
- 转delphi windows 消息
Win32 API消息函数:SendMessage 函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的...
- delphi 关机 重新启动 注销 Windows
delphi 关机 重新启动 注销 Windows,delphi 禁用 启用 隐藏 显示 任务栏 2008年07月13日 星期日 上午 11:45delphi 关机 重新启动 注销 Windows Shutdown / reboot / logoff Windows 9x/NT/Me/2000/XPfunction ...
- Delphi 中注册表操作类TRegistry使用方法
Delphi 中注册表操作类TRegistry使用方法 {XP win7 等系统中 注册表中的主键} HKEY_CLASSES_ROOT {文件类型信息} HKEY_CURRENT_USER {当前用户信息,也是 RootKey 的默认值} HKEY_LOCAL_MACHINE {软硬件信息} ...
- Delphi中强制结束一个进程
强制结束一个进程的 API 为 TerminateProcess BOOL TerminateProcess( HANDLE hProcess, // 进程句柄 UINT uExitCode // 退出代码 ...你可以使用语句 invoke TerminateProcess,structProcInfo.hProcess,0 来...
- 在Delphi中如何输出后台调试信息？
有些时候，我们需要输出调试信息，但又不在界面上，也不希望弹出窗口中断执行，这时，只要用OutputDebugString就可以了，然后在View|Debug Window|Event Log查看结果即可。...我们知道，Window系统中
- Delphi开发NT Service程序
Windows系统中有许多服务程序,他们最大的优点是,如何机器重启了,那么无需登陆系统,服务已经重新启动.这样就保证了一些后台服务器的无人值守.那么在Delphi又为开发这种程序准备了什么呢? 开发NTService程序 File->...
- jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程
jd_seckill京东抢茅台插件最新版【京东飞天茅台1499抢购】Python脚本的完整安装+使用教程，这个很好用，稳定出单！
- SecureCRT中文破解版
SecureCRT中文破解版欢迎大家下载，非最新版本！！！