RSS订阅 | 匿名投稿
您的位置:网站首页 > 技巧

delphi 读取剪粘板内的html格式数据

调用单元:usesClipbrd;procedureTForm1.Button4Click(Sender:TObject);vars:string;hMem:DWORD;CF_HTML:DWORD;//声明一个CF_HTML剪贴板格式txtPtr:Pansichar;beginCF_HTML:=RegisterClipboardFormat('HTMLFormat');…
类别:技巧 标签: 作者:admin 日期:2018-03-21 16.07.15

Delphi xe FileSizeByName 要引用哪些文件

DelphixeFileSizeByName要引用哪些文件IdGlobalProtocols
类别:技巧 标签: 作者:admin 日期:2018-03-09 23.20.02

delphi 利用 showmessage(SysErrorMessage(GetLastError));得到不反馈的错误信息

delphi利用showmessage(SysErrorMessage(GetLastError));得到不反馈的错误信息上面的解释有点牵强可以这么理解吧showmessage(SysErrorMessage(GetLastError));
类别:技巧 标签: 作者:admin 日期:2018-01-16 14.27.51

delphi ListBoxAddItems() 不重复添加Edit1

{不重复添加Edit1.text到列表框中}//调用ListBoxAddItems(Edit1,ListBox1);procedureListBoxAddItems(Edit:TEdit;ListBox:TListBox);beginifListBox.Items.IndexOf(Edit.Text)<0thenbeginListBox.Items.Add(Edit.Tex…
类别:技巧 标签: 作者:admin 日期:2018-01-15 20.00.20

delphi Link() 精简打开网址

usesShellAPI;{打开网址}//调用Link('www.baidu.com');procedureLink(URL:string);beginShellExecute(Application.Handle,nil,PChar(URL),0,0,SW_SHOWNORMAL);end;
类别:技巧 标签: 作者:admin 日期:2018-01-15 19.58.10

delphi 让label 始终在Form的正中显示

1、设置label的align为alClient;2、设置label的alignment为taCenter<b...
类别:技巧 标签: 作者:admin 日期:2018-01-09 08.06.04

Delphi XE10实现移动端支付宝、微信支付接口

DelphiXE10实现移动端支付宝支付接口(含源码)http://www.orangeui.cn/wordpress/?p=15DelphiXE10实现移动端微信支付接口(含源码)http://www.orangeui.cn/wordpress/?p=12
类别:技巧 标签: 作者:admin 日期:2018-01-08 21.19.14

delphi执行js

命名空间:ComObj[delphi]viewplaincopyunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComObj;typeTForm1=class(TForm)&nbs...
类别:技巧 标签: 作者:admin 日期:2018-01-07 14.55.03

delphi GetMem(myString,1024);//开辟1024个字节FreeMem(myString,1024);//释放

procedureTForm1.Button4Click(Sender:TObject);varmyString:PChar;Begin//SetLength(S1,100);//GetWindowText(Handle,PChar(S1),Length(S1));//Button1.Caption:=S1;GetMem(myString,1024);//开辟1024个字节GetWind…
类别:技巧 标签: 作者:admin 日期:2018-01-02 15.50.21

delphi spy++ 拖拽功能

{$R*.dfm}...
类别:技巧 标签: 作者:admin 日期:2018-01-02 15.23.31

delphi 随机生成汉字

varaa:string;bb:array[1..95]ofbyte;cc:array[1..95]ofbyte;i,j:integer;begini:=$A0;forj:=1to95dobeginbb[j]:=i;cc[j]:=i;inc(i);<di...
类别:技巧 标签: 作者:admin 日期:2018-01-02 14.34.05

delphi文件无法拖拽功能失效

delphi文件拖拽功能失效,原来是UAC系统权限把它过滤了碰到这样一个问题,文件拖拽功能在没有以管理员身份运行的时候是正常的,但是一旦使用管理员身份运行,这个功能就失效了,搜索了好久总算找到原因了。在windowv…
类别:技巧 标签: 作者:admin 日期:2018-01-02 11.31.29

delphi 通过控件句柄获取控件实例

创建一Delphi工程,放置一个TEdit和TButton,在Edit1中随便输入一些文字。{---------------通过控件句柄获取控件实例-----------------------------------------------------------原理详见Classes.pas单元,13045行…
类别:技巧 标签: 作者:admin 日期:2017-03-15 20.00.31

纯真IP数据库解析Delphi D10.1下正常使用

unitNet.IPLocation;interfaceusesSystem.Classes,System.SysUtils,Winapi.WinSock,Vcl.Forms,System.Math,System.SyncObjs;typeTIPLocation=class(TObject)privateQQWryFileName:string;QQWryFileStream:TBufferedF…
类别:技巧 标签: 作者:admin 日期:2017-03-13 18.10.15

delphi命令行窗口实现9*9乘法表

vari,j:Integer;beginfori:=1to9dobeginforj:=1toidowrite(i*j:3);writeln;end;readln;end.代码含义:vari,j:Integer;定义两...
类别:技巧 标签: 作者:admin 日期:2016-01-27 00.01.43

Delphi-Edit中只能输入数字且只能输入一个小数点

使用这种功能必须使用OnKeyPress事件,该事件是在窗体中获得键盘输入的焦点,并且在用户按键时发生。OnKeyPress事件中有个重要参数:Key。Key参数为Char型,它能够获得用户的按键值。下面的代码就只能输入0~9之间的数…
类别:技巧 标签: 作者:admin 日期:2016-01-26 23.59.49

Delphi使用ZLib压缩和解压文件

主要用到的是MSAA(MicrosoftActiveAccessibility)函数:****FromLResult,该函数在动态链接库oleacc.dll中定义。usesSHDocVw,MsHtml,ActiveX;typeT****FromLResult=function(LRESULT:lResult;constIID:TIID;WPARAM:w…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.58.56

Delphi通过IE窗口句柄获取网页接口(IWebBrowser2)

主要用到的是MSAA(MicrosoftActiveAccessibility)函数:ObjectFromLResult,该函数在动态链接库oleacc.dll中定义。usesSHDocVw,MsHtml,ActiveX;typeTObjectFromLResult=function(LRESULT:lResult;constIID:TIID;WPAR…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.58.56

Delphi点击网页弹出的Alert对话框的确定按钮

实现的方法有很多,一般都是使用WindowsAPI函数遍历窗口,查找指定标题的窗口,然后从该窗口查找确定按钮,向该按钮发送鼠标消息进行模拟点击。由于IE8由Alert弹出的网页对话框的标题是“来自网页的消息”,而IE6由A…
类别:技巧 标签: 作者:admin 日期:2016-01-26 21.54.57

delphi 一个整数转其二进制表示的小函数

functionIntToBinStr(v:Integer):String;varb:array[0..32]ofChar;o:Integer;constChars:array[0..1]ofChar=('0','1');begino:=31;ifv<>0thenbeginwhilev<>0&n...
类别:技巧 标签: 作者:admin 日期:2016-01-23 23.37.25