平民

用好Delphi中的字符串一：各种字符串 　　           字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式，包括Pascal中典型的字符串（String），Delphi支持的长字符串（ANSIString），类似于C语言的字符数组（Array of Char），指向字符的指针(Pchar)等。下面的

 Format的用法Format是一个很常用，却又似乎很烦的方法，本人试图对这个方法的帮助进行一些翻译，让它有一个完整的概貌，以供大家查询之用：首先看它的声明：function Format(const Format: string; const Args: array of const): string; overload;事实上Format方法有两个种形式，另外一种是三个参数的，主要区

                                      sql serve的备分与还原用sql语句backup RESTORE 等，也可以用sql server中的存储过程下面的例子是我贴来的，不知道能不能用，不过大概可以起个引导作用。procedure TBak.btnRestoreClick(Sender: TObject);var  Qry:TADOQuery;

1、ListBox1.Items.Delete(ListBox1.ItemIndex);//只能删除单行选择的2、ListBox1.DeleteSelected;                  //既可删除单行也可删除多行3、//既可删除单行也可删除多行，同时删除ListBox中存储的对象。procedure TForm1.Button1Click(Sender: TObject);var i

abort 函数 引起放弃的意外处理 abs 函数 绝对值函数 addexitproc 函数 将一过程添加到运行时库的结束过程表中 addr 函数 返回指定对象的地址 adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 align 属性 使控件位于窗口某部分 alignment 属性 控件标签的文字位置 allocmem 函数 在堆栈上分配给定大小的块 allowg

Windows任务管理器开发原理与实现Windows2000/XP内含的任务管理器（Taskmgr）相信大家都熟悉吧，相比之下XP里的要比2000功能更加强大，返回的信息也更加的详细，不过您是否觉得还有很多希望获得的消息没有包含在里面吗？您是否觉得 Windows的系统管理工具箱里的东西太分散了吗？下面就让我们看看它们的开发原理，并动手实现一个真正的任务管理器。现在我们是调用Win32API来

abort 函数 引起放弃的意外处理addexitproc 函数 将一过程添加到运行时库的结束过程表中addr 函数 返回指定对象的地址adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf 序列allocmem 函数 在堆栈上分配给定大小的块ansicomparestr 函数 比较字符串（区分大小写）ansicomparetext 函数 比较字符串

//摘自Kendys Blog{    使用方法, uses 本单元——>使用如:Pub.MsgBox(你好，欢迎使用本公用函数！);                                     ShowMessage(Pub.PathExeDir); }//////////////////////以下源码开始{$DEFINE Delphi7}//D5下不要此句unit PubF

Delphi公共函数 (三){=================================================================  功  能: 列举工作组中所有的计算机  参  数:          List: 需要填充的List  返回值: 成功:  True,并填充List 失败: False;  备  注:  版  本:     1.0  2002/10/0

uses　Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　Dialogs, StdCtrls, ComCtrls,INIFiles;//INIFiles不要忘了加 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseActio

uses jpeg;保存Image1中的图象至数据库 :var Ms:TmemoryStream;jpg:Tjpegimage;beginms:=TmemoryStream.Create;Jpg.Assign(Image1.Picture.Graphic);Jpg.SaveToStream(Ms) ;Ms.Position :=0;ADOquery1.append;TBlobField(ADOqu

进程、窗口、文件-----相关方法uses TLHelp32,PsAPI;(1)显示进程列表：procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32;    found : boolean;    Hand : THandle;    P:DWORD;    s:string;begin  ListBox1.

procedure TPub.ConSaveTreeViewToTextFile(Nodes: TTreeNodes; Filename: string);var  F: TextFile;   procedure ProcessNode(Node: TTreeNode; Depth: Integer);  begin    while Node     begin      Writeln(F,

Delphi公共函数(四)让TDBNavigator变透明procedure TForm1.Button1Click(Sender: TObject);var  i  : Integer;  x  : Integer;begin  for i :=  DBNavigator1.ControlCount - 1 downto 0 do  begin    x :=  DBNavigator1.Lef

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

获取Windows系统的进程运行信息  自从出现windows系统以来，各种各样的软件层出不穷。购买或者免费下载以后，轻轻点击Install或者Setup以后，稍作些许简单配置就完成安装的整个过程。显然这给用户带来了许多方便，但对用户来说这些软件似乎是个"黑匣子"，展现在用户面前的仅仅是华丽的外表和简洁的操作，至于软件运行过程中调用了哪些文件和模块文件就无法知道了。或许真正希望了解这些的用户并不是

在Delphi中读取局域网内另一台计算机的屏幕路方　2000-10-25 09:50:30在单位做过网管的人都可能有这样的经历，通过电话“遥控”指导别人操作是一件多么心烦的事，而且我又是一个懒人，不想天天为一点小事从楼顶跑到楼下，怎么办呢？编一个读取另一台计算机屏幕的程序怎么样？不就直观多了。在局域网内进行通信，最好的选择当然是用Winsock，编写过Winsock应用程序的程序员都知道，编写