乐胖代购免代理版

Delphi

bc

窗口句柄

原创 2023-05-02 16:58:45 700 阅读

WinAPI: DrawTextEx - 多功能文本绘制 Delphi需要把&替换成&&才可以

Delphi默认使用：DT_NOPREFIX procedure TCanvas.TextRect(var Rect: T

Text

下划线

边距

原创 2023-05-02 16:57:47 296 阅读

让程序不在任务栏小按钮显示

program Project1;uses Forms, Windows, Unit1 in 'Unit1.pas' {Form1}, Un

ide

Windows

Public

原创 2023-05-02 16:57:17 306 阅读

静态页与应用程序通讯应用程序启动127.0.0.1 http服务

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, C

Public

Software

Internet

原创 2023-05-02 16:56:42 250 阅读

cnpack代码输入助手失效的解决办法

重新安装，不管用设置：都启用了，设置更改也没用解决方法：注册表里面，删除所有cnpack相关项目删除cnpack安装目录所有文件重新安装cnpack再次打开，问题解决。

重新安装

解决方法

原创 2015-09-26 12:20:45 78 阅读

delphi的public 与 published

published如果属性含有下标，会不能编译通过,而public则是可以的. 属性要声明在published中，才可以显示到属性察看器中，这个是published的最大用途,published一般用于组件编程中，而不常用于应用程序中. Published members have the same visibility as public members. The differenc

sed

应用程序

ci

原创 2015-09-18 17:42:08 50 阅读

TWebBrower 动态改变大小

注意：Panel1.BevelOuter := bvNone;unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, OleCtrls, SHDocVw, ExtCtrls;typeTForm2 = class

Self

Public

Windows

原创 2015-09-18 13:19:23 43 阅读

关机时windows发的消息WM_QUERYENDSESSION

procedure Form1.WmQueryEndSession(var Message: TMessage);begin //允许 Message.Result := 1; end;

k.j

原创 2015-09-18 13:17:44 70 阅读

获取Mac地址

uses nb30;function GetMACAdress: string;var I: Integer; LRetCode: Char; LSystemID: string; LNCB: TNCB; LAdapter: TAdapterStatus; LLEnum: TLanaEnum;begin LSystemID :=

ios

原创 2015-09-16 21:05:10 140 阅读

delphi引用类的顺序

当引用的两个Pas里面有相同的类名是，如果不注明是哪个单元的，Delphi以后写入的Pas类为准。比如如果使用 uses Windows, Graphics，则TBitmp是 Graphics.TBitmap, 使用 uses Graphics, Windows，则TBitmap是 Windows.TBitmap.

Windows

Delphi

类名

原创 2015-09-16 21:00:20 38 阅读

Delphi 移位的问题

function Integer64ToInt64(const X: Integer64): Int64;begin // Integer64 转换成Int64，如果不转成Int64，X.Hi shl 32 就变成0了。 Result := (Int64(X.Hi) shl 32) + X.Lo;end;

系统

原创 2015-09-16 16:30:57 26 阅读

Delphi星期几的判断

DayOfTheWeek：星期一是1，星期二是2，星期日是7DayOfWeek：星期日是1，星期一是2，星期二是3

Delphi

原创 2015-09-16 16:27:01 116 阅读

TStringList 的分割符如何支持有空格的字符串

LStrList.Delimiter := '|'; LStrList.StrictDelimiter := True; 默认StrictDelimiter为False，这时，空格等很多不可见字符就都是分隔符。

分隔符

原创 2015-09-16 12:06:23 100 阅读

笔记本手动关闭显示器(附测试代码)

使用 Colse LCD，运行就关闭显示器，有鼠标或者键盘事件就会打开 unit OpenCloseMonitor;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

Boo

键盘事件

Public

原创 2015-09-16 11:53:59 119 阅读

虽然Png本身不失真，但是IE显示的时候失真

IE对JPG，GIF，BMP图片的显示是真实的，唯有对PNG图片显示会失真测试火狐3.63浏览器，对Png的显示没有失真。（也不能算是失真

图片显示

原创 2015-09-16 11:48:43 90 阅读

Delphi分配或释放内存失败的原因

并不是Delphi本身的问题，而是代码的问题。有时候，访问非法堆栈内存时，Delphi并不抛出异常，这样就导致部分堆内存结构破坏（链表结

链表

堆栈

抛出异常

原创 2015-09-15 20:23:32 131 阅读

Delphi打开长于260个字符的网页

当用function OpenURL(const URL: string): Boolean;var LUrl: string;begin Result := False; LUrl := Trim(URL); if Length(LUrl) > 0 then begin LUrl := '"' + LUrl + '"';

List

Boo

默认浏览器

原创 2015-09-15 20:21:35 64 阅读

delphi编译选项

debug需要选中RangeCheckError发布就不需要否则，如果Cardina不强制转换成Integer，则会抛出异常

抛出异常

强制转换

原创 2015-09-15 20:07:59 86 阅读

获得桌面图标所在窗口--兼容Win7

Win7父窗口类名是 WorkerW，但是WorkerW有多个function Find_Window(XParent: HWND; XFromIndex: Integer; const XClassNames: array of string): HWND;var LName: string; LChild: HWND;begin R

Boo

父窗口

High

原创 2015-09-15 19:53:28 68 阅读

Delphi 6Bit 编码

87654321-->006543210000008787654321-->00432100000000870000876587654321-->002100000000876500876543

System

Math

Public

原创 2015-09-15 19:38:08 79 阅读

sql处理数据困难的办法--用程序处理生成单一sql

procedure TForm1.Button1Click(Sender: TObject);type TSqlItem = record BiShu: Integer; Amount: Integer; TradeStatus: Integer; end; TSqlItemAry = array of TSqlIte

List

High

sql

原创 2015-09-15 19:33:46 35 阅读

Delphi读取文本文件的最后一行

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit;

List

Text

Windows

其他

原创 2015-09-15 19:25:37 68 阅读

Delphi的TDatetime转换成C#的DateTime

public static DateTime DoubleToDateTime(double xd) { int d, h, m, s, mm; double dd, dh, dm, ds, dmm; dd = xd; d = (int)dd;

Math

Delphi

原创 2015-09-15 19:24:08 94 阅读

TIdUDPClient

TIdUDPClient是udp客户端有时他对服务端的ip不正确。可以定时动态创建。

服务端

动态创建

客户端

其他

原创 2015-09-15 10:56:25 25 阅读

png图片做窗口

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IGDIPlus, ExtCtrls, Menus, StdCtrls, PngImage, Unit2;type TForm1 = class(TForm)

Self

句柄

Boo

其他

原创 2015-09-14 18:54:22 125 阅读

多线程处理图片，bmp不支持，png支持

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, pngimage, PngImageProcessor, Math, IGDIPlus, JaContaine

Math

文件处理

Boo

其他

原创 2015-09-14 18:52:26 69 阅读

网页事件的模拟

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, mshtml, StdCtrls;type TForm1 = class(TForm) WebBrowser1: TW

Boo

html

Public

原创 2015-09-14 18:21:48 24 阅读

图片的alpha融合算法

if LSrcAlpha > 0 then begin if LSrcAlpha = 255 then begin LAlphaDest[X] := LSrcAlpha; Move(LImageSrc[L3SrcIndex], LImageDest[L3DestIndex], SizeOf(TRGBTriple))

系统

原创 2015-09-14 18:02:10 138 阅读

图像缩放算法：双线性插值和2次立方

// 双线性插值，速度快 LCalc := s1_u*(s1_v*afij + sv*afijJ1) + su*(s1_v*afiJ1j + sv*afiJ1jJ1); if LCalc <= 0.0 then LAlphaDest^ := 0 else if LCalc >= 255.0 then LAlphaDest^ :=

ci

双线性插值

原创 2015-09-14 17:55:08 33 阅读

用程序实现自动的html操作

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, mshtml, StdCtrls, ExtCtrls;const CMySearchName: string =

Boo

sed

Click

其他

原创 2015-09-11 20:06:21 42 阅读

官方博客	全部文章	热门标签	班级博客
了解我们	网站地图	意见反馈

鸿蒙开发者社区	51CTO学堂
51CTO	软考资讯

51CTO博客

mb643d15e043b20的博客

欢迎

Delphi 截取被遮挡窗口图片

WinAPI: DrawTextEx - 多功能文本绘制 Delphi需要把&替换成&&才可以

让程序不在任务栏小按钮显示

静态页与应用程序通讯应用程序启动127.0.0.1 http服务

cnpack代码输入助手失效的解决办法

delphi的public 与 published

TWebBrower 动态改变大小

关机时windows发的消息WM_QUERYENDSESSION

获取Mac地址

delphi引用类的顺序

Delphi 移位的问题

Delphi星期几的判断

TStringList 的分割符如何支持有空格的字符串

笔记本手动关闭显示器(附测试代码)

虽然Png本身不失真，但是IE显示的时候失真

Delphi分配或释放内存失败的原因

Delphi打开长于260个字符的网页

delphi编译选项

获得桌面图标所在窗口--兼容Win7

Delphi 6Bit 编码

sql处理数据困难的办法--用程序处理生成单一sql

Delphi读取文本文件的最后一行

Delphi的TDatetime转换成C#的DateTime

TIdUDPClient

png图片做窗口

多线程处理图片，bmp不支持，png支持

网页事件的模拟

图片的alpha融合算法

图像缩放算法：双线性插值和2次立方

用程序实现自动的html操作