Ярлыки

← →
Mr_Bob © (2005-01-31 11:44) [0]

Захотелось мне тут создать ярлык через Delphi, в смысле такой, который можно в Windows создавать для разных программ и документов. У него еще расширение .lnk. Как это сделать? Создать его я хочу для того, чтобы потом поместить в Автозагрузку, чтобы программа запускалась автоматически при загрузке системы. Если есть какие-то другие варианты загрузки программы при запуске Windows - расскажите о них, пожалуйста.

← →
jack128 © (2005-01-31 13:58) [1]

Mr_Bob © (31.01.05 11:44)
Захотелось мне тут создать ярлык через Delphi, в смысле такой, который можно в Windows создавать для разных программ и документов. У него еще расширение .lnk. Как это сделать?

в Win32sdk читать начиная с About Shell Links

Mr_Bob © (31.01.05 11:44)
Если есть какие-то другие варианты загрузки программы при запуске Windows - расскажите о них, пожалуйста.
прописать в реестре в HKLM/Software/Microsoft/CurrentVersion/Run или HKCU/Software/Microsoft/CurrentVersion/Run
Говорят есть еще какие то варианты..

uses ActiveX, ShlObj, ComObj; procedure CreateLink(app_path, app_arg, lnk_path: string); var IObject: IUnknown; SLink: IShellLink; PFile: IPersistFile; begin IObject := CreateComObject(CLSID_ShellLink); SLink := IObject as IShellLink; PFile := IObject as IPersistFile; with SLink do begin SetPath(PChar(app_path)); SetWorkingDirectory(PChar(ExtractFilePath(app_path))); SetArguments(PChar(app_arg)); end; PFile.Save(PWChar(WideString(lnk_path)), FALSE); end;

Ярлыки Найти похожие ветки