〓〓如何在Windows桌面右键菜单中加入自己的程序呢？有的显卡程序就可以...〓〓

Question

如何在Windows桌面右键菜单中加入自己的程序呢？我看有的显卡程序就可以...

Answer 1

http://expert.csdn.net/Expert/topic/1483/1483295.xml?temp=.7806055
http://www.delphibbs.com/delphibbs/dispq.asp?lid=0940110我想这些够你看的了

Answer 2

主要运用windows shell 调用com接口

Answer 3

uses
  SysUtils,
  Windows,
  Classes, Messages;{$R *.res}
var
  hNextHook: HWND;procedure ShowMsg(Msg: string);
begin
  MessageBox(GetActiveWindow, Pchar(Msg), 'Info', MB_OK + MB_ICONINFORMATION);
end;function CallWndProc(nCode: integer; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
var
  Msg: PCWPStruct;
begin
  Msg := pointer(lParam);
  case Msg.message of
    WM_INITMENUPOPUP:
      begin
        InsertMenu(Msg.wParam, 0, MF_BYCOMMAND or MF_STRING, 100, 'Test');
      end;
    WM_MENUCOMMAND,WM_SYSCOMMAND:
      begin
        if Lo(Msg.wParam) = 100 then Beep(500,100);
      end;
  end;
  Result := CallNextHookEx(hNextHook, nCode, wParam, lParam);
end;procedure Hook; stdcall;
begin
  hNextHook := SetWindowsHookEx(WH_CALLWNDPROC, @CallWndProc, HInstance, 0);
end;procedure UnHook; stdcall;
begin
  if hNextHook <> 0 then
    UnhookWindowsHookEx(hNextHook);
end;exports
  Hook, UnHook;begin
  hNextHook := 0;
end.//////////////
调用代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure Hook; stdcall;external 'project2.dll';
procedure UnHook; stdcall;external 'project2.dll';procedure TForm1.FormCreate(Sender: TObject);
begin
  Hook;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnHook;
end;end.
效果圖片：http://www.eping.net/fourm/UploadFile/200362316553182637.jpg