線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2426
推到 Plurk!
推到 Facebook!

如何在開始程式集增加捷徑?

答題得分者是:pcboy
show
初階會員


發表:57
回覆:48
積分:31
註冊:2003-05-24

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-04-09 19:20:19 IP:61.216.xxx.xxx 未訂閱
請問我要如何自己寫程式在開始程式集增加捷徑?並且也可以移除...

我在這搜尋關鍵字似乎沒人討論這問題。
pcboy
版主


發表:177
回覆:1838
積分:1463
註冊:2004-01-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-04-10 09:58:22 IP:61.220.xxx.xxx 訂閱
請參考

[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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2008-04-10 10:57:34 IP:61.220.xxx.xxx 訂閱

刪除範例一併給您好了 (注意路徑可能不同)
[code cpp]
DeleteFile('C:\Documents and Settings\Administrator\「開始」功能表\程式集\啟動\XX程式.lnk');
[/code]
------
能力不足,求助於人;有能力時,幫幫別人;如果您滿意答覆,請適時結案!

子曰:問有三種,不懂則問,雖懂有疑則問,雖懂而想知更多則問!
系統時間:2024-03-29 0:27:56
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!