Bot�o Direito do Mouse

Question

Galera como eu adiciono op��es no menu que � acessado pelo bot�o direito do mouse no windows ?Igual as op��es do winzip AtenciosamenteFabio Dantas...

Dor_poa · Answer

oi fabio... vc. n�o sabe usar o PopMenu ou n�o sabe como registrar as op�oes no registro do windows no evento PopMenu do WINDOWS (API do Wuindows)??...

Fabioastra · Answer

eu queria saber como colocar op��es iguais as do winzip , quando clico com o bot�o direito em um arquivo na �rea de trabalho por exemplo...

Fabioastra · Answer

Me ajudem galera preciso disso urgente...

Fabioastra · Answer

up...

Iskatrek · Answer

tb to querendo saber...

Bilouro · Answer

� s� criar um atalho em:C:Documents and Settingsnome_do_usu�rioSendTosei que vc pode usar uma vari�vel de sistema para �C:Documents and Settings�, mas n�o me lembro...OBS1.: Vc tem a op��o de adicionar tamb�m pelo Install Shield...OBS2.: Fiz alguns testes em AllUsers mas n�o funcionou...[]�s...

Fabioastra · Answer

Desse jeito eu tb ja fiz , mas eu queria criar um menu proprio e nao colocar no enviar para mas mesmo assim valew pelo apoio...

Bilouro · Answer

cara, como assim meu menu pr�prio???em vez de adicionar um atalho direto em sendto, adicione uma pasta com um nome ex.: �meu aplicativo� e dentro dela os icones exatamente igual ao winzip faz...a pergunta � a seguinte: Vc quer saber o nome do arquivo que vc est� clicando e fazer um item tipo: �Add to icone_selecionado� ???...

Fabioastra · Answer

Eu to fazendo um programa de zip e queria criar um menu igual ao do winzip e eu n�o queria colocar no enviar para eu queria colocar no0 principal mesmo tipo onde fica o do winzip ta ligado...

Bilouro · Answer

HKEY_CLASSES_ROOTDirectoryShellExDragDropHandlersvai por este caminho....[]�s...

Bilouro · Answer

[quote:873cb35b67=�fabioastra�]Eu to fazendo um programa de zip e queria criar um menu igual ao do winzip e eu n�o queria colocar no enviar para eu queria colocar no0 principal mesmo tipo onde fica o do winzip ta ligado[/quote:873cb35b67]cara t� com a solu��o na m�o... de uma olhada nesse texto...T� em ingl�s...Nunca fiz isso... Se tiver problemas me fale...//search.microsoft.com/gomsuri.asp?n=1&c=rp_Results&siteid=us/dev&target=//msdn.microsoft.com/library/en-us/shellcc/platform/shell/programmersguide/shell_int/shell_int_extending/extensionhandlers/contextmenuhandlers.asp[]�s...

Fabioastra · Answer

Bilouro consegui colocar o menu no lugar mas ainda n�o consegui fazer ele executar um comando ao ser clicado mas to evoluindo e te aviso quando conseguir valew pelo apoio...

Bilouro · Answer

[quote:302d2e6da3=�fabioastra�]Bilouro consegui colocar o menu no lugar mas ainda n�o consegui fazer ele executar um comando ao ser clicado mas to evoluindo e te aviso quando conseguir valew pelo apoio[/quote:302d2e6da3]ok...Muito obrigado[]�s...

E_gama · Answer

Segue um exemplo: (Nao esquecer de incluir �Registry� em �Uses�

unit Unit1;

interface

uses
  Registry, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure AdicionaMenuItem(TipoArquivo,Titulo,LinhaComando:string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AdicionaMenuItem(TipoArquivo,Titulo,LinhaComando:string);
var
  Reg: TRegistry;
begin
  Reg           := TRegistry.Create;
  Reg.RootKey   := HKEY_CLASSES_ROOT;
  Reg.LazyWrite := False;
  Reg.OpenKey(TipoArquivo + �\shell\�+ Titulo +�\command�, True);
  Reg.WriteString(��, LinhaComando);
  Reg.CloseKey;
  Reg.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Todos os arquivos -> Abrir com o Notepad
  AdicionaMenuItem(�*�,�Abrir com o Notepad�,�notepad.exe �1�);

  // Diret�rios
  AdicionaMenuItem(�Directory�,�Abrir diret�rio em DOS�,�command.com /K cd �1�);

  // Pastas especiais (Meus documentos por exemplos) -> Abrir no DOS
  AdicionaMenuItem(�Folder�,�Abrir pasta em DOS�,�command.com /K cd �1�);

  // Unidades de disco ->
  AdicionaMenuItem(�Drive�,�Abrir Unidade em DOS�,�command.com /K cd �1�);
end;

end.

F�rum Bot�o Direito do Mouse #148086