delphi 创建自动启动的好办法-优快云博客

本文介绍了一种不通过创建lnk快捷方式而直接复制已存在的快捷方式到启动组的方法，以此来减少可执行文件的体积并避免引入不必要的库。文中详细展示了如何使用Delphi中的SHGetSpecialFolderLocation函数获取特殊文件夹位置，并实现文件复制。

网上有很多办法，但都是要创建lnk快捷方式，这样会引用不需要的库，导致可执行文件很大。

所以用一个快速的办法，就是从已经建好的lnk文件里拷贝到启动组，这样只要得到两个关键路径就ok了。


    startup:='';
    if (SHGetSpecialFolderLocation(0, CSIDL_COMMON_STARTUP, Pidl) and $80000000) = 0 then
    begin
      //MAX_PATH
      SetLength(LinkDir, 255);
      SHGetPathFromIDList(Pidl, PChar(LinkDir));
      SetLength(LinkDir, StrLen(PChar(LinkDir)));
      startup:=linkdir+'\客博通客服管理系统.lnk';
    end;
    programDir:='';
    if (SHGetSpecialFolderLocation(0, CSIDL_PROGRAMS, Pidl) and $80000000) = 0 then
    begin
      SetLength(LinkDir, 255);
      SHGetPathFromIDList(Pidl, PChar(LinkDir));
      SetLength(LinkDir, StrLen(PChar(LinkDir)));
      programDir:=linkdir+'\客博通\客博通客服管理系统.lnk';
    end;
    //exec:='copy "'+programDir+'" "'+startup+'" /y';
//    err:=WinExec(PChar(exec),0);

    log:=startup+' '+ programDir +' '+ BoolToStr(FileExists(programDir),true);
    fLog:=FileCreate('err.log',fmOpenWrite);
    cnt:=Length(log);
    tmp:=PChar(log);
    FileWrite(fLog,log[1] , cnt);
    FileClose(fLog);

    fIn:=FileOpen(programDir,fmOpenRead);
    fOut:=FileCreate(startup,fmOpenWrite);
    fLen:=GetFileSize(fIn,nil);
    SetLength(buf, fLen);
    FileRead(fIn,PChar(buf)^, fLen);
    FileWrite(fOut,PChar(buf)^, fLen);
    FileClose(fOut);
    FileClose(fIn);