Developing.ru

[quote]Ну предположим в Delphi нет смартпоинтеров (в чём я сомневаюсь)[/quote]

Нет smart pointers, подтверждаю

[quote]var
pDesktop : ^IShellFolder;
pMenu: ^IContextMenu;
[/quote]

Указатели не нужны, соотв.параметры просто объявлены как var

var
   pDesktop : ^IShellFolder;
   pMenu: ^IContextMenu;

   ...

   SHGetDesktopFolder(pDesktop);
   ^pDesktop.CreateViewObject(NULL, IID_IContextMenu, @pMenu); 

   ...   

   {некие манипуляции}

  ...

  pMenu->Release;
  pDesktop->Release;

Shell везде одинаковый так же, как и API. Ну предположим в Delphi нет смартпоинтеров (в чём я сомневаюсь), тогда код будет выглядить следующим образом:
[code]
var
pDesktop : ^IShellFolder;
pMenu: ^IContextMenu;

...

SHGetDesktopFolder(pDesktop);
^pDesktop.CreateViewObject(NULL, IID_IContextMenu, @pMenu);

...

{некие манипуляции}

...

pMenu->Release;
pDesktop->Release;
[/code]
P.S. Могу и ошибаться: ни разу не писал под COM на Delphi. Да и вообще советую открыть стандартный делфийский help и найти там описание COM-интнерфейса [i]IShellFolder[/i].

Спасибки что откликнулся на просьбу, но не мог бы ты на Дельфе код написать, я не знаю Си =(( Или просто суть указать, я далее сам напишу. Заранее Спасиб!..

   IShellFolderPtr spDesktop;
   SHGetDesktopFolder(spDesktop);

   IContextMenu spMenu;
   spDesktop->CreateViewObject(NULL, IID_IContextMenu, (void **)&spMenu);

   // далее можно манипулировать этим контекстным меню

[code]
IShellFolderPtr spDesktop;
SHGetDesktopFolder(spDesktop);

IContextMenu spMenu;
spDesktop->CreateViewObject(NULL, IID_IContextMenu, (void **)&spMenu);

// далее можно манипулировать этим контекстным меню
[/code]
P.S. Прямого способа получения хэндла не существует по той причине, что меню всякий раз заново создаётся перед тем, как показаться. Единственный выход - работать с ним через Shell.

Народ, помогите плиз, как можно получить дескриптор контекстного меню рабочего стола?