排序
delphi System.Messaging.pas例子
System.Messaging.pas例子调度管理信息。TMessageManager是负责应用程序消息处理的类。它定义了一个作为应用程序范围内通知中心的对象。您可以创建TMessageManager的许多实例,但是这个类也可以...
DELPHI 内进行音量控制及静音
unit UMute;interfaceuses MMSystem, Dialogs;Type TDeviceName = (Master, Microphone, WaveOut, Synth);function GetVolume(DN:TDeviceName) : Word ;procedure SetVolume(DN:TDe...
delphi 控制音量 静音的类
unit ttSound;interfaceuses winapi.windows, winapi.Messages;type SimpleSoundControl = class class procedure Mute(); static; class procedure VolumeUp(...
Delphi 动态设置屏幕分辨率
Xe10.2测试可用。function SetScreen(x, y: Word): Boolean;var DevMode: TDeviceMode;begin Result := EnumDisplaySet...
Delphi 如何确定活动桌面是否已启用
Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type&nb...
Delphi 全局的鼠标钩子 使用钩子函数数据传递
前言: 博友 '鹏' 来信探讨关于钩子的问题, 核心困难是: dll 中的数据如何传递出来. 在接下来的两个例子中探讨这个问题.本例建立一个全局的鼠标钩子, 然后把鼠标的相关信息通过一个自定义...
Delphi 使用钩子函数
目前对钩子的理解:譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;首先发现这些事件的不是窗口, 而是系统!然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, ...
Delphi 使用钩子函数建立一个全局的鼠标钩子
分两步:一、建立 DLL, 并在 DLL 实现钩子的设置、释放和钩子函数;二、再建一个工程调用测试.第一步: 做 DLL先建立一个 DLL 工程, 自动初始的代码如下(去掉注释了):library Project1;uses ...
Delphi 按字母排序的Windows窗口公用消息
//按字母排序的窗口公用消息: WM_ACTIVATEWM_ACTIVATEAPPWM_APPWM_APPCOMMANDWM_ASKCBFORMATNAMEWM_CANCELJOURNALWM_CANCELMODEWM_CAPTURECHANGEDWM_CHANGECBCHAINWM_CHANGEUISTATEWM_CHARWM_CH...
Delphi 获取系统所有磁盘盘符
//Delphi 获取系统所有驱动器列表program Project2;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils,System.IOUtils, Types, TypInfo; var s: string; arr: TString...
Delphi 根据注册表信息判断程序是否安装
function IsAppmethodInstalled( SVers: String ): Boolean;var Vers: Integer; i: Integer; DefApp: String;begin // check if Delphi is installed // 50 = De...
Delphi 获取屏幕缩放比例
功能:获取windows系统的缩放比例vardc:HDC;scale:Double;begin dc:= GetDC(0); scale := GetDeviceCaps(dc,LOGPIXELSX)/0.96/100; if scale <> 1 then begin&nbs...
Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象
uses Windows,ComObj,ShlObj,ActiveX;{ 函数功能:创建指定文件的快捷方式 TargetFile: 快捷方式指向的文件或目录 &...
Delphi 获取与设置系统环境变量
function GetEnvVariable(Name: string; User: Boolean = True): string;var Str: array[0..255] of char;begin with TRegistry.Create do try if User then&nb...
Delphi 执行DOS命令并捕获输出
function GetDosOutput(CommandLine: string; Work: string = 'C:'): string;var SA: TSecurityAttributes; SI: TStartupInfo; PI: TProcessInformation; StdOut...
Delphi ShellExecute多种用法
Example 1Execute NotePad:ShellExecute( Application.Handle, 'open', 'c:Windows otepad.exe', nil, nil, SW_SHOWNORMAL);Example 2Open So...
Delphi ApiHook
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Delphi版inf方式加载驱动
program bb; uses Windows; const MAX_CLASS_NAME_LEN = 128; DIF_REMOVE = $00000005; DICD_GENERATE_ID = $00000001...
delphi 创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示
创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示 // 引用单元 uses Winapi.ShlObj, System.Win.ComObj,&n...
Delphi 增加/获得windows用户帐号
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeUSER_INFO_1 = recordusri1_name: LPWSTR;usri1_passw...
Delphi编写的一款锁屏小工具
Delphi编写的一款锁屏小工具,双击程序立即锁屏,木有界面的。解除锁屏密码:alt+空格。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...
Delphi 创建应用程序的快捷方式
unit UnitMain;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.S...
delphi获取操作系统已运行的所有窗口程序
WinAPI: GetClassName - 获取指定窗口的类名==============================================//声明:GetClassName(hWnd: HWND; {指定窗口句柄}lpClassName: PChar; {缓冲区}nMaxCount: Integer ...
delphi Wmi 获取操作系统信息
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
delphi 获取当前系统版本号
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
delphi 检查注册表键、键值是否存在
uses Registry;//==============================================================================// 注册表访问//=======================================================================...
delphi 判断驱动器盘符是否有效
function IsValidDriveLetter(const C: Char): Boolean;begin Result := CharInSet(C, ['A'..'Z', 'a'..'z']);end;
delphi 判断操作系统是否是64位的函数
function Tmain.IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall; GetN...
meta 12小时前0
学习了,金智维好像用的这个语言jiaqy 昨天0
学习了平淡 2天前0
已经私发给您了,请查收盘山秃鹫 3天前0
付费了,但找不到阅读入口yl340122 15天前0
学习学习ZHUBAORUI 18天前0
我主要是用这个工具的搜索功能flow106 20天前0
跟网上的资料一样吗,好奇流浪 24天前0
有源码可以下载