程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 在delphi中建立程序的快捷方式--並將快捷方式放在開始->程序-

在delphi中建立程序的快捷方式--並將快捷方式放在開始->程序-

編輯:Delphi

  前幾天應客戶要求寫這個東西,其實用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: IShellLink;
    MyPFile: IPersistFile;
    WFileName: WideString;
    curdir: array[0..100] of Char;
  begin
  
  DestName := Foldername + lnkName;
    aObj := CreateComObject(CLSID_ShellLink);
    MyLink := aObj as IShellLink;
    MyPFile := aObj as IPersistFile;
    GetCurrentDirectory(sizeof(curdir), curdir);
    workdir := curdir;
    proname := trim(WorkDir)+''+proname;
    with MyLink do
    begin

      SetShowCmd(SW_NORMAL);
      SetArguments('');
      SetDescription(pChar(Description));
      SetPath(pChar(proName));
      SetWorkingDirectory(pChar(WorkDir));
    end;
  
  CreateDir(ExtractFilePath(DestName));
    WFileName := DestName;
    MyPFile.Save(PWChar(WFileName), False);
  end;

  //獲得開始->程序->的啟動組 的路徑

  function Tform1.GetSpecialFolder: string;//get starup Floder
  var
    Pidl: PItemIDList;
    handle : THandle;
    Comp: TComponent;
    LinkDir : string;
  begin
  
  result:='';
    Comp := self;//self.owner;
    handle := (Comp as TForm).handle;
    if SUCCEEDED(SHGetSpecialFolderLocation(handle, CSIDL_COMMON_STARTUP, Pidl))  then //別的特殊路徑也可以用CSIDL_COMMON或的,在delphi中查一下就可以了

   begin
         SetLength(LinkDir, MAX_PATH);
         SHGetPathFromIDList(Pidl, PChar(LinkDir));
         SetLength(LinkDir, StrLen(PChar(LinkDir)));
         result:=linkdir+'';

    end;
  end;
  //
部分內容借鑒了大富翁bbs上的內容

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved