DELPHI
文章平均质量分 51
郁闷的坦然
这个作者很懒,什么都没留下…
展开
-
检测鼠标键盘多久没有活动
DELPHI代码function GetInputAwayTime():DWORD;var lpi:TLastInputInfo;begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi.dwTime)/1000);end;pro原创 2013-08-21 18:18:58 · 2109 阅读 · 0 评论 -
DELPHI数组排序
procedure Sort(var A: array of Integer);var I, J, T: Integer;begin for I := High(A) downto Low(A) do for J := Low(A) to High(A) - 1 do if A[J] < A[J + 1] then begin T :=原创 2014-01-09 17:14:32 · 6070 阅读 · 0 评论 -
获取硬盘序列号
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit;原创 2014-03-12 11:35:29 · 1822 阅读 · 0 评论 -
获取各类硬件ID汇编代码
{-----------------------------------------------------------------------------作者:sushengmiyan 2013.01.26备注:功能:硬件信息获取单元-----------------------------------------------------------------------------}转载 2014-03-22 15:31:43 · 5618 阅读 · 0 评论 -
Androidapi.JNI.Net.Wifi
{*******************************************************}{ }{ CodeGear Delphi Runtime Library }{ Android API: package "原创 2014-08-03 14:24:13 · 3281 阅读 · 1 评论 -
XE6 安卓电量检测
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type TF原创 2014-08-03 11:10:33 · 1032 阅读 · 0 评论 -
DELPHI 阳历转农历代码
unit DateCn; interface uses Windows, SysUtils, Controls; const //农历月份数据,每年4字节,从1901年开始,共150年 //数据来源:UCDOS 6.0 UCT.COM //分析整理:Copyright (c) 1996-1998, Randolph //数据解析: //如果转载 2014-08-09 13:44:34 · 2388 阅读 · 0 评论 -
排序算法总结
unit paixu;interface// 冒泡排序procedure BubbleSort(var abc: array of Integer);// 摇动排序procedure ShakerSort(var abc: array of Integer);// 梳子排序procedure CombSort(var abc: array of Integer);// 选转载 2014-08-21 12:23:49 · 578 阅读 · 0 评论 -
Delphi:窗体自适应屏幕分辨率
delphi 程序适应屏幕分辨率,先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为单位)。在表单的Create事件中先判断 当前分辨率是否与设计分辨率相同,如果不同,调用表单的SCALE过程重新能调整表单中控件的宽度和高度。Const Orignwidth=800; Orignheight=600;转载 2015-04-28 00:58:59 · 6808 阅读 · 0 评论 -
delphi QuotedStr
总结一下SQL语句中引号(')、quotedstr()、('')、format()在SQL语句中的用法以及SQL语句中日期格式的表示(#)、('')在Delphi中进行字符变量连接相加时单引号用('''),又引号用('''')表示首先定义变量var AnInt:integer=123;//为了方便在此都给它们赋初值。虽然可能在引赋初值在某些情况下不对AnIntStr:str转载 2017-09-23 08:00:35 · 1639 阅读 · 0 评论 -
DELPHI XE 10 拒接来电黑名单
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.S原创 2017-09-24 19:58:14 · 1160 阅读 · 1 评论 -
Delphi东京版FireDAC连接MSSQL2000
在Delphi 10.2.1 东京 版中,FireDAC默认不兼容MSSQL2000,会提示“[FireDAC][Phys][ODBC][Microsoft][ODBC SQL Server Driver][SQL Server]对象名 'SYS.DATABASES' 无效。”的错误,对此需要修改FireDAC.Phys.MSSQL.pas单元进行修复:首先从delphi目录下把FireD转载 2017-09-26 21:23:54 · 3236 阅读 · 0 评论 -
官方自带的Toast
uses Androidapi.JNI.Widget;procedure TFormMain.Button1Click(Sender: TObject);begin TJToast.JavaClass.makeText( SharedActivityContext,原创 2017-09-22 01:21:36 · 1094 阅读 · 0 评论 -
Delphi匿名方法
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type //首先声明匿名方转载 2017-10-18 21:50:22 · 1437 阅读 · 0 评论 -
Delphi ControlState和ControlStyle属性详解
ControlState 属性 对应对象:TControl 声明:TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState, csAlignmentNeeded, csFocusing, csCreating); property ControlState: TControlState;转载 2017-10-05 10:49:14 · 1162 阅读 · 0 评论 -
Delphi中拖动无边框窗口的5种方法
1.MouseMove事件中加入:// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0);2.MouseDown事件中加入:// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0);3.Mous转载 2017-11-01 10:25:36 · 1879 阅读 · 0 评论 -
遍历所有ControlCount
procedure TForm1.FormCreate(Sender: TObject); procedure pScanWinControl(mWinControl: TWinControl); var I: Integer; begin for I := 0 to mWinControl.ControlCount - 1 do begin转载 2017-11-01 21:16:03 · 962 阅读 · 0 评论 -
delphi JBitmapBitmap互转转换
uses Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android, FMX.Surfaces;//JBitmap转Bitmapfunction JBitmapToBitmap(const AImage: JBitmap): TBitmap;var bitmapSurface :TBitmap原创 2017-11-14 14:11:28 · 1427 阅读 · 0 评论 -
XE5手势
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Gestures;type TF原创 2014-01-07 08:29:00 · 2313 阅读 · 0 评论 -
DELPHI U盘插入拔出提示
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellAPI;type TForm1 = class(TForm) Button1: TButton; private转载 2014-01-03 08:13:44 · 1046 阅读 · 0 评论 -
DELPHI链表
1. 一个简单的typePMyRec = ^MyRec; {把 PMyRec 定义为下面 MyRec 结构的指针类型}MyRec = record Name: string[8]; Age : Word; Link: PMyRec; {结构中同时包含同类型的指针, 用于链接其他同类结构}end;varR1,R2,R3,R4: MyRec;{把 R1、R2、R3、R4 够建成一个环环相扣的"链",转载 2013-12-11 21:26:21 · 1703 阅读 · 0 评论 -
Delphi 自带的 Base64 编解码函数
今天帮别人解决一个关于 Base64 编解码的问题,竟然发现 Delphi 自带了 Base64 编解码的单元,叫 EncdDecd,这名字很拗口而且不直观,估计这是一直很少人关注和知道的原因。这个单元提供两套四个公开函数:对流的编解码:procedure EncodeStream(Input, Output: TStream); // 编码procedure Decode原创 2013-08-10 14:11:35 · 15669 阅读 · 0 评论 -
delphi CRC算法的实现
unit Crc32;interface usesWindows,SysUtils,Classes;const //Crc32表Table:Array[0..255] of DWORD=( $00000000, $77073096, $EE0E612C, $990951BA,$076DC419, $706AF48F, $E963A535, $9E6495A3转载 2013-08-10 14:23:33 · 2014 阅读 · 0 评论 -
Delphi进程判断
program Project2;uses windows,TLHelp32;function FindProcess(AFileName:string):boolean; var hSnapshot:THandle; lppe:TProcessEntry32; Found:Boolean; begin Result:=F转载 2013-08-14 11:25:25 · 1363 阅读 · 0 评论 -
delphi根据进程PID获取程序所在路径的函数
uses psapi;{根据进程PID获取程序所在路径的函数}function GetProcessExePath(PID: Cardinal): string;varpHandle: THandle;buf: array[0..MAX_PATH] of Char;begin{获取进程句柄}pHandle := OpenProcess(PROCESS_QUERY转载 2013-08-14 11:26:54 · 2893 阅读 · 0 评论 -
Delphi程序自删除的几种方法
program Project1; //方法一uses Windows;function WinExec(lpCmdline: PAnsiChar; uCmdShow: LongWord): LongWord; stdcall; external 'kernel32.dll' name 'WinExec';function ExtractFi转载 2013-08-14 11:41:30 · 1604 阅读 · 0 评论 -
delphi线程的创建、挂起、激活与终止
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button2: TButton;B转载 2013-08-16 15:30:06 · 2273 阅读 · 0 评论 -
Delphi6-xe5 中的MD5实现方法
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender:转载 2013-08-10 14:08:50 · 2123 阅读 · 0 评论 -
delphi 中文urlencode的简单办法
userHttpapp; //...HttpEncode(AnsiToUtf8('中文'));原创 2013-10-09 16:48:29 · 6653 阅读 · 0 评论 -
DELPHI 构造函数
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = c原创 2013-10-11 14:39:44 · 1620 阅读 · 0 评论 -
关于在DELPHI 里如何调用USB设备
关于在DELPHI 里如何调用USB设备,其实很简单:步骤如下:以AVR309为例:1,创建设备句柄:DrvHnd:=CreateFile(PChar(Drvfile),GENERIC_WRITE or GENERIC_READ, FILE_SHARE_WRITE or FILE_SHARE_READ, nil,OPEN_EXISTING转载 2013-11-22 13:56:18 · 8244 阅读 · 0 评论 -
delphi用createfile打开usb设备
关键是第一个参数:设备链接名。可以通过设备管理器找到相关usb设备,详细信息里边的设备范例ID获取部分信息,如Vid_1eab&Pid_8001#7&c6e4acc&0&1。也可以直接查看注册表HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\DeviceClasses下找到usb设备驱动的guid,进入子键,一般都有一个#健,里面有s转载 2013-11-23 10:07:56 · 5763 阅读 · 1 评论 -
CreateFile
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, FileCtrl;type TForm1 = class(TForm) Button1: TButton; DriveCo原创 2013-11-25 19:30:04 · 1954 阅读 · 0 评论 -
usb read write
unit USB;interfaceUses SysUtils, Forms, Windows;{******************************************************************************}{* USB - Read / Write Unit原创 2013-12-07 17:03:35 · 2386 阅读 · 0 评论 -
Delphi调用API函数操作串口
再贴上一段用API操作串口的代码,还是API好,一目了然,呵呵。 unit main; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TF转载 2013-12-07 11:32:40 · 4701 阅读 · 0 评论 -
SetupApi.pas
{******************************************************************}{ }{ Borland Delphi Runtime Library转载 2013-12-07 15:33:46 · 3543 阅读 · 0 评论 -
Delphi中位的应用
本文属于基础类文章,只适合初学者,高手请止步。另外,本文的前置知识可以参考本站《 基于Delphi的Windows程序设计(一)》一文。 什么是位(BIT)?其实就是字节的最小组成单位,例如:一个Byte类型的变量占用1个字节,也就是占用8位。一个Word类型占用16位。熟悉C语言的朋友如果使用过位域,可能对此不陌生。例如,IP头结构的定义:1转载 2013-12-07 08:49:15 · 872 阅读 · 0 评论 -
delphi 用record结构读取记录文件的问题
type //曲线分析 TQxfx = record TTName : string[128]; ZName : string[128]; Xl30150 : Real; sjl30150 : Real; xl150170 : Real; sj150170 : Real; hhxv原创 2013-12-03 15:35:48 · 3314 阅读 · 0 评论 -
将Bitmap位图转化为base64字符串互转
///将Bitmap位图转化为base64字符串function BitmapToString(img:TBitmap):string ;var ms:TMemoryStream; ss:TStringStream; s:string;begin ms := TMemoryStream.Create; img.SaveToStream(ms);转载 2017-11-26 19:50:23 · 3990 阅读 · 0 评论