如何在Notepad上加入自己的菜单项，并响应Onclick(300分)

歪就歪 · 1999-11-23

300分求详细解决方案： 在Notepad上加入自己的菜单项，并能响应Onclick事件 这不是吃饱了撑的么！自己编一个Notepad不就得了？！没辙， 我老板非要这么做：用Delphi 程序找到运行着的Notepad，并 给它加上一个菜单项，当这菜单项被Click时，在显示的文件 的指定位置上加入一个字串。 我现在能做到的是： 1、用FindWindow找到Notepad 2、读出Notepad的内容， 3、用CreateWindows在Notepad上放一个“死”Button，（MenuItem 不会加，只好先用Button试试） 4、在内容中加入字串（但不是指定位置） 剩下的就实在是做不出来了。 代码如下： unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Memo1: TMemo;     btnGetText: TButton;     btnWriteText: TButton;     Edit1: TEdit;     Edit2: TEdit;     btnCreateBtn: TButton;     btnCreateMenu: TButton;     procedure btnGetTextClick(Sender: TObject);     procedure btnWriteTextClick(Sender: TObject);     procedure btnCreateBtnClick(Sender: TObject);     procedure btnCreateMenuClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   WindowCaption : String;   AimWindow : HWND;   FoundWnd : HWND; implementation {$R *.DFM} procedure TForm1.btnGetTextClick(Sender: TObject); var   Buf:array [0..1024] of char;     Wnd : HWND; begin   Memo1.Clear;   WindowCaption := Edit2.Text;   FoundWnd := 0;   AimWindow := FindWindow(PChar(WindowCaption), nil);   if AimWindow <>0 then begin     Wnd := GetWindow(AimWindow, GW_CHILD);     while Wnd <> 0 do begin       FoundWnd := Wnd;       SendMessage(Wnd, WM_GETTEXT, 1024, LongInt(@Buf));       Memo1.Lines.Add(Buf);       Wnd :=GetWindow(Wnd, GW_HWNDNEXT);     end;   end   else ShowMessage('Can not found Window: ' + WindowCaption) end; procedure TForm1.btnWriteTextClick(Sender: TObject); var Wnd : HWND;     Buf : array [0..256] of char;     St : String; begin   WindowCaption := Edit2.Text;   St := Edit1.Text;   AimWindow := FindWindow(PChar(WindowCaption), nil);   if AimWindow <> 0 then begin     Wnd := GetWindow(AimWindow, GW_CHILD);     if Wnd <> 0 then       SendMessage(Wnd, WM_SETTEXT, 256, LongInt(PChar(st)));   end; end; procedure TForm1.btnCreateBtnClick(Sender: TObject); begin   if AimWindow <> 0 then begin     if (CreateWindowEx(WS_EX_TOPMOST, 'Button', nil,                             ws_child or ws_visible or ws_border or bs_PushButton,                             10,10, 70, 30, AimWindow, 100, 0, nil)=0) then       showmessage('not work');   end   else showmessage('window not exist'); end; procedure TForm1.btnCreateMenuClick(Sender: TObject); begin   if AimWindow <> 0 then begin     if (CreateWindowEx(WS_EX_TOPMOST, 'SubMenu', nil,                             ws_child or ws_visible or ws_border or bs_PushButton,                             10,10, 70, 30, AimWindow, 100, 0, nil)=0) then       showmessage('not work');   end   else showmessage('window not exist'); end; end. 各位帮帮忙吧，别三言两语的，给我点CODE，我出300分。 这叫什么事儿，杀了老板的心都有！

cytown · 1999-11-23

呵呵, 你还是杀了老板先

www · 1999-11-23

var aa:THandle;     bb:Hmenu; begin   aa:=findwindow(......)   bb:=windows.GetMenu(aa);   windows.AppendMenu(.... 剩下的我不会了。

歪就歪 · 1999-11-23

To: cyTown：别呀，我还是先自杀吧！ To: www：谢谢，我会试试：GetMenu和AppendMenu， 不过，问题还远远没有解决……

www · 1999-11-23

加菜单我调成功了，但不能响应事件，别急，慢满来。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Menus; type   TForm1aa = class(TForm)     Button1: TButton;     MainMenu1: TMainMenu;     PopupMenu1: TPopupMenu;     aaa: TMenuItem;     procedure Button1Click(Sender: TObject);     procedure AppendTo(Item: TMenuItem; Menu: HMENU; nPos: integer);     procedure aaaClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1aa: TForm1aa; implementation {$R *.DFM} procedure TForm1aa.Button1Click(Sender: TObject); var aa:thandle;     bb:hmenu; begin   aa:=findwindow('TForm1','form1');  //我的一个程序名   bb:=windows.GetMenu(aa);   appendto(popupmenu1.Items[0],bb,0);   //加入采单 end; procedure Tform1aa.AppendTo(Item: TMenuItem; Menu: HMENU; nPos: integer); const   IBreaks: array[TMenuBreak] of Longint = (MFT_STRING, MFT_MENUBREAK, MFT_MENUBARBREAK);   IChecks: array[Boolean] of Longint = (MFS_UNCHECKED, MFS_CHECKED);   IDefaults: array[Boolean] of Longint = (0, MFS_DEFAULT);   IEnables: array[Boolean] of Longint = (MFS_DISABLED or MFS_GRAYED, MFS_ENABLED);   IRadios: array[Boolean] of Longint = (MFT_STRING, MFT_RADIOCHECK);   ISeparators: array[Boolean] of Longint = (MFT_STRING, MFT_SEPARATOR); var   MenuItemInfo: TMenuItemInfo;   aCaption: string;   NewFlags: Integer; begin   if Item.Visible then with Item do begin     aCaption := Caption;     if Count > 0 then MenuItemInfo.hSubMenu := Handle     else if (ShortCut <> scNone) and ((Parent = nil) or       (Parent.Parent <> nil) or not (Parent.Owner is TMainMenu)) then       aCaption := aCaption + #9 + ShortCutToText(ShortCut);     if Lo(GetVersion) >= 4 then begin       MenuItemInfo.cbSize := SizeOf(TMenuItemInfo);       MenuItemInfo.fMask := MIIM_CHECKMARKS or MIIM_DATA or MIIM_ID or         MIIM_STATE or MIIM_SUBMENU or MIIM_TYPE;       MenuItemInfo.fType := IRadios[RadioItem] or IBreaks[Break] or         ISeparators[Caption = '-'];       MenuItemInfo.fState := IChecks[Checked] or IEnables[Enabled]         or IDefaults[Default];       MenuItemInfo.wID := Command;       MenuItemInfo.hSubMenu := 0;       MenuItemInfo.hbmpChecked := 0;       MenuItemInfo.hbmpUnchecked := 0;       MenuItemInfo.dwTypeData := PChar(aCaption);       if Count > 0 then MenuITemInfo.hSubMenu := Handle;       InsertMenuItem(Menu, nPos, True, MenuItemInfo);     end     else begin       NewFlags := IBreaks[Break] or IChecks[Checked] or IEnables[Enabled] or         ISeparators[Caption = '-'] or MF_BYPOSITION;       if Count > 0 then         InsertMenu(Menu, nPos, MF_POPUP or NewFlags, Handle,           PChar(aCaption))       else         InsertMenu(Menu, nPos, NewFlags, Command, PChar(aCaption));     end;   end; end; procedure TForm1aa.aaaClick(Sender: TObject); begin   showmessage('saf'); end; end.

o*o · 1999-11-23

加个菜单倒是很简单 InsertMenu(GetMenu(FindWindow('notepad',nil)), $FFFFFFFF, MF_STRING or MF_BYPOSITION, 4,'test'); 要响应ONCLICK没那么容易。

蚯蚓 · 1999-11-23

就算你把菜单加上去了，也能响应事件， 那么事件响应中的代码怎么执行呢？ Notepad没法执行你的程序中的代码吧？？ 考虑一下用钩子，先解决这个问题 否则白搭

hubdog · 1999-11-23

加菜单可以用www的，但处理click事件可能必须得写一个全局的消息钩子 处理wh_msgfilter（响应菜单消息）或WH_GETMESSAGE（可能不如 wh_msgfilter好）

cAkk · 1999-11-23

有这些时间,自己做一个notepad都出来了,反正notepad的功能这么简单, 你干脆做一个和他界面一模一样的,万一下次你们老板再提出什么其他的 非礼要求时,不就简单多了.

歪就歪 · 1999-11-23

谢谢，请各位再帮忙给解决一下。

www · 1999-11-23

实在对不起，消息钩子我不会做。 不过你的老板也真够可以的，你把他炒了吧!

蚯蚓 · 1999-11-23

这种老板最可怕， 狗屁不懂，想象力还特别丰富， 对付他的办法： 1、阳奉阴违 2、炒 否则迟早被他逼疯，你不想吧？

歪就歪 · 1999-11-23

给WWW，你已经给我很多Source Code的了，我的水平，如果 没Source Code，我自己总是扣不出来。谢谢你。 你们说的钩子，是hook么？或是Callback？哪位能帮忙给做 一个？知道应该不容易，所以才咬牙出300分呢。 HELP？？？

cytown · 1999-11-23

没错, 没错, 在你没自杀前.....

hubdog · 1999-11-23

你在论坛里搜索"hook",一大把，自己看吧。

o*o · 1999-11-23

钩子作出来了，sent out to YjiuY.

www · 1999-11-23

给<a href=mailto:tommm@371.net>我</a>一份

o*o · 1999-11-23

to www: demo.zip sent out. 完全符合YJY的要求。

www · 1999-11-23

谢谢o*o!!

Fencer · 1999-11-23

如何在Notepad上加入自己的菜单项，并响应Onclick(300分)

歪就歪

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

歪就歪

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

蚯蚓

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

歪就歪

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

蚯蚓

Unregistered / Unconfirmed

歪就歪

Unregistered / Unconfirmed

cytown

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

o*o

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

Fencer

Unregistered / Unconfirmed

Similar threads