2012年8月23日
从外部拖拽文件
摘要： Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/-->1unitUnit1;23interface45uses6Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,7Dialogs,ComCtrls,StdCtrls;89type10TForm1=class(TForm)11ListView1:TListView;12procedureFormCreate(Sende 阅读全文
posted @ 2012-08-23 16:02 马儿快跑 阅读(385) 评论(0) 推荐(0) 编辑
Delphi获取文件版本号
摘要： {取应用程式的版本号程式，如有版本号，返回值为版本号的值，否则返回值为空 返回值的格式为如1.0.0.0 } function GetFileVersion(FileName: string): string; type PVerInfo = ^TVS_FIXEDFILEINFO; TVS_FIXEDFILEINFO = record dwSignature: longint; dwStrucVersion: longint; dwFileVersionMS: longint; dwFileVersionLS: longint; dwFileFlagsMask: longin... 阅读全文
posted @ 2012-08-23 11:38 马儿快跑 阅读(6595) 评论(0) 推荐(0) 编辑
查找某目录下的所有文件
摘要： 查找某目录下的所有文件（1）查找指定扩展名的文件procedure TForm1.Button1Click(Sender: TObject);var sr: TSearchRec;begin ListBox1.Items.Clear ; if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then begin repeat if pos('.xls',lowercase(sr.Name))>0 then ListBox1.Items.Add(sr.Name) ; until FindNext(sr) <> 阅读全文
posted @ 2012-08-23 10:36 马儿快跑 阅读(337) 评论(0) 推荐(0) 编辑