Автозагрузка, каталог "Автозагрузка" создается повторно (Win7 x32)

[MyIE]

Сделал код для автозагрузки, все пусти находятся, но есть такая весчицца в коде

PHP код:

WorkTable:='[тут_програмно_находится_путь_к_каталогу_автозагрузки]';
WorkTable:=WorkTable+'\Автозагрузка';
if not DirectoryExists(WorkTable) then
MkDir(WorkTable); 


Ну и кароч прога моя создает данный каталог, хотя он уже имеется. Есесно в созданном мною каталоге ничего не грузится.
Для самопроверки, взял и скопировал имя дефолтного каталога "Автозагрузка" и попытался создать такой каталог рядом - создался!
Как же мне тогда добавить ярлык своей программы в автозагрузку?

[beemoto]

насколько я знаюэто дело в блокировшике винды тут нужно дать полный доступ проге а потом попробовать

[Kotofff]

Есть такая функция :

uses ShlObj
...
...
function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true) then s := '';
  result := PChar(s);
end;

А что касаемо Автозагрузки :

procedure TForm4.Button2Click(Sender: TObject);
begin
  if DirectoryExists(GetSpecialPath($0007))
    then ShowMessage('Есть папка Автозагрузка')
    else ShowMessage('Нету папки Автозагрузка');
end;

... всегда выдает 'Есть папка Автозагрузка' !!!

[MyIE]

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

[Kotofff]

А зачем папку мучать ?
А как же затертый до дыр код :

var reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('My_Programm', application.exename);// наша программа
reg.closekey;
reg.free;
end;

[MyIE]

Ну вроде говорят, что этот способ для вирусов

[Alter]

MyIE, стереотипы

[hacknet]

мужики подскажите как сделать поиск папки Автозагрузка и вывести ее путь к примеру в едит?

[GunSmoker]

http://programmersforum.ru/showpost....91&postcount=3
http://www.gunsmoker.ru/2011/09/blog-post_11.html (код в конце)
http://programmersforum.ru/showpost....3&postcount=11

[hacknet]

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

http://www.gunsmoker.ru/2011/09/blog-post_11.html (код в конце)
http://programmersforum.ru/showpost....3&postcount=11

спасибо, модуль хороший! во общем не обязательно выводить путь, нужно чтоб программа копировалась в папку, а ваш модуль только создаёт там ярлык.