如何用Delphi创建快捷方式

以上编写了一个通用函数，下面我们用它来创建快捷方式。在窗体中放置一

个按钮，双击按钮写入如下代码即可：

procedure TForm1.Button1Click(Sender: TObject);

var

tmp: array [0..MAX—PATH] of Char;

WinDir: string;

begin

GetWindowsDirectory(tmp,MAX—PATH);

文章来源于领测软件测试网 https://www.ltesting.net/