系统共348篇

delphi System.Messaging.pas例子

System.Messaging.pas例子调度管理信息。TMessageManager是负责应用程序消息处理的类。它定义了一个作为应用程序范围内通知中心的对象。您可以创建TMessageManager的许多实例,但是这个类也可以...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0568

DELPHI 内进行音量控制及静音

unit UMute;interfaceuses MMSystem, Dialogs;Type  TDeviceName = (Master, Microphone, WaveOut, Synth);function  GetVolume(DN:TDeviceName) : Word ;procedure SetVolume(DN:TDe...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
05413

delphi 中主设置静音的方式

uses mmsystem;SetMasterMuteValue(0,true);
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03315

delphi 控制音量 静音的类

unit ttSound;interfaceuses winapi.windows, winapi.Messages;type  SimpleSoundControl = class    class procedure Mute(); static;    class procedure VolumeUp(...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
02814

Delphi 动态设置屏幕分辨率

Xe10.2测试可用。function SetScreen(x, y: Word): Boolean;var   DevMode: TDeviceMode;begin   Result := EnumDisplaySet...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0549

Delphi 如何确定活动桌面是否已启用

Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;  type&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0318
-Delphi编程技巧大全

上一个例子是从 DLL 中接受数据, 那怎么给 DLL 传递数据呢? 还有, 在接受数据时, 让 Timer 一直在那扫描也不是个好办法呀. 本例解决了这些问题(但不知解决了博友 '鹏' 的问题没有?).为了...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
02813
Delphi 全局的鼠标钩子 使用钩子函数数据传递-Delphi编程技巧大全

Delphi 全局的鼠标钩子 使用钩子函数数据传递

前言: 博友 '鹏' 来信探讨关于钩子的问题, 核心困难是: dll 中的数据如何传递出来. 在接下来的两个例子中探讨这个问题.本例建立一个全局的鼠标钩子, 然后把鼠标的相关信息通过一个自定义...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03010

Delphi 使用钩子函数

目前对钩子的理解:譬如我们用鼠标在某个窗口上双击了一次, 或者给某个窗口输入了一个字母 A;首先发现这些事件的不是窗口, 而是系统!然后系统告诉窗口: 喂! 你让人点了, 并且是连续点了两鼠标, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
02711
Delphi 使用钩子函数建立一个全局的鼠标钩子-Delphi编程技巧大全

Delphi 使用钩子函数建立一个全局的鼠标钩子

分两步:一、建立 DLL, 并在 DLL 实现钩子的设置、释放和钩子函数;二、再建一个工程调用测试.第一步: 做 DLL先建立一个 DLL 工程, 自动初始的代码如下(去掉注释了):library Project1;uses  ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03910

Delphi 按字母排序的Windows窗口公用消息

//按字母排序的窗口公用消息: WM_ACTIVATEWM_ACTIVATEAPPWM_APPWM_APPCOMMANDWM_ASKCBFORMATNAMEWM_CANCELJOURNALWM_CANCELMODEWM_CAPTURECHANGEDWM_CHANGECBCHAINWM_CHANGEUISTATEWM_CHARWM_CH...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03112

Delphi 获取系统所有磁盘盘符

//Delphi 获取系统所有驱动器列表program Project2;{$APPTYPE CONSOLE}{$R *.res}uses  System.SysUtils,System.IOUtils, Types, TypInfo;  var  s: string;  arr: TString...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0458

Delphi 根据注册表信息判断程序是否安装

function IsAppmethodInstalled( SVers: String ): Boolean;var  Vers: Integer;  i: Integer;  DefApp: String;begin  // check if Delphi is installed  // 50 = De...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
02915

Delphi 获取屏幕缩放比例

功能:获取windows系统的缩放比例vardc:HDC;scale:Double;begin  dc:= GetDC(0); scale := GetDeviceCaps(dc,LOGPIXELSX)/0.96/100;  if scale <> 1 then  begin&nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0565

Delphi 外壳扩展创建快捷方式和获取快捷方式的目标对象

uses     Windows,ComObj,ShlObj,ActiveX;{      函数功能:创建指定文件的快捷方式      TargetFile: 快捷方式指向的文件或目录    &...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03010

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
06414
Delphi 执行DOS命令并捕获输出-Delphi编程技巧大全

Delphi 执行DOS命令并捕获输出

function GetDosOutput(CommandLine: string; Work: string = 'C:'): string;var  SA: TSecurityAttributes;  SI: TStartupInfo;  PI: TProcessInformation;  StdOut...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0527

Delphi ShellExecute多种用法

Example 1Execute NotePad:ShellExecute(  Application.Handle,  'open',  'c:Windows otepad.exe',  nil,  nil,  SW_SHOWNORMAL);Example 2Open So...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0547

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03711

Delphi版inf方式加载驱动

program bb; uses   Windows;  const   MAX_CLASS_NAME_LEN = 128;    DIF_REMOVE = $00000005;   DICD_GENERATE_ID = $00000001...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03110
delphi 创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示-Delphi编程技巧大全

delphi 创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

创建Win桌面快捷方式,实现360桌面图标数字提示 或 类似安卓的右上角的数字提示  // 引用单元  uses  Winapi.ShlObj, System.Win.ComObj,&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04815
Delphi 增加/获得windows用户帐号-Delphi编程技巧大全

Delphi 增加/获得windows用户帐号

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;typeUSER_INFO_1 = recordusri1_name: LPWSTR;usri1_passw...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
03210

Delphi编写的一款锁屏小工具

Delphi编写的一款锁屏小工具,双击程序立即锁屏,木有界面的。解除锁屏密码:alt+空格。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0435

Delphi 创建应用程序的快捷方式

unit UnitMain;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.S...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0365

delphi获取操作系统已运行的所有窗口程序

WinAPI: GetClassName - 获取指定窗口的类名==============================================//声明:GetClassName(hWnd: HWND; {指定窗口句柄}lpClassName: PChar; {缓冲区}nMaxCount: Integer ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04215
delphi Wmi 获取操作系统信息-Delphi编程技巧大全

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...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04711

delphi 获取当前系统版本号

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0506

delphi 检查注册表键、键值是否存在

uses Registry;//==============================================================================// 注册表访问//=======================================================================...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0507

delphi 判断驱动器盘符是否有效

function IsValidDriveLetter(const C: Char): Boolean;begin  Result := CharInSet(C, ['A'..'Z', 'a'..'z']);end;
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
04811

delphi 判断操作系统是否是64位的函数

function Tmain.IsWin64: Boolean;var  Kernel32Handle: THandle;  IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall;  GetN...
Top_Admin的头像-Delphi编程技巧大全Top_Admin32天前
0459