hf_waj,bubble两们大侠在吗?DFW怎么没有给人留言的功能.......有点不方便吧..:( (100分)

youou · 2003-07-05

因为搜索到贴子,你们已经实现了....希望能帮个忙... ====================== 搜索了老半天,还是没搜索到:我使任务栏中的快速启动无效,但是>>后的一直有效,如何也使它无效呢? var  wndHandle: THandle; begin wndHandle := FindWindow('Shell_TrayWnd', nil); wndHandle := FindWindowEx(wndHandle,0,'RebarWindow32',nil); wndHandle := FindWindowEx(wndHandle,0,'Toolbarwindow32',nil); EnableWindow(wndHandle,CheckBox1.Checked); end; ========= 这个代码不会快速启动中>>后的无效?怎么办?请大家帮帮忙.... 这个该如何实现?是用到钩子吗? =============== 上面的我不会,所以又想到用代替的办法..屏bi后的右边有时会出现一小块,如果shu标点 击时感觉有点死机的现象,希望大家copy代码..试试吧.. unit ut_ToolBar; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     btnRestore: TButton;     btnNew: TButton;     procedure btnNewClick(Sender: TObject);     procedure btnRestoreClick(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }     FNewButton : Boolean; // Check whether new start button had been created.     procedure NewButtonMsg (Var Msg : TMessage);  // new button events.   public     { Public declarations }   end; var   Form1: TForm1;   OldProc, NewProc : Pointer;   ToolBarHwnd, TrayHwnd,ReBarHandle,ReplaceBtnHwnd : Hwnd; implementation {$R *.DFM} procedure TForm1.btnNewClick(Sender: TObject); var   Rct : TRect;   fnt : HFont; begin   TrayHwnd := FindWindow('Shell_TrayWnd', nil);   ReBarHandle := FindWindowEx( TrayHwnd,0,'RebarWindow32',nil);   ToolBarHwnd := FindWindowEx(ReBarHandle,0,'ToolbarWindow32',nil);   // Create New Button to replace start button!   if FNewButton then Exit;   // Don't create when new button had been created.   Windows.GetWindowRect(ToolBarHwnd,Rct);    //获得开始按钮的矩形区域   ReplaceBtnHwnd := CreateWindowEx(WS_EX_WINDOWEDGE,        'ToolbarWindow32','Toolbar',WS_Child or WS_Visible,        0,0,rct.right - rct.left, Rct.bottom - Rct.top,        ReBarHandle,0,0,nil);  // Create a button, which parent is windows's Tray.   if ReplaceBtnHwnd > 0 then   begin     // Hide old Start button.       HWND_BOTTOM     SetWindowPos(ToolBarHwnd,HWND_BOTTOM,        Rct.left,rct.top,rct.right - rct.left, Rct.bottom - Rct.top,        SWP_HIDEWINDOW {OR SWP_NOREDRAW});     // Set New button's font and caption.     SetWindowText(ReplaceBtnHwnd, 'Start');     fnt := CreateFont(0,0,0,0,FW_NORMAL,0,0,0,ANSI_CHARSET,0,0,0,0,'Time New Romans');     SendMessage(ReplaceBtnHwnd, WM_SETFONT,fnt,MAKELPARAM(0,0));     // Show New start button.     SetWindowPos(ReplaceBtnHwnd,HWND_TOPMOST,         Rct.left,rct.top,rct.right - rct.left, Rct.bottom - Rct.top,         SWP_NOACTIVATE); //SWP_SHOWWINDOW     ShowWindow(ReplaceBtnHwnd,SW_ShowNormal);     UpdateWindow(ReplaceBtnHwnd);     // To handle the new messages.     NewProc := Pointer(LongInt(MakeObjectInstance(NewButtonMsg)));     OldProc := Pointer(SetWindowLong(ReplaceBtnHwnd,GWL_WNDPROC,LongInt(NewProc)));     if NewProc = nil then     begin       Showmessage('Can not grab new button''s message!');       Exit;     end;     FNewButton := True;   end; end; procedure TForm1.btnRestoreClick(Sender: TObject); var   Rct: TRect; begin   if FNewButton then    // Restore Old Start button.   begin     Windows.GetWindowRect(ToolBarHwnd,Rct);    //获得开始按钮的矩形区域     SetWindowLong(ToolBarHwnd,GWL_WNDPROC,LongInt(OldProc));     DestroyWindow(ReplaceBtnHwnd);     ReplaceBtnHwnd := 0;     ShowWindow(ToolBarHwnd,SW_ShowNormal);     SetWindowPos(ToolBarHwnd,HWND_TOPMOST,0,0,Rct.Right - Rct.Left,Rct.Bottom - Rct.Top,SWP_SHOWWINDOW);     FNewButton := False;   end; end; procedure TForm1.NewButtonMsg(var Msg: TMessage); begin   if Msg.Msg = WM_LBUTTONUP then    exit   else     Msg.Result := CallWindowProc(OldProc,ReplaceBtnHwnd,Msg.msg, msg.wParam, msg.lParam); end; procedure TForm1.FormDestroy(Sender: TObject); begin   if FNewButton then     btnRestoreClick(self);  //Restore button when form exiting. end; procedure TForm1.FormCreate(Sender: TObject); begin   btnNewClick(Sender); end; end.

youou · 2003-07-05

大伙帮帮忙呀...我已经调了快一天了...好惨哦..

youou · 2003-07-05

人气这么差,只好发送短消息给大家..若有打拢了请不要骂我呀.........

leisure · 2003-07-05

ti....

youou · 2003-07-05

ZRWeng · 2003-07-07

试了一下，感觉还可以，“感觉有点死机的现象”不常出现 程序上看不出来，只好关注吧。。

youou · 2003-07-07

to ZRWeng: 嘻.up了这么久.终于有人说话句话了..谢谢.. 你打开几个程序,后关掉,然后点击快速启动栏左边一点位置..就会觉得了..

hf_waj,bubble两们大侠在吗?DFW怎么没有给人留言的功能.......有点不方便吧..:( (100分)

youou

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

leisure

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

ZRWeng

Unregistered / Unconfirmed

youou

Unregistered / Unconfirmed

Similar threads