前几天应客户要求写这个东西,其实用VB,VC可能更快些,不过,我还是喜欢用DELPHI 首先 uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; 在指定文件夹建立当前应用程序才的快捷方式 procedure Tform1.MakeLink(Foldername: string ;proName, lnkName, Description: string ); var WorkDir, DestName: string ; aObj: IUnknown; MyLink: ISh...
[ 查看全文 ]