Delphi 7.0 使用Quotedstr函数返回字符串的引证串

Delphi 创建INI文件，使用了Tinifile.Create来创建一个指定格式的INI文件，作为程序的配置文件，运行程序时读入文件中的内容。ini文件作为配置文件，相信大家已经不陌生了，对于Delphi操作新手来说，源代码有很好的学习参考作用。通过本源码你可以了解到写文件对象中WriteBool、WriteFloat、WriteDate、WriteTime、WriteInteger、WriteString等众多字段类型写入的用法。

Delphi 实现窗体的全屏显示效果，单击按钮后即可全屏。

Delphi 主窗体和子窗体显示示例，这类功能在平时的delphi编程中也是十分常见的，我们需要在主窗口中添加一个按钮，点击后弹出一个子窗口，对窗口布局来说是一种扩展。本示例简单，适合初学者学习参考。

Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码： 　　procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent); 　　var 　　 nProps, i: Integer; 　　 PropList: PPropList; 　　 Value: Variant; 　　 newNode: IXmlNode; 　　begin 　　 nProps := GetTypeData (Comp.ClassInfo)^.PropCount; 　　 GetMem (PropList, nProps * SizeOf(Pointer)); 　　 try 　　 GetPropInfos (Comp.ClassInfo, PropList); 　　 for i := 0 to nProps - 1 do 　　 begin 　　 Value := GetPropValue (Comp, PropList [i].Name); 　　 NewNode := iNode.AddChild(PropList [i].Name); 　　 NewNode.Text := Value; 　　 if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then 　　 if TObject (Integer(Value)) is TComponent then 　　 NewNode.Text := TComponent (Integer(Value)).Name 　　 else 　　 ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent); 　　 end; 　　 finally 　　 FreeMem (PropList); 　　 end; 　　end;

Delphi 改变当前鼠标样式，这个样式比较个性了，把箭头状的鼠标指针替换成了一幅图像，还有动画效果。具体实现，请下载本源码一看究竟。本程序具备的功能是可以选择的，用户可选择改变鼠标的形状是否是当前窗口或系统，选择当前窗口则只会在本测试程序的窗口中改变鼠标的形状。

Delphi 浏览性能数据库，选择单个、本地的计数器，显示选择计数器的信息。

Delphi 制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。 　　ShadowWidth:integer; //用于确定阴影的宽度或高度 　　RightShadow:TForm; //主窗口的右边产生一个阴影窗口 　　BottomShadow:TForm; //主窗口的下部产生一个阴影窗口 　　procedure WMWindowPosChanged(var Msg:TWMWindowPosChanged);message wm_windowposchanged;

Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图： 　　implementation 　　{$R *.dfm} 　　procedure TFrmFrame3D.FormCreate(Sender: TObject); 　　begin 　　 Bc:=Rect(80,50,100,200); 　　end; 　　procedure TFrmFrame3D.FormPaint(Sender: TObject); 　　begin 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end; 　　procedure TFrmFrame3D.Button1Click(Sender: TObject); 　　begin 　　 Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text)); 　　 Frame3D(canvas,Bc,clblack,clAppWorkSpace,2); 　　end;

Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。

Delphi获取内存的使用状态并显示信息，这里是使用GlobalMemoryStatus来实现，有的是使用GetSystemInfo来获龋本程序可显示内存大小和可用内存，并显示进度条。不过我这台电脑是16G内存的Windows7 64位系统，程序可能没认出啊，下面是识别内存可用量的大小，仅供参考： 　　memo_status.dwLength := sizeof(memo_status); 　　GlobalMemoryStatus(memo_status); 　　Gauge2.Progress := (round((100*(memo_status.dwAvailPhys 　　 / memo_status.dwTotalPhys)))); 　　label1.Caption := inttostr(memo_status.dwAvailPhys); 　　label2.Caption := inttostr(memo_status.dwTotalPhys);