游子日月长

摘要： 阅读全文

摘要： TARec = record A1: string; A2: string; end; TBRec = record A1: string; A2: string; ARec: TARec; end; PAppWindow = ^TAppWindow; TAppWindow = Record Wid 阅读全文

摘要： { WNetAddConnection2 的参数说明： dwFlags标志位用于指定登录时是否重新连接（0时表示不重新连接，CCONNECT_UPDATE_PROFILE登录时重新连接）。 } 阅读全文

摘要： 本文转载自Top.hand《delphi的ArrayList》 本文转载自Top.hand《delphi的ArrayList》 delphi可以用Classes.TList类来实现ArrayList功能.注意:add()方法存入的类型是TPoint,所以必须根据实际类型定义好相关的指针类型. pro 阅读全文

摘要： 判断头几个字节： function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillC 阅读全文

摘要： Delphi 停靠技术的应用3（两个窗体停靠成PageControl样式, 分页停靠） 因为TPageControl组件重载了TWinControl组件的DoAddDockClient和DoRemoveDockClient方法，能过自动响应停靠动作添加新的也没，而当浮动被停靠的窗口后将自动的将先前创 阅读全文

摘要： Unit Unit1; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type TForm1 = Class(TForm) ReleaseScrollLockBtn: TButton; SetScrol... 阅读全文

摘要： procedure CreateURLShortcut(const ShortcutFile, URL: string); var F: TextFile; // text file begin {$I+} // ensure file i/o raises exception on error // Open new file for writing (overwrites an... 阅读全文

摘要： filepath := PathJoin(['C:', 'path1', 'path2\', 'a.doc']); // filepath = 'C:\path1\path2\a.doc' 代码： function PathJoin(const Args: array of string): string; var len: Integer; i: Integer; s: strin... 阅读全文

摘要： // http://www.outofmemory.cn function ExpandEnvironment(const strValue: string): string; var chrResult: array[0..1023] of Char; wrdReturn: DWORD; begin wrdReturn := ExpandEnvironmentStrings(PCh... 阅读全文