Delphi文件操作集锦.docxVIP

Delphi 文件操作集锦 Delphi 文件操作集锦 时间 :2011-5-26 来源 :yang 作者 : peng 点击 : 11 次 Delphi 文件操作集锦 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses activex,comobj,shlobj; {$R *.dfm} function ResolveLink(const ALinkfile: String): String; var link: IShellLink; storage: IPersistFile; filedata: TWin32FindData; buf: Array[0..MAX_PATH] of Char; widepath: WideString; begin OleCheck(CoCreateInstance(CLSID_ShellLink, nil, CLSCTX_INPROC_SERVER, IShellLink, link)); OleCheck(link.QueryInterface(IPersistFile, storage)); widepath := ALinkFile; Result := Result := unable to resolve link If Succeeded(storage.Load(@widepath[1], STGM_READ)) Then If Succeeded(link.Resolve(GetActiveWindow, SLR_NOUPDATE)) Then If Succeeded(link.GetPath(buf, sizeof(buf), filedata, SLGP_UNCPRIORITY)) Then Result := buf; storage := nil; link:= nil; end; // 用法 : procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(ResolveLink( ‘ C:delphi 7.lnk ‘ )); end; end. 2006-2-16 19:23:20 中获取和修改文件的时间关发表评语 amp;raquo;amp;raquo;amp;raquo; 中获取和修改文件的时间关 2006-2-16 19:23:45 在 Delphi 键词 :文件修改时间 本文介绍了在 Delphi 中利用系统函数和 本文介绍了在 Delphi 中 利用系统函数和 Windows API 函数 调用来获取和修改文件的时间信息的方法。 熟悉 Windows 95/98 的朋友一定经常会用单击鼠标右键的方法来查看所选 定的文件的属性信息。在属性菜单中会列出该文件的创建时 间、修改时间和访问时间。这些信息常常是很有用的，它们 的设置一般都是由操作系统 （也就是由 Dos/Windows 等等） 自动完成的，不会让用户轻易修改。这里，我向大家介绍 自动完成的，不会让用户轻易修改。 这里，我向大家介绍 Delphi在 Delphi 中如何实现文件时间的获取和修改方法。 Delphi 中的 FindFirst 函数中提供了很完备的 中的 FindFirst 函数 的进行高级 Windows 编程。利用 Delphi 可以得到一个文件的属性记录，该记录中的FindData 域中就记载了详细的文件时间信息。 然而遗憾的是， 可以得到一个文件的属性记录，该记录中的 FindData 域中 就记载了详细的文件时间信息。 然而遗憾的是， FindData 中 的时间信息是不能直接得到的。因此，有人（编者按：很遗 憾不知此人姓名）编写了一个转换函数来完成文件时间格式 的转换。下面给出了具体的实现方法，仅供参考： function CovFileDate(Fd:_FileTime):TDateTime; { 转换文件的时间格式 } var Tct:_SystemTime; Temp:_FileTime; begin FileTime