Страница 1 из 1
Дескриптор меню
Добавлено: 11 дек 2004, 12:04
OTELLO
Народ, помогите плиз, как можно получить дескриптор контекстного меню рабочего стола?
Добавлено: 13 дек 2004, 14:48
Romeo
Код: Выделить всё
IShellFolderPtr spDesktop;
SHGetDesktopFolder(spDesktop);
IContextMenu spMenu;
spDesktop->CreateViewObject(NULL, IID_IContextMenu, (void **)&spMenu);
// далее можно манипулировать этим контекстным меню
P.S. Прямого способа получения хэндла не существует по той причине, что меню всякий раз заново создаётся перед тем, как показаться. Единственный выход - работать с ним через Shell.
Добавлено: 13 дек 2004, 18:06
OTELLO
Спасибки что откликнулся на просьбу, но не мог бы ты на Дельфе код написать, я не знаю Си =(( Или просто суть указать, я далее сам напишу. Заранее Спасиб!..
Добавлено: 13 дек 2004, 18:50
Romeo
Shell везде одинаковый так же, как и API. Ну предположим в Delphi нет смартпоинтеров (в чём я сомневаюсь), тогда код будет выглядить следующим образом:
Код: Выделить всё
var
pDesktop : ^IShellFolder;
pMenu: ^IContextMenu;
...
SHGetDesktopFolder(pDesktop);
^pDesktop.CreateViewObject(NULL, IID_IContextMenu, @pMenu);
...
{некие манипуляции}
...
pMenu->Release;
pDesktop->Release;
P.S. Могу и ошибаться: ни разу не писал под COM на Delphi. Да и вообще советую открыть стандартный делфийский help и найти там описание COM-интнерфейса
IShellFolder.
Добавлено: 16 дек 2004, 13:59
Eugie
Ну предположим в Delphi нет смартпоинтеров (в чём я сомневаюсь)
Нет smart pointers, подтверждаю
var
pDesktop : ^IShellFolder;
pMenu: ^IContextMenu;
Указатели не нужны, соотв.параметры просто объявлены как var