如何讓程式在執行時 自動將程式加入啟動列 在每次開啟時都會自動執行 小弟目前是使用複製到啟動列的路徑中 如NT中文版的啟動列路徑為~ c:\documents and settings\all users\開始功能表\程式集\啟動\..... 但是98中文版的啟動列路徑為~ c:\windows\start menu\programs\啟動\ 那英文版或其他語系的版本的啟動路徑是否也不同 是否只能用路徑複製的方式 才能將程式自動加入啟動列? 聽一位前輩說 把程式放在登錄檔中也可以讓程式在每次開機時執行 但是如何將程式放入登錄檔中?? TOMMY 發表人 - tommy 於 2002/06/20 11:05:12

------
TOMMY

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start Menu\&Programs\啟動 Windows 很多資料都在 Registry中.. 讀取Registry中的路徑就知放那嚕

何不用InstallShiled的方式， 將程式包裝時，在啟動的資料夾 加入捷徑，這樣不是省事許多 也不用寫程式碼、更不用考慮 user的作業系統.......

引言: HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Start Menu\&Programs\啟動 Windows 很多資料都在 Registry中.. 讀取Registry中的路徑就知放那嚕

右邊面板的 Order 是 Binary 值, 如何解讀它的意義呢 ? Thanks !

unit Unit1;    interface    uses
  Windows, SysUtils, Forms, ShlObj, ActiveX, ComObj, Registry;    type
  TForm1 = class(TForm)       // use Forms
    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;  // uses ShlObj
  MyPFile : IPersistFile;  // uses ActiveX
  FileName : String;
  Directory : String;
  WFileName : WideString;
  MyReg : TRegIniFile;  // uses Registry    begin      // *********** 在 "開始/程式集/啟動" 建立  捷徑 ***************      MyObject := CreateComObject(CLSID_ShellLink);   // uses ComObj
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
//  FileName := GetCurrentDir  '\A.exe';
  FileName := 'C:\WINDOWS\NOTEPAD.EXE';   // 不同作業系統路徑可能不同
  with MySLink do begin
    SetArguments('');
    SetPath(PChar(FileName));
    SetWorkingDirectory(PChar(ExtractFilePath(FileName))); // use SysUtils
  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 '\記事本捷徑.lnk';
  MyPFile.Save(PWChar(WFileName),False);   // use Windows
  MyReg.Free;    end;    end.

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！