uses mshtml, ActiveX, COMObj, IdHTTP, idURI; { .... } procedure GetImageLinks(AURL: string; AList: TStrings); var IDoc: IHTMLDocument2; strHTML: string; v: Variant; x: Integer; ovLinks: OleVariant; DocURL: string; URI: TidURI; ImgURL: strin...
消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个...
Delphi用SendMessage获取目录下所有文件 ━━━━━━━━━━━━━━━━━━━━━━━━━━ procedure TForm1.btn1Click(Sender: TObject); const DIRATTR = DDL_READWRITE or DDL_READONLY or DDL_HIDDEN or DDL_S...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure FormCreat...
應要求在程式執行時還要可以拉拖、改變元件大家～ 分享一個不錯的函數 procedureDragResizeControl(WinControl:TControl;Shift:TShiftState;X,Y,Precision:integer); var SC_MANIPULATE:Word; begin if(X=Precision)and(YPre...
XE6的Switch元件增加了多國語系的功能，不過很遺憾的是它在中文的部份只認得zh，不會分辨zh_CN、zh_TW、zh_SG跟zh_HK。但是幸好Delphi是可以自己修正原始碼的:) 將ProgramFilesEmbarcaderoStudio14....
由程序发出来的包是这样的 GET/s?lm=0si=rn=10ie=gb2312ct=0wd=qwqwpn=00ver=0cl=3HTTP/1.1 Content-Type:text/html Host:www.baidu.com Accept:text/html,*/* User-Agent:Mozilla/3.0(compatible;IndyLibrary) User-Agent:Mozilla/3.0(compatibl...
皮肤这东西很多人褒贬不一，有人认为程序做的好就行了，界面还是保持原生态来的稳定。的确，稳定是程序至关重要的一点，离开这点其他任何都无从谈起，但不可否认，无论是微软...
前面从网络中收藏加转贴了一部分关于变长参数函数的笔记。反正休闲没事，于是就专门的研究研究了如何用Delphi来实现类似于C语言中Printf这种可以传递任意多个参数的函数。这个实际...
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定， 公民身份号码是特征组合码18位：由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六...