prototype SetupFolders();
文件拷贝完成后调用改函数。
function SetupFolders()
STRING szFolderName,szProgramFolder,szItemName,szCommandLine;
STRING szWorkingDir,szIconPath,szShortCutKey,szProgram,szParam;
STRING svPath,svDefGroup;
NUMBER nIcon,nFlag;
begin
svPath=TARGETDIR^"可执行文件";
szItemName="程序名称";
LongPathToShortPath(szParam);
LongPathToQuote(svPath,TRUE);
szCommandLine=svPath;
szWorkingDir=TARGETDIR;
szIconPath=TARGETDIR^"图标目录及名称";
nIcon=0;
szShortCutKey="";
nFlag=REPLACE;
szProgramFolder=FOLDER_DESKTOP;//桌面快捷方式
if(AddFolderIcon(szProgramFolder,szItemName,szCommandLine,szWorkingDir,
szIconPath,nIcon,szShortCutKey,nFlag)<0)then
MessageBox("创建快捷方式失败。",SEVERE);
endif;
szProgramFolder=FOLDER_PROGRAMS^svDefGroup;//开始菜单程序快捷方式
if(AddFolderIcon(szProgramFolder,szItemName,szCommandLine,szWorkingDir,
szIconPath,nIcon,szShortCutKey,nFlag)<0)then
MessageBox("创建快捷方式失败。",SEVERE);
endif;
return 0;
end;