Delphi 浏览性能数据库

Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。

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

Delphi 简单的文件查看器，可以获取并显示文件的显示名，获取并显示文件类型信息，获取并显示表示该程序的图标，获取文件属性信息，始获取并显示文件上次修改的日期和时间，处理用户没有选择文件而选择了文件夹或驱动器的转化异常。

Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。

Delphi 在Windows NT/2000 环境下使用PSAPI获取进程的信息演示，其实在Window7环境下同样也可枚举到进程及页面内存信息，可以列举所有正在运行的进程，正在运行的所有进程，鼠标双击有进程的详细信息，可以得到某一进程的模块、页面等信息，以及内存映射的文件名。 　　如果列举进程出错，请确认是否安装了PSAPI.DLL。 　　本程序除了列举进程外，还可列举设备信息。运行效果请参见截图所示。

Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。

Delphi 获取系统中已安装的中文输入法，判断是否在中文状态,若是则关闭它，切换半角和全角模式，切换中文标点模式和英文标点模式，并对输入法做相关设置。以下是相关代码： 　　procedure TForm1.closecid; 　　var 　　 mycid:hkl; 　　begin 　　 mycid:=GetKeyBoardLayOut(0); 　　 if ImmIsIME(mycid) then 　　 //判断是否在中文状态,若是则关闭它 　　 immsimulateHotkey(handle,IME_CHotKey_IME_NonIME_Toggle); 　　end; 　　procedure TForm1.FormShow(Sender: TObject); 　　var 　　 j:integer; 　　begin 　　 for j:=0 to screen.imes.count-1 do 　　 begin 　　 //获取系统中已安装的中文输入法 　　 ComBoBox1.Items.Add(screen.Imes.strings[j]); 　　 end; 　　end;

枚举线程的Delphi实例代码，Delphi 枚举线程的例子应该很多了，这一个比较简单的那种，可以为学习Delphi的新手朋友提供一些参考思路，运行界面效果如下图所示。源代码编译于Delphi7.0环境。

Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。

Delphi 7.0 提取字符串中指定子字符串后的字符串，这个平时在字符处理时候使用几率也挺高的，获取指定字符串后面的字符串，比如获取扩展名等也可以用此方法，本例中要用到After函数，测试时，当单击按钮时，执行以下代码： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 Edit3.Text := After(Edit2.Text,Edit1.Text); 　　end; 　　end.