频道分类
您的位置:网站首页 > 系统

Delphi 创建一个进程并读取其控制台输出内容

///<summary>创建一个进程并读取其控制台输出内容</summary>///<paramname="AFileNam…

类别:系统 标签: 作者:admin 日期:2020-02-22 14.24.31

Delphi 检查Windows10系统应用模式(深色/黑暗 查看更多关于 深色/黑暗 的文章 或浅色/明亮)

主要代码procedureT****1.Button1Click(Sender:T****);beginifDarkModeIsEnabledthenShowMessage('当前…

类别:系统 标签: 作者:admin 日期:2020-02-20 20.36.29

Delphi 如何确定屏幕分辨率

有两种方法可以确定屏幕的高度和宽度。使用全局Screen变量usesForms;...Screen.Height{Screenheightinpixel…

类别:系统 标签: 作者:admin 日期:2020-02-10 20.11.06

Delphi 如何刷新文件图标

如何刷新文件图标每当更改系统图标时,您都必须将此通知Windows。仅Windows(Windows)不会对此进行检查,您…

类别:系统 标签: 作者:admin 日期:2020-02-10 20.08.32

Delphi 判断系统服务是否运行

usesWinSVC;functionisServiceRunning(ServiceName:AnsiS****ing):Boolean;varaServiceCon****ol:SC_Handle…

类别:系统 标签: 作者:admin 日期:2020-02-09 21.28.18

Delphi Android ADB USB上读取设备信息

functionIsWinNT:boolean;varOSV:OSVERSIONINFO;beginOSV.dwOSVersionInfoSize:=sizeof(osv);GetVersionEx(…

类别:系统 标签: 作者:admin 日期:2020-02-09 21.04.04

Delphi 获取系统服务SERVICE ID

unitDemo;interfaceusesWindows,Forms,SysUtils,StdCtrls,WinSvc,Controls,Classes;type//Formforbasicdemo…

类别:系统 标签: 作者:admin 日期:2020-02-09 17.03.50

Delphi 遍历系统窗口标题可用于反外挂反破解

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:系统 标签: 作者:admin 日期:2020-02-08 13.37.40

Delphi 创建快捷方式的单元文件

unitfun;interfaceusesWindows,Forms,SysUtils,TlHelp32,ActiveX,ComObj,ShlObj;procedurecreatelink;//创建…

类别:系统 标签: 作者:admin 日期:2020-02-08 13.21.38

Delphi 自定义消息拦截

1.自定义消息拦截unitUnitMessageHook;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,Syst…

类别:系统 标签: 作者:admin 日期:2020-01-31 20.30.08

Delphi DLL注入x86/x64/Win2k~Win8.1全可用

programInject;{$APPTYPECONSOLE}{$IFCompilerVersion>=21.0}{$WEAKLINKRTTION}{$RTTIEXPLICITMETHODS([])P…

类别:系统 标签: 作者:admin 日期:2020-01-30 02.30.32

Delphi 调用cmd获取java 版本号

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:系统 标签: 作者:admin 日期:2020-01-30 02.13.46

Delphi 热键声明和使用

因为我们还要在程序退出的时候,消除这个热键,所以需要声明一个全局变量:HotKeyId:Integer;第一步:在窗口…

类别:系统 标签: 作者:admin 日期:2020-01-27 23.57.01

Delphi 常用4种对话框

procedureShowInfo(constText,Title:string);beginMessageBox(0,PChar(Text),PChar(Title),MB_OKorMB_ICONI…

类别:系统 标签: 作者:admin 日期:2020-01-22 16.07.30

Delphi 获取系统进程列表和进程所在路径

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:系统 标签: 作者:admin 日期:2020-01-22 14.33.12

Delphi 获取本机 HostName IP Address

unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes…

类别:系统 标签: 作者:admin 日期:2020-01-22 14.01.02

Delphi 软关闭显示器的代码

//MonitorOffprocedureMonitorOff;beginSendMessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_MONITORPOWER,2);end…

类别:系统 标签: 作者:admin 日期:2020-01-22 13.42.01

Delphi 重启启动计算机的代码

procedureRestart;varTokenHandle:THandle;TokenPrivileges:TTokenPrivileges;beginifOpenProcessToken(Get…

类别:系统 标签: 作者:admin 日期:2020-01-22 13.31.49

Delphi 调用Clipboard 收集剪切板信息

usesClipbrd;procedureTForm1.Timer1Timer(Sender:TObject);beginifClipboard.HasFormat(CF_TEXT)thenbegin…

类别:系统 标签: 作者:admin 日期:2020-01-19 00.55.15

Delphi 调出windows 系统时间设置对话框

Delphi调出windows系统时间设置对话框WinExec('rundll32.exeshell32.dll,Control_RunDLLtimedate.cpl',9);

类别:系统 标签: 作者:admin 日期:2019-11-08 23.24.42