医院HIS系统 delphi 编译完全正确，适合新手学习和二次开发使用，

把Ping命令可视化，用Delphi写成winForm窗口式的程序，一个可以单步执行的Delphi Ping命令操作程序源码，在框内输入IP地址，点击“执行Ping”按钮，将执行一次Ping命令，不能连续执行Ping操作，不过稍加改进就能做出类似Windows一样的Ping程序。try 　　 if pReqData^ = pIPE^.Options.OptionsData^ then 　　 begin 　　 StatusShow.Lines.Add(PChar(PingEdit.Text) '-----' 　　 IntToStr(pIPE^.DataSize) '-----' IntToStr(pIPE^.RTT)); 　　 end; 　　 except 　　 showmessage('没有找到Ip地址!'); 　　 end; 　　 finally 　　 FreeMem(pRevData); 　　 FreeMem(pIPE); 　　 end; 　　 end 　　else 　　 showmessage('请输入Ip地址'); 　　end; 　　// 通过上面的编程，我们就实现了Ping功能的界面操作。实际上，ICMP协议的功能还 　　//有很多，都可以通过对Icmp.dll的函数调用来实现。 　　procedure TTMyPing.FormCreate(Sender: TObject); 　　var 　　 hICMPdll: HMODULE; 　　begin // Load the icmp.dll stuff 　　 WSAStartup(2,WSAData); 　　 hICMPdll := LoadLibrary('icmp.dll'); 　　 @ICMPCreateFile := GetProcAddress(hICMPdll, 'IcmpCreateFile'); 　　 @IcmpCloseHandle := GetProcAddress(hICMPdll, 'IcmpCloseHandle'); 　　 @IcmpSendEcho := GetProcAddress(hICMPdll, 'IcmpSendEcho'); 　　 hICMP :=IcmpCreateFile; 　　 StatusShow.Text := ''; 　　 StatusShow.Lines.Add('目的IP地址-----字节数----返回时间(毫秒)'); 　　end; 　　// 接下来，就要进行如下所示的Ping操作的实际编程过程了。

Delphi代码编写SqlServer数据库备份还原工具，可直接还原sql server 的 mdf ldf 文件，直接还原备份文件。

上兴远程控制3.2的delphi源码，希望对大家有用

unigui滑块图片验证.rar

delphi的多线程操作库，比dephi自带的TThread更简单，更好用，更稳定。

Delphi的IAT API Hook 算還沒完成 但已經可以實現Hook了 還沒搞定CreateRemoteThread 所以只能修改自己得IAT(好爛)

案例基于DelphiWebMVC后端框架开发，前端使用vue+element-ui技术，vscode 做前端开发工具。使用delphi+vscode 来进行web项目开发。

采用WebXone技术，可以用Delphi /CBuilder /VC /VB /PB /易语言 /VFP /VC#等常用桌面应用程序工具快速开发出适用于网络的应用程序系统。

Delphi Cookbook - third Editio - Daniele Spinetti.pdf