Add to context menu

[>>Terabyte<<]

Hi,

I've the following code to add an entry to the context menu,
Only thing is, this only works on individual files,
so suppose I want to select multiple files, the menu doesn't appear.
Anybody know which registry entries I should modify in order to get a context menu entry when multiple files (or folders) are selected?

 Reg := Tregistry.create;
  with Reg Do
  begin
  RootKey := HKEY_CLASSES_ROOT;
  OpenKey('Directory\shell',false);
  if not KeyExists('Upload Folder') then CreateKey('Upload Folder');
  CloseKey;
  OpenKey('Directory\shell\Upload Folder',False);
  WriteString('','Upload Folder');
  if not KeyExists('command') then CreateKey('command');
  Closekey;
  OpenKey('Directory\shell\Upload Folder\command',true);
  WriteString('',Application.ExeName + ' %1');
  CloseKey;
  end;
  with Reg Do
  begin
  RootKey := HKEY_CLASSES_ROOT;
  OpenKey('*\shell',false);
  if not KeyExists('Upload File') then CreateKey('Upload File');
      CloseKey;
      OpenKey('*\shell\Upload File',False);
      WriteString('','Upload File');
      if not KeyExists('command') then CreateKey('command');
      Closekey;
      OpenKey('*\shell\Upload File\command',true);
      WriteString('',Application.ExeName + ' %1');
      CloseKey;
end;

[chris_w]

http://www.delphipages.com/result.cfm?ID=2750

Take a look at the source for this component.

Chris

[sofarplanet]

Anyone can help of this issue?, I got the same problem.

[abcd]

try to find "shell extension"

[masman]

you can hook into the hint event of an object with your own code by loading an address into it's .OnshowHint event. Then your code will be called as an replacement. You can then redirect the hints to a status bar (common use) or create your own show hint code.