delphi 从 .lnk 文件获取真正路径的程序

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ActiveX, ComObj, ShlObj, StdCtrls, shellAPI;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Int_link : IShellLink;

int_File : IPersistFile;

SFileName : WideString;

DirName : String;

OutPutFileName : PChar;

WinData : win32_find_data;

begin

SFileName := PChar(edit1.Text);

Int_link := CreateComObject(CLSID_Shelllink) as IShellLink;

int_File := Int_link as IPersistFile;

int_File.Load(pwchar(SFileName), STGM_READ);

Setlength(DirName, MAX_PATH);

OutPutFileName := PChar(DirName);

Int_link.GetPath(OutPutFileName, max_path, WinData, 0);

Edit2.text := OutPutFileName;

end;

end.

推荐分享