阿土工作室

unit Common;interfaceuses Classes, Windows, Forms, SysUtils, StdCtrls, Grids, Types, Registry,  Messages, ShellAPI, Graphics;type  TCommon = class(TComponent)  public    function GetAppPath: str

 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then    gcd:=a else   gcd:=gcd (b,a mod B); end;  求两数的最小公倍数 function lcm(a,b:integer):integer; begin if alcm:=a; while lcm mod b >0

 Delphi编程技巧集锦  ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar(newfile.txt),pchar(//computername/direction/targer.txt),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, StdCtrls;  type  PNodeRec = record    Name: STRING;    POINT: POINTER;  e

unit WinstarXML;interfaceuses Windows, Variants, SysUtils, Classes, XMLIntf, XMLDoc, ComCtrls, Dialogs,  Types,Forms;type  TXMLControl = class  private    XMLParents: array of IXMLNodeList; //XM

树型结构的产生和方法

反监视

shellapi

定位纠偏、地图简单调用、检测开启系统GPS

网络函数大全 {=========================================================================   功  能: 网络函数库   时  间: 2002/10/02   版  本: 1.0 =======================================================================

=======================================此方法放在任何地方,都可以正常.=======================================procedure TForm1.usb(var msg: TMessage); const   DBT_DEVICEARRIVAL = $8000;   DBT_DEVICEREMOVECOMPLETE

 unit CommonDB;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DBGrids, DbClient, Grids, dxDBTL, StdCtrls, ExtCtrls, TeeProcs,  TeEngine, Chart,

unit LibStrs;interfaceuses Classes, Windows;function PadL(const str: String; others: array of integer): String;function PadR(const str: String; others: array of integer): String;function Center(

unit LibVCLs;interfaceuses  Classes, StdCtrls, ComCtrls, Windows, Messages, SysUtils,dbTables,  Typinfo, WinProcs, Graphics, Controls, Forms, Db,dbgrids,  dbclient;type  TableEvent = array[1..10

const WM_CAP_START = WM_USER;const WM_CAP_STOP = WM_CAP_START + 68;const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;const WM_CAP_SAVEDIB = WM_CAP_STAR

if exists (select * from dbo.sysobjects where id = object_id(N[dbo].[t_menu]) and OBJECTPROPERTY(id, NIsUserTable) = 1) drop table [dbo].[t_menu] GOCREATE TABLE [dbo].[t_menu] (  [ID] [int] NOT NU

unit Ufsmtp;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IdMessageClient, IdSMTP

应用服务器的编写：（1）新建一个工程（2）点击“File”“New”“Other”,选择Multiter页标签的Remote Data Module（3）设置CoClassName(例：输入TestServer),点击OK就会进入Remote Data Module编辑框（4）在编辑框中可以添加任何与数据库相连的组件，既然你的机器上装了sql server ，你就可以 添加一个AD

通信控件MSComm使用详解MSComm 控件通过串行端口传输和接收数据，为应用程序提供串行通讯功能。MSComm控件在串口编程时非常方便，程序员不必去花时间去了解较为复杂的API函数，而且在VC、VB、Delphi等语言中均可使用。 Microsoft Communications Control（以下简称MSComm）是Microsoft公司提供的简化Windows下串行通信编程的Active

百度地图 API 调用 例子