Delphi 7 获取窗口文本的例子，只要是当前窗口中的内容，都可以获取到，可能会比较乱，获取的过程被封装在按钮事件中，当用户点击后，执行事件中规定的命令： 　　procedure TForm1.BitBtn1Click(Sender: TObject); 　　var 　　 H_window:HWND; 　　 Text:array[0..255] of char; 　　begin 　　 H_window:=GetWindow(Handle,GW_HWNDFIRST); 　　 While H_window<>0 do 　　 begin 　　 if GETWindowText(H_window,@text,255)>0 then 　　 memo1.Lines.Add(StrPas(@Text)); 　　 H_window:=GetWindow(H_Window,GW_HWNDNEXT); 　　 end; 　　end;

Delphi OSD特效生成测试程序-附有代码文件，Delphi环境的OSD程序，使用三方控件实现，功能是完成混合、获取坐标值，面板半透明、显示图片、显示字幕、文字滚动等。

ZXing.Delphi是一个原生的对象Pascal库，它基于著名的开源条形码库：ZXing（Zebra Crossing）。这个端口是基于ZXing的.Net Redth port和Java的。这是我认为第一个原生的FireMonkey条形码库。它针对所有FireMonkey移动平台，从v3.1开始，它还完全支持Windows VCL应用程序（不依赖于FMX。图形单元）。 使用此库，您可以以本机速度进行扫描，而无需使用外部库中的链接，并避免兼容性问题和依赖关系。它很快。 它与Delphi XE7 - 11 Alexandria兼容，并与IOS 8.x - 15.x，Android 32 / 64，Windows 32 / 64和OSX进行了测试。ZXing.Delphi的目标是使扫描条形码毫不费力，无痛，快速，并在FireMonkey或本机Windows（VCL或Firemonkey）应用程序中构建。 只需包含源文件并将其添加到现有项目中，然后在项目中构建ZXing.Delphi源代码即可。

基于Delphi写的发票查询及打印程序，数据库使用SqlServer，主程序分为发票数据查询、发票结报系统、发票打印系统，各个子系统相互独立，源码包内的文件夹对应其各自源代码。 　　在发票打印模块中，字段名 类型长度 中文含义 　　Proxy_No A(5) 委托书编号 　　Ratepaying_No A(6) 纳税代码 　　Enterprise A(50) 企业名称 　　Address A(50) 地址 　　Register_No A(15) 税务登记证号 　　Phone_No A(12) 电话 　　Linkman A(8) 联系人 　　Charge_Standard $ 收费标准 　　Proxy_Start A(10) 委托代理开始时间 　　Proxy_End A(10) 委托代理结束时间 　　Charge_Date A(10) 收费日期 　　Change_Money $ 收费金额 　　Voucher_No A(8) 凭证号码

Delphi基于Excel组件的图表生成实例，Excel chart，点击按钮就会打开Excel表格绘制出图表。

Delphi 7.0 图书管理系统，数据库使用的是Access，这套系统的功能模块：图书管理、读者管理、查询、用户管理、系统设置等，关于数据库的配置方法有两种: 　　第一种方法请先将database文件夹拷贝到C:\中。 　　第二种方法把图书管理系统示例中DM数据窗口内ADOConnection1组件的数据库连接路径改成“..\DataBase\BookManager.mdb”。用户号密码：liu a 更多的用户名、密码和权限请参见BookManager\DataBase\BookManager.mdb 　　数据库内的User_info表。 　　文件说明： 　　BookManager图书管理系统示例的可执行文件 　　BookManager\DataBase图书管理系统示例的数据库文件 　　BookManager\Form图书管理系统示例的工程及窗体文件 　　BookManager\Icon图书管理系统示例的图像文件 　　BookManager\Uint图书管理系统示例的单元文件 　　完整源代码请在本页面下载。

Delphi 设置打印纸张大小，手动设置打印纸的长度和宽度，自定义纸张。相关代码： 　　procedure TForm1.SetPaperSize(cx, cy: Integer); 　　var 　　 a,b,c: array[0..255]of char; 　　 bb: Cardinal; 　　 ee: PDEVMODE; 　　begin 　　 printer.PrinterIndex := printer.PrinterIndex; 　　 printer.GetPrinter(a,b,c,bb); 　　 ee:= GlobalLock(bb); 　　 ee^.dmPaperSize := DMPAPER_USER; 　　 ee^.dmPaperLength := cy*10; 　　 ee^.dmPaperWidth := cx*10; 　　 ee^.dmFields :=ee^.dmFields or DM_PAPERSIZE or 　　 DM_PAPERWIDTH or 　　 DM_PAPERLENGTH; 　　 ee^.dmFields := ee^.dmFields or DMBIN_MANUAL; 　　 ee^.dmDefaultSource :=DMBIN_MANUAL; 　　 GlobalUnlock(bb); 　　 printer.PrinterIndex := printer.PrinterIndex; 　　end;

本源码是我写的一个小工具，用于斯凯平台开发 功能：汉字转16进制编码（unicode bigend）

Delphi 打开已有的word文档，如果你的电脑上安装有Word，则会通过Word打开用户选择的文档。其实就是在Delphi窗口中选择你要打开的Word文档，用户确定后，Delphi会调用安装好的word打开该文件，有兴趣参考以下代码： 　　var 　　 MSWord:olevariant; 　　begin 　　 MSWord := CreateOLEObject('Word.Application'); 　　 MSWord.Documents.Open (f,false); 　　 MSWord.Visible := 1; 　　end;

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