SetWindowPos 函数功能：该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最...
第一种方法 function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩大 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha: array[0..1, 0..11] of str...
function ExecScript(Code,Lang,Func:string):string; var script:OleVariant; begin script:=CreateOleObject('ScriptControl'); script.Language:=Lang; script.AddCode(Code); Result:=script.Eval(Func); end; procedure TForm1.Button1Click(Sender: TOb...
1)HTML 标签值攫取函数，任意标签哦，纯字符串分析，可以配合IDHTTP编程 uses StrUtils; function ExtractHtmlTagValues(const HtmlText: string; TagName, AttribName: string; var Values: TStringList): integer; function Fin...
Application.ProcessMessages的作用是让Application去处理消息队伍中的消息。 举例说明它的用处： 你有一程序，要做一循环， for i:= 0 to query1.recordcount-1 do begin 做某事； endl; 运行的时候你会发现...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Cli...
{函数} function SetScreen(x,y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; DevMode.dmPelsWidth := x; DevMode.dmPel...
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...