Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

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

 
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 глазами Хакера. Там написано как помещать ярлык на Рабочий Стол и в Главное Меню. Как удалять, сейчас пишу код, жаль времени на это мало.



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

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

Наверх




Память: 0.48 MB
Время: 0.047 c
6-1105441833
msguns
2005-01-11 14:10
2005.03.13
Программный доступ к серверу в режиме root


3-1108373854
andrey__
2005-02-14 12:37
2005.03.13
метод Locate находит не первую запись а последующую.


1-1109687582
Cosinus
2005-03-01 17:33
2005.03.13
Как в ScrollBar запретить моргание ползунка?


3-1108234055
Andrey1234124
2005-02-12 21:47
2005.03.13
Русские символы в таблицах Interbase


1-1109416806
Kwt
2005-02-26 14:20
2005.03.13
Border Style