内容发布更新时间 : 2024/10/22 9:36:49星期一 下面是文章的全部内容请认真阅读。

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 := ‘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

发表评语»»»

2006-2-16 19:23:45 在Delphi中获取和修改文件的时间关键词:文件修改时间

本文介绍了在Delphi中利用系统函数和Windows API函数调用来获取和修改文件的时间信息的方法。 熟悉Windows 95/98的朋友一定经常会用单击鼠标右键的方法来查看所选定的文件的属性信息。在属性菜单中会列出该文件的创建时间、修改时间和访问时间。这些信息常常是很有用的，它们的设置一般都是由操作系统（也就是由Dos/Windows等等）自动完成的，不会让用户轻易修改。 这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的FindData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息是不能直接得到的。因此，有人（编者按：很遗憾不知此人姓名）编写了一个转换函数来完成文件时间格式的转换。下面给出了具体的实现方法，仅供参考： function CovFileDate(Fd:_FileTime):TDateTime;