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