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

迷死特兔 2003-03-12 07:13:44

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

...全文

70 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

jackie168 2003-07-15

打赏
举报

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;

interface

uses
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