Как поместить ехе в пуск>программы>автозагрузка

← →
Zorro (2005-01-14 20:41) [0]

Как поместить ехе(или ярлык) моей проги в пуск>программы>автозагрузка
и как удалить его оттуда

← →
kaZaNoVa © (2005-01-14 20:43) [1]

CopyFile

← →
begin...end © (2005-01-14 20:47) [2]

> kaZaNoVa © (14.01.05 20:43) [1]

Это ответ только на первую часть вопроса :-)

← →
Sumor (2005-01-14 20:47) [3]

Скопировать в %ALLUSERSPROFILE%\Главное Меню\Автозагрузка

← →
Zorro (2005-01-14 21:01) [4]

copyfile (1.exe,"%ALLUSERSPROFILE%\Главное Меню\Программы\Автозагрузка\Project1.exe",true)
так не работает
а %ALLUSERSPROFILE% автоматически определяет профиль пользователя?????? или это ты так... просто написал.

← →
Stilgar © (2005-01-14 21:03) [5]

Насчет создания ярлыка: нужно поискать информацию по теме IShellLink.

← →
programania © (2005-01-14 22:16) [6]

PROCEDURE startUP(z:boolean{true-создать}); var PIDList:PItemIDList; begin if SHGetSpecialFolderLocation (form1.handle,CSIDL_STARTUP,PIDList)=NOERROR then begin SHGetPathFromIDList(PIDList,Path); NameI:=strPas(Path)+"\Auto.lnk";//файл ярлыка он же в меню if z then CreateLink(nameExe,NameI,"","w"{-параметры запуска},nameExe) else deleteFile(NameI); end; end;

← →
Zorro (2005-01-15 13:10) [7]

НЕ работает эта процедура, на каждую строчку ошибку выдаёт при компиляции

← →
Doc-N (2005-01-15 21:22) [8]

uses ShlObj;
//......
//SHGetSpecialFolderLocation
//SHGetPathFromIDList
//IShellLink
//......

procedure CreateLink(const FileName, LinkSelfFileName: pchar);
var
IObject: IUnknown;
begin
Coinitialize(nil);
if CoCreateInstance(CLSID_ShellLink, nil, 1 or
4, IUnknown, IObject) <> 0 then
begin
CoUninitialize;
exit;
end;
(IObject as IShellLink).SetPath(FileName);
(IObject as IPersistFile).Save(PWChar(WideString(LinkSelfFileName)), FALSE);
CoUninitialize;
end;

procedure CreateLinkEx(const FileName, RunParams, WorkDir, LinkSelfFileName,
Description, IconFile: pchar; IconNumber, WndParams: cardinal);
var
IObject: IUnknown;
begin
Coinitialize(nil);
if CoCreateInstance(CLSID_ShellLink, nil, 1 or
4, IUnknown, IObject) <> 0 then
begin
CoUninitialize;
exit;
end;
with (IObject as IShellLink) do
begin
SetPath(FileName);
SetArguments(RunParams);
SetWorkingDirectory(WorkDir);
SetDescription(Description);
SetIconLocation(IconFile, IconNumber);
SetShowCmd(WndParams);
end;
(IObject as IPersistFile).Save(PWChar(WideString(LinkSelfFileName)), FALSE);
CoUninitialize;
end;

← →
Zuborob (2005-01-29 12:57) [9]

Я читал подобное в книге Delphi глазами Хакера. Там написано как помещать ярлык на Рабочий Стол и в Главное Меню. Как удалять, сейчас пишу код, жаль времени на это мало.

Как поместить ехе в пуск>программы>автозагрузка Найти похожие ветки