游子日月长

摘要： http://www.davidghoyle.co.uk/WordPress/?p=777 http://www.davidghoyle.co.uk/WordPress/?page_id=1110 http://www.davidghoyle.co.uk/WordPress/?page_id=111 阅读全文

摘要： unit pbHint; interface uses Windows, Controls, Forms, Graphics; type TPBHint=class(THintWindow) //要自定义提示窗口类，必须从THintWindow类继承 private FRegion:THandle; //保存当前提示窗口的区域句柄，用来设置窗口的形状 proc... 阅读全文

摘要： Question Does anyone know the fastest way to read large text files (10Mb) into a string.Readln is just too slow. Answer 1 You may try this: function R 阅读全文

摘要： unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Math, StdCtrls, jpeg, ExtCtrls, ComCtrls; type TForm1 = class(TForm... 阅读全文

摘要： unit unitImage; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, math; type TForm1 = class(TForm) Image1: TImage; ... 阅读全文

摘要： // The Unofficial Newsletter of Delphi Users - Issue #12 - February 23rd, 1996 unit Percnt3d; (* TPercnt3D by Lars Posthuma; December 26, 1995. Copyright 1995, Lars Posthuma. ... 阅读全文

摘要： 可以用代码在程序中实现COM的注册. 举例如下: (假设需要注册的文件为test.ocx)uses OLEctl,....varOCXHand: THandle;RegFunc: TDllRegisterServer;beginOCXHand:= LoadLibrary('c:\windows\sy 阅读全文

摘要： function FileToVariant(FileName: String): OleVariant; var AStream: TFileStream; MyBuffer: Pointer; begin AStream:=TFileStream.create(FileName,fmOpenRe 阅读全文

摘要： procedure TForm2.VariantToStream (const v : olevariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayH 阅读全文

摘要： procedure TForm2.VariantToBMP(aValue : OleVariant;var aBmp:TBitmap); var Stream : TMemoryStream; begin try Stream := TMemoryStream.Create; VariantToSt 阅读全文