Автозапуск

[PROGR]

Подскажите как добавить программу в автозапуск, не пользуясь системным реестром!?

[Alex21]

Поместить в папку Автозагрузки.

[PROGR]

А как сделать это программно???

[mihali4]

Например:

CopyFile
Syntax

BOOL CopyFile(LPCTSTR lpszExistingFile, LPCTSTR lpszNewFile, BOOL fFailIfExists)

Между прочим, тоже из хелпа. Научимся когда-нибудь встроенным хэлпом пользоваться?

[Hollander]

Немного не правильный ответ т.к. если программа будет использовать еще какие-то файлы(типа настроек программы, базы данных, т.е. которые должны находиться в папке с программой), то и их придется копировать в автозагрузки, поэтому предлгаю такой вариант:

 
uses ShellApi;
....
procedure CreateLink(const PathObj, PathLink, Desc, Param: 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
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

[mihali4]

Сообщение от Hollander

Немного не правильный ответ т.к. если программа будет использовать еще какие-то файлы(типа настроек программы, базы данных, т.е. которые должны находиться в папке с программой), то и их придется копировать в автозагрузки

А вы собираетесь копировать сами файлы???
В папку автозагрузки нужно копировать ярлык для программы, а не ее саму!

Вот именно в своем коде я скопировал только ярлык

В общем, не совсем поняли друг друга...
Я упомянул только метод копирования...

[Hollander]

Вот именно в своем коде я скопировал только ярлык

[PROGR]

Спасибо за помощь тему можно закрывать!!!

[Ярослав]

Hollander

 
uses ShellApi;
procedure CreateLink(const PathObj, PathLink, Desc, Param: 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
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLink)), FALSE);
end;

uses что добавить?
вот ошибки:

[Error] Unit1.pas(26): Undeclared identifier: 'IShellLink'
[Error] Unit1.pas(27): Undeclared identifier: 'IPersistFile'
[Error] Unit1.pas(29): Undeclared identifier: 'CreateComObject'
[Error] Unit1.pas(29): Undeclared identifier: 'CLSID_ShellLink'
[Error] Unit1.pas(30): Operator not applicable to this operand type
[Error] Unit1.pas(31): Operator not applicable to this operand type
[Error] Unit1.pas(33): Undeclared identifier: 'SetArguments'
[Error] Unit1.pas(34): Undeclared identifier: 'SetDescription'
[Error] Unit1.pas(35): Undeclared identifier: 'SetPath'
[Error] Unit1.pas(37): Missing operator or semicolon
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Как сделать процедуру: procedure CreateLink

procedure CreateLink(const PathObj, PathLink, Desc, Param: string);

mihali4

Цитата:CopyFile
Syntax
BOOL CopyFile(LPCTSTR lpszExistingFile, LPCTSTR lpszNewFile, BOOL fFailIfExists)

О пишите что делает функция.