一个Delphi文档资料管理器源代码，界面使用了WSkinData控件进行美化，添加了气泡提示和自定义热键功能，程序可对文档一类的资料进行管理，可作为自己的一个经典文章收藏程序。

BN002-进销存财务 delphi源码 无密码

Delphi界面控件Next Component Suitev4.5下载，用此控件可实现丰富的窗体元素，比如窗体TAB选项卡、多级菜单、皮肤界面等。控件包内包括的例子相当多，方便新手快速入手Next Component Suitev控件的使用。

ID卡号格式转换工具 DELPHI源码

DELPHI获取网卡属性和IP地址，获取网卡IP地址、MAC号、子网掩码、网关等信息，支持IPV4和IPV6的IP信息，比较详细的网卡配置信息。

把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源码，希望对大家有用

Delphi EmbeddedWB 浏览器控件下载2005 14.64，用来开发制作浏览器的控件源码，内附有丰富的应用实例。

Delphi将Stringgrid指定行添加到Memo控件中，选中StringGrid中的行，点击右下角的“添加”按钮，即可将选中的StringGrid行数据添加到下边的Memo控件中显示。部分源代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　begin 　　 StringGrid1.Cells[0,0] := '商品编号'; 　　 StringGrid1.Cells[0,1] := 'cc10011'; 　　 StringGrid1.Cells[0,2] := 'cc10012'; 　　 StringGrid1.Cells[0,3] := 'cc10013'; 　　 StringGrid1.Cells[0,4] := 'cc10014'; 　　 StringGrid1.Cells[1,0] := '商品名称'; 　　 StringGrid1.Cells[1,1] := '苹果'; 　　 StringGrid1.Cells[1,2] := '香蕉'; 　　 StringGrid1.Cells[1,3] := '西红柿'; 　　 StringGrid1.Cells[1,4] := '西瓜'; 　　 StringGrid1.Cells[2,0] := '商品数量'; 　　 StringGrid1.Cells[2,1] := '200'; 　　 StringGrid1.Cells[2,2] := '150'; 　　 StringGrid1.Cells[2,3] := '300'; 　　 StringGrid1.Cells[2,4] := '130'; 　　 StringGrid1.Cells[3,0] := '商品金额'; 　　 StringGrid1.Cells[3,1] := '$5.00'; 　　 StringGrid1.Cells[3,2] := '$4.50'; 　　 StringGrid1.Cells[3,3] := '$1.50'; 　　 StringGrid1.Cells[3,4] := '$6.00'; 　　end; 　　procedure TForm1.Button1Click(Sender: TObject); 　　var 　　 i,col,row: Integer; 　　begin 　　 row := StringGrid1.Row; 　　 for col := 0 to StringGrid1.ColCount - 1 do 　　 Memo1.Lines.Add(StringGrid1.Cells[col,row]); 　　end;