Создание кнопки в проводнике

[dubailand]

Всем привет. Собственно САБЖ: как создать собственную кнопку в проводнике windows средствами delphi??

[_SERGEYX_]

А кнопка должна запускать "Unreal Tournament 3" ?

[dubailand]

А кнопка должна запускать "Unreal Tournament 3" ?

Ах, если бы...

[Кольша]

ну наверное через реестр или отлваливать сообщения и таскать ее вместе с explorer'om ну это уже так бред!

[dubailand]

Попробовал через реестр, но почему то не работает (вручную все работает). Кстати, ошибка ни на какую строку не вылазит, а выскакивает окно с: "Failed to set data for 'InfoTip'"
Вот собственно сам код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg:TRegistry;
begin
     Reg:=TRegistry.Create;
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderTypes\{5c4f28b5-f869-4e84-8e60-f11db97c5cc7}\TasksItemsSelected', false); //Данный ключ уже существует
     Reg.OpenKey('\0\{c53ac272-7f42-44f0-9fb2-c660d077a6c8}',true);//Этот ключ создаем, т.е. он будет новый
     Reg.WriteString('InfoTip',' ');//В созданном ключе создаем строковый параметр
     Reg.WriteString('Title',' ');//Аналогично
     Reg.OpenKey('\shell\InvokeTask\command',true);//Продолжаем создавать ключ
     Reg.WriteString(' ','wscript.exe "C:\Users\??????\Desktop\edit.js" %0');//В созданном ключе еще один строковый параметр
     Reg.CloseKey;
     Reg.Free;
end;

Что мне нужно исправить?? Заранее спасибо...

[Пепел Феникса]

а вы точно программно добиваетесь того же эффекта?(те же ключи создаете)

[dubailand]

а вы точно программно добиваетесь того же эффекта?(те же ключи создаете)

Да, еще раз 3 раза перепроверил, все правильно

[lux16]

А бы использовать RegIni

[Stilet]

dubailand

Извиняюсь, а зачем? Ярлык на рабстоле или в быстром запуске гораздо удобнее.

[dubailand]

Stilet, дело в том, что я создаю программу, которая не запускает файл, а обрабатывает данные, смотря с какого окна она запускается. Именно поэтому ярлык на столе мне в корне не подходит...к сожалению.

Решил последовать совету lux16 и работать с RegIni. Исправил код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Reg:TRegIniFile;
begin
     Reg:=TRegIniFile.Create;
     Reg.RootKey := HKEY_LOCAL_MACHINE;
     Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderTypes\', false);
     Reg.CreateKey('{5c4f28b5-f869-4e84-8e60-f11db97c5cc7}\TasksItemsSelected\0\{c53ac272-7f42-44f0-9fb2-c660d077a6c8}');
     Reg.WriteString('{c53ac272-7f42-44f0-9fb2-c660d077a6c8}','InfoTip',' ');
     Reg.WriteString('{c53ac272-7f42-44f0-9fb2-c660d077a6c8}','Title',' ');
     Reg.CloseKey;
     Reg.Free;
end;

Была ошибка связанная с нехваткой прав для редактирования ветви HKEY_LOCAL_MACHINE. Исправил на HKEY_CURRENT_USER, но к сожалению нельзя создать необходимые GUIDы. Программу запускаю от имени администратора, нужные права есть. Как мне правильно поступить в данной ситуации, чтобы получить необходимые права???