VPF::Создание кнопки в чужом окне - Форум программистов

MrBanochka

Дата 18.3.2012, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 6.1.2012

Репутация: нет
Всего: нет

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

Canyon

Дата 19.3.2012, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет

Нашел в интернете за несколько минут

Код


 var Hnd: THandle;
      Btn: TButton;
  begin
    Hnd:=FindWindow('TMain', 'Main');
//    Hnd:=Handle;
    if Hnd <> 0 then begin
        Btn:=TButton.Create(Self);
        with Btn do begin
            Name:='SuperButton';
            SetBounds(150,150,200,600);
            ParentWindow:=Hnd;
        end;
    end;

Но вот как прикрутить к этой кнопке код увы не знаю.

Это сообщение отредактировал(а) Canyon - 19.3.2012, 12:17

MrBanochka

Дата 19.3.2012, 14:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 6.1.2012

Репутация: нет
Всего: нет

Попробовал через реестр, но почему то не работает (вручную все работает).
Кстати, ошибка ни на какую строку не вылазит, а выскакивает окно с: "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;

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

Это сообщение отредактировал(а) MetalFan - 19.3.2012, 15:10

MetalFan

Дата 19.3.2012, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Canyon, Автору немного не это нужно...

MrBanochka, Код, это хорошо... Но используй его с умом.
Во-первых - где хоть одна проверка на успешность совершаемой операции? OpenKey - это функция, возвращающая значение...
Во-вторых... скопипастил код? GUID новый(свой) подставил?
Вот еще один пример реализации добавления кнопки в explorer.

Но все-таки рекомендую изучить первоисточник: MSDN: Adding Toolbar Buttons

Но все вышесказанное наверное не совсем то...

Приведенный автором пример кода актуален для Win7 (на сколько я понял)... автор, какую кнопку для какой винды тебе надо добавить то?

А ошибка в приведеном коде скорее всего возникает из-за нехватки прав... в общем см."Во-первых".

Это сообщение отредактировал(а) MetalFan - 19.3.2012, 15:35

--------------------

There are always someone smarter than you...

Canyon

Дата 19.3.2012, 22:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 38
Регистрация: 11.3.2012

Репутация: нет
Всего: нет

Малость не дочитал вопрос.

А возможно образом правки реестра создать trackbar на панели пуск?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »