bsp;    Result:=False;
          Exit;
        end
        else
          Result:=true;
       end
       else
         Result:=False;
      end;
    finally
      Reg.Free ; file://释放空间
    end;
end;
3、 编写浏览文件按钮的代码，如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
     Edit1.Text := OpenDialog1.FileName ;
end;
4、 同样的步骤编写“退出”按钮的代码：
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
5、 下面是“创建”按钮的代码，直接调用我们建立的CreateShoutcut()函数来实现：
procedure TForm1.Button2Click(Sender: TObject);
var
  SLinkType : ShortcutType;
begin
  case ComboBox1.ItemIndex of
  0 : SLinkType := _DESKTOP;
  1 : SLinkType := _STARTMENU;
  2 : SLinkType := _PROGRAMS;
  3 : SLinkType := _STARTUP;
  4 : SLinkType := _QUICKLAUNCH;
  end;
  if CreateShortcut(Edit1.Text ,Edit3.Text ,SLinkType, Edit2.Text ) then
    Application.MessageBox(pchar(''快捷方式创建成功!''),pchar(''系统消息''),MB_OK)
  else
    Application.MessageBox(pchar(''快捷方式创建失败!''),pchar(''系统消息''),MB_OK);
end;
现在按下F9编译运行这个程序，你就可以试试创建快捷方式的效果了。程序的运行效果如图2：
<P><IMG BORDER="0" SRC=/uploadfile/201210/12/2A02231641.jpg" WIDTH="408" HEIGHT="290"></P>

当然，你还可以把程序修改后用于你的安装系统，实现个性化的安装程序，那种感觉一定酷毕了！
程序在Windows2000、Delphi6.0下编译通过。

作者：耿百强
地址：中共河南省济源市委党校
邮政编码：454650
联系电话：0391-6666267
E-Mail:dxgbq@sohu.com
OICQ:10562208
写稿日期：2002-3-12