Главная страница
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.025 c
1-1107178538
Fonda
2005-01-31 16:35
2005.02.13
Сортировка в Excel


8-1098766539
ИМХО
2004-10-26 08:55
2005.02.13
JPEG-галлерея


11-1089933668
Baloo
2004-07-16 03:21
2005.02.13
Что-то я недомудрил с датой?


6-1101649449
Alexeyy
2004-11-28 16:44
2005.02.13
Интернет


1-1106658881
Anna
2005-01-25 16:14
2005.02.13
Тест по Delphi при приеме на работу