Скачать: CL | DM;

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

← →
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
Говорят есть еще какие то варианты..

---

← →
Jay1982 ©   (2005-01-31 14:25) [2]


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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c