Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.13;
Скачать: 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 вся ветка

Текущий архив: 2005.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
3-1105802841
Mortal
2005-01-15 18:27
2005.02.13
Помогите с SQL запросом.


8-1098894068
Sonic_gd
2004-10-27 20:21
2005.02.13
Неработает mediaPlayer


14-1106664888
Soft
2005-01-25 17:54
2005.02.13
Как вы относитесь к безалкогольной водке?


1-1106821362
Жека
2005-01-27 13:22
2005.02.13
Динамическое создание компонент


9-1100257007
Wish
2004-11-12 13:56
2005.02.13
Можно ли рисовать красиво?