如何在開始程式集增加捷徑? |
答題得分者是:pcboy
|
show
初階會員 發表:57 回覆:48 積分:31 註冊:2003-05-24 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
請參考
[code cpp] // 在 [開始/程式集/啟動] 增加一個捷徑 // Delphi 7 Enterprise // unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, StdCtrls, ComCtrls, Shellapi, ShlObj, ActiveX, ComObj, Registry ; type TForm1 = class(TForm) IdHTTP1: TIdHTTP; Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var MyObject : IUnknown; MySLink : IShellLink; MyPFile : IPersistFile; FileName : String; Directory : String; WFileName : WideString; MyReg : TRegIniFile; begin {$I-} // *********** 在 "開始/程式集/啟動" 建立 Program.exe 捷徑 ************** MyObject := CreateComObject(CLSID_ShellLink); MySLink := MyObject as IShellLink; MyPFile := MyObject as IPersistFile; FileName := 'C:\MyProg\Program.exe'; with MySLink do begin SetArguments(''); SetPath(PChar(FileName)); SetWorkingDirectory(PChar(ExtractFilePath(FileName))); end; MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer'); Directory := MyReg.ReadString('Shell Folders','Startup',''); // Desktop 為桌面, Startup 為啟動, Start Menu 為開始功能表 // Use the next three lines to put the shortcut on your start menu // Directory := MyReg.ReadString('Shell Folders','Start Menu','') '\Whoa!'; // CreateDir(Directory); WFileName := Directory '\XX程式.lnk'; // 在 [開始/程式集/啟動] 增加一個捷徑稱為 XX程式 MyPFile.Save(PWChar(WFileName),False); MyReg.Free; ShowMessage('安裝成功!'); // Application.Terminate; // 關閉程式 end; end. [/code] 捷徑其實是個檔案, 刪除捷徑就直接刪除掉該檔案就好
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案! 子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問! |
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |