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

vasto 发表于 2020-2-23 16:37

本帖最后由 vasto 于 2020-2-23 19:05 编辑

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

看到这里有Delphi栏，可惜很少人用Delphi，我多年来一直用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.

源代码在这：D7的。

vasto 发表于 2020-3-9 07:40

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

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

vasto 发表于 2020-2-24 07:42

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

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

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

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

vasto 发表于 2020-2-23 19:22

{:1_907:}第一次发帖，根本不太懂。。。。{:1_901:}

fmx 发表于 2020-2-23 22:19

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

vasto 发表于 2020-2-24 08:10

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

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

fmx 发表于 2020-3-3 10:16

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

sail2000 发表于 2020-3-7 13:52

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

shinykers 发表于 2020-3-8 11:40

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

qwert813 发表于 2020-3-8 12:21

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

vasto 发表于 2020-3-9 07:36

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

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

页: [1] 2

吾爱破解 - 52pojie.cn's Archiver

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