09 2009 档案

摘要:方法1:using System.IO;if (File.Exists("d:\a.exe")) { //do something }if (Directory.Exists("d:\abc\")) { //do something }方法2:DirectoryInfoaPath=newDirectoryInfo(PathName); if (aPath.Exists) { //do somet... 阅读全文
posted @ 2009-09-25 16:12 novel 阅读(366) 评论(0) 推荐(0)
摘要:procedure TForm1.Timer1Timer(Sender: TObject);var vLastInputInfo: TLastInputInfo;begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo); if GetTickCount - vLastInp... 阅读全文
posted @ 2009-09-14 11:09 novel 阅读(664) 评论(1) 推荐(1)
摘要:因公司的业务需要,会把很多图片保存到数据库中.因此做了一个很简单的工具,把图片保存到SQL数据库中.1.可以连接到不同服务器上的SQL数据库,可以选择操作各个表;2.可以指定保存到数据库的图片格式(JPG or BMP);3.可以用windows图片和传真查看器预览图片.下载地址:一个把图片保存到SQL数据库的工具 阅读全文
posted @ 2009-09-03 09:21 novel 阅读(600) 评论(0) 推荐(1)
摘要://取本机的 IP 地址function ComputerLocalIP: string;var ch: array[1..32] of char; wsData: TWSAData; myHost: PHostEnt; i: integer;begin Result := '';if WSAstartup(2,wsData)<>0 then Exit; // can’t ... 阅读全文
posted @ 2009-09-01 09:48 novel 阅读(565) 评论(0) 推荐(0)