发一个Delphi 从 .lnk 文件获取真正路径的程序

vasto

武汉加油，中国加油。
52PoJie在2020年情人节开放了注册。注册一个ID


看到这里有Delphi栏，可惜很少人用Delphi，我多年来一直用Delphi，给大家贡献一个 读取.lnk 快捷方式获取真实路径的程序。用得上的捧个场。用不上的不要喷。谢谢。





直接上代码

[Delphi] 纯文本查看 复制代码

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.

源代码在这：D7的。
读取.lnk获取真实路径程序.rar (169.93 KB, 下载次数: 34)

2020-2-23 19:05 上传

点击文件名下载附件

vasto

shinykers 发表于 2020-3-8 11:40
赞一个吧，想学delphi好多年，十年前用了VB，如今用了PYTHON。非程序员实在是不在意使用效率，更在意快速实 ...

D7有很大的魅力，很复杂的东西，写出来，编译处理，不到2M，执行效率很高。
当然，爬虫类，还是Python吧，这个他专业。

vasto

fmx 发表于 2020-2-23 22:19
支持~不过软件不会用，怎么选择快捷方式？

程序写得有点偷懒，我一会修改完善。

你粘贴一个.lnk 快捷文件例如：

c:\users\abcd\desktop\12345678.lnk 到第一个edit 哪里去。点按钮就可以。

vasto

  第一次发帖，根本不太懂。。。。

fmx

支持~不过软件不会用，怎么选择快捷方式？

vasto

fmx 发表于 2020-2-23 22:19
支持~不过软件不会用，怎么选择快捷方式？

我更新了，可以选择文件，不用自己输入了。谢谢支持。




读取.lnk获取真实路径程序v1.1.rar (175.4 KB, 下载次数: 12)

2020-2-24 08:08 上传

点击文件名下载附件

fmx

支持，很好的Delphi，现在不流行了

sail2000

这些动作应该改为直接拖放。。。

shinykers

赞一个吧，想学delphi好多年，十年前用了VB，如今用了PYTHON。非程序员实在是不在意使用效率，更在意快速实现能力。

qwert813

本版帖子极少，赞一下。奇怪楼主还在用D7

vasto

qwert813 发表于 2020-3-8 12:21
本版帖子极少，赞一下。奇怪楼主还在用D7

没办法，用了XE，怎么用，怎么不舒服，还是最老的D7最合适。我用了D7二十几年，很好用啊。