VPF::Добвится в контекстное меню Windows

CODARZ

Дата 17.10.2003, 14:39 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

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

Как добавить пункт в контекстное меню Windows,
т.е. мне нужно добавить пункт "Сделать то-то с помощью MyProg"
(Примером может послужить "Play in Winamp")....

Скажите кто знает...

Это сообщение отредактировал(а) CODARZ - 17.10.2003, 14:39

stab

Дата 17.10.2003, 17:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 1839
Регистрация: 1.1.2003

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

Код


var
  reg: TRegistry;
  cls, cmd: String;
...
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CLASSES_ROOT;

    reg.OpenKey('.mp3', True);
    cls := reg.ReadString('');
    reg.CloseKey;

    cmd := cls + '\shell\mycmd\command';
    reg.OpenKey(cmd, True);
    reg.WriteString('', 'c:\myprog.exe %1');
    reg.CloseKey;
    reg.Free;

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

6, 6, 6 - the number of the beast.

Pakshin A. S.

Дата 17.10.2003, 19:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Кое-что нашел у себя, может поможет.

Код


const My_MebuItem = $4000;

(***)
 
private
 (***)
 procedure HookSysCommand(var message: TwmSysCommand); message WM_SysCommand;

(***)

procedure TForm1.HookSysCommand(var message: TwmSysCommand);
begin
 inherited;
 case Message.CmdType of
  My_MenuItem: ShowMessage('Пункт активизирован');
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 SysMenu: THandle;
begin
 SysMenu:=GetSystemMenu(Handle, False);
 AppendMenu(SysMenu, mf_SEPARATOR, 0, #0);
 AppendMenu(SysMenu, mf_BYPOSITION, My_MenuItem, 'Новый пункт');
end;

P. S. Если используешь мой код, напиши, что получится...

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