留下脚印

function LoadXml(shortPath:string;var xmlobj: IXMLDOMDocument):boolean;var tmpXml:IXMLDOMDOCUMENT;begin shortPath:=localPath+shortPath; if not FileExists(shortPath) then begin

unit xDrawForm;interface uses Windows, Messages, SysUtils, Classes, Controls, Forms, Menus, Graphics,GDIPOBJ,GDIPAPI,GDIPUTIL;type TwwGDIImage = class public n_Pos_X : Integer; n

function Tform1.CreateRegion(wMask:TBitmap;wColor:TColor;hControl:THandle): HRGN; var  dc, dc_c: HDC;  rgn: HRGN;  x, y: integer;  coord: TPoint;  line: boolean; color: TColor;  begin  dc := GetWindow

Delphi 自带了 Base64 编解码的单元，叫 EncdDecd，这名字很拗口而且不直观，估计这是一直很少人关注和知道的原因。  这个单元提供两套四个公开函数：  对流的编解码： procedure EncodeStream(Input, Output: TStream); // 编码 procedure DecodeStream(Input, Output: TStream);

⑴ 设置RichViewEdit下面的几个属性： ① RTFReaderProperties → ParaStyleMode → rvrsAddIfNeeded ② RTFReaderProperties → TextStyleMode → rvrsAddIfNeeded ③ RTFReaderProperties → UnicodeMode → rvruOnlyUnicode⑵ 设

{******************************************************************************* 半透明窗体控件 版本：1.0 功能说明 : 1.支持颜色和图片半透明 2.暂时只能手动指定背景图片 3.可调透明度(0..255) 4.可控制是否可移动窗体 联系方式： Email: mdejtoz@

//***************************************************************************//函 数名: CreateForm//返 回值: boolean //参 数: TForm //功 能: 判断MDI窗体的子窗体是否存在 //************************************************

function GetVersionString(FileName: string): string; //得到文件版本 var VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; Dummy: DWORD; VerValue: PVSFixedFileInfo;

如何在程序中执行动态生成的Delphi代码 经常发现有人提这类问题，或者提问内容最后归结成这种问题 前些阵子有位高手写了一个“执行动态生成的代码”，这是真正的高手，我没那种功力，我只会投机取巧。 这里提供三种方法，都是借助第三方的组件来实现的。 1、MicroSoft Windows Script Control（http://www.microso

procedure DrawParentBackground(Control: TControl; DC: HDC; R: PRect = nil; bDrawErasebkgnd: Boolean = False);var SaveIndex: Integer; MemDC: HDC; MemBmp: HBITMAP;begin if R <> nil then begi

unit UShorCut;interface uses Windows, Classes, SysUtils,Dialogs, ShlObj, ComObj, ActiveX, Registry; procedure CreateUlr(ExeName,Description,FileName:string);implementation procedure Creat