Botão Direito do Mouse

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.