游子日月长

摘要： 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... 阅读全文