感谢来如风热心指点!关于托盘显示问题,谁能点化我?在线等待! (220分)

qingrj · 2003-04-27

我有一个托盘小程序,用起来效果不错,现在我想让它Hint动态显示所读注册表的键值. 我在大富翁论坛研究了一个周的帖子,总是不得其法,先将原码贴上来,请高人点化. 在线等待,只UP无分. unit acbb; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls,shellapi, Menus, Registry; const IDI_TRAYICON=WM_USER+10;       TRAY_CALLBACK=WM_USER+40; type   TForm1 = class(TForm)     label1: TPanel;     PopupMenu1: TPopupMenu;     N1: TMenuItem;     A1: TMenuItem;     N2: TMenuItem;     X1: TMenuItem;     H1: TMenuItem;     Timer1: TTimer;     procedure FormCreate(Sender: TObject);     procedure A1Click(Sender: TObject);     procedure X1Click(Sender: TObject);     procedure H1Click(Sender: TObject);     procedure N1Click(Sender: TObject);     procedure FormPaint(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   MyRegistry:TRegistry;   Form1: TForm1;   aa:TNotifyIcondata; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var tubiao:THandle; begin   tubiao:=application.Icon.handle;   aa.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;   aa.uID:=uint(IDI_TRAYICON);   aa.cbSize:=sizeof(tnotifyicondata);   aa.uCallbackMessage:=tray_callback;   aa.Wnd:=self.handle;   aa.hIcon:=tubiao;   //aa.sztip:='请右键选择';   shell_notifyicon(nim_add,@aa);   showwindow(application.handle,sw_hide);   form1.caption:='电脑开机时间为:'+timetostr(now); end; procedure TForm1.A1Click(Sender: TObject); var msg:string; begin   msg:='xxxxxxxxxxxxx';   application.MessageBox(pchar(msg),'关于...',mb_ok+mb_iconinformation); end; procedure TForm1.X1Click(Sender: TObject); begin   form1.close;   form1.Free; end; procedure TForm1.H1Click(Sender: TObject); begin  myregistry:=Tregistry.Create;  MyRegistry.RootKey:=HKEY_LOCAL_MACHINE;  try  if MyRegistry.OpenKey('/SOFTWARE/d-ok',True)   then   begin    MyRegistry.writebool('xxhg',true);    MyRegistry.writestring('jls[0]',datetimetostr(now));    end;   finally   MyRegistry.Free;  end;  winexec('C:/Program Files/b-d/eye.exe',SW_RESTORE) ; end; procedure TForm1.N1Click(Sender: TObject); begin    winexec('C:/Program Files/b-d/b-d.exe',SW_RESTORE) ; end; procedure TForm1.FormPaint(Sender: TObject); begin   Form1.Hide; end; {procedure TForm1.Timer1Timer(Sender: TObject); var tipinfo,info:string; begin myregistry:=Tregistry.Create;  MyRegistry.RootKey:=HKEY_LOCAL_MACHINE;  try  if MyRegistry.OpenKey('/SOFTWARE/d-ok',True)   then tnnd:= '现在数据是:'+inttostr(MyRegistry.Readinteger('tnnd'));   finally   MyRegistry.Free;  end;  {这里如何显示tnnd值,请高人点化} end;} end.

cxz9 · 2003-04-27

unit main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, jpeg, ExtCtrls,StdCtrls,Menus,ShellAPI; const    CM_RESTORE = WM_USER + $1000;    WZGL_APP_NAME = 'MFun_System'; const    WM_WZGLNOTIFY = WM_USER + 100;  //自定义消息    strNotifyTip = '常用函数'; //状态区的提示信息 //这儿改成从注册表读取就是了    ID_MAIN = 100; // 定义图标的ID       type   Tlog = class(TForm)     pop: TPopupMenu;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     Image1: TImage;     procedure N1Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure Image1Click(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure FormCreate(Sender: TObject);   private     { Private declarations }   public     { Public declarations }       function AddIcon(hwnd: HWND): Boolean; //在状态区添加图标       function RemoveIcon(hwnd: HWND): Boolean; //从状态区移去图标       procedure Notify(var Msg: TMessage); message WM_WZGLNOTIFY; //自定义消息处理函数       procedure minimize(sender: Tobject); //定义最小化过程，赋给Application.OnMinimiz;       procedure CreateParams(var Params: TCreateParams); override;       procedure RestoreRequest(var message: TMessage); message CM_RESTORE;   end; var   log: Tlog;    nid: NOTIFYICONDATA;    i: integer; implementation {$R *.dfm} procedure miniapp(aform:Tform); begin      showwindow(application.handle,sw_minimize); end; procedure Tlog.CreateParams(var Params: TCreateParams); begin    inherited CreateParams(Params);    Params.WinClassName := WZGL_APP_NAME; end; {处理“恢复”消息} procedure Tlog.RestoreRequest(var message: TMessage); begin    if IsIconic(Application.Handle) = True then  //窗体是否最小化    begin       Application.Restore;  //恢复窗体       Application.BringToFront;    end    else       Application.BringToFront; //提到前面显示    end; //在状态区添加图标 function Tlog.AddIcon(hwnd: HWND): Boolean; begin    nid.cbSize := sizeof(NOTIFYICONDATA);    nid.Wnd := hwnd;    nid.uID := ID_MAIN;    nid.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;    nid.uCallbackMessage := WM_WZGLNOTIFY;    nid.hIcon := LoadIcon(hInstance, 'MAINICON');    strCopy(nid.szTip, strNotifyTip);    AddIcon := Shell_NotifyIcon(NIM_ADD, @nid); end; //从状态区移去图标 function Tlog.RemoveIcon(hwnd: HWND): Boolean; var    nid: NOTIFYICONDATA; begin    nid.cbSize := sizeof(NOTIFYICONDATA);    nid.Wnd := hwnd;    nid.uID := ID_MAIN;    nid.uFlags := 0;    RemoveIcon := Shell_NotifyIcon(NIM_DELETE, @nid); end; //自定义消息处理函数 procedure Tlog.Notify(var Msg: TMessage); var    Pt: TPoint; begin    case msg.LParam of       WM_RBUTTONDOWN:    //当点击右键时,弹出快捷菜单       begin          SetForeGroundWindow(nid.wnd);          GetCursorPos(Pt); //         Popupmenu.Popup(pt.x, pt.y);          Pop.Popup(pt.x, pt.y);       end;       WM_LBUTTONDOWN:    //当点击左键时,显示窗体       begin          RestoreRequest(msg);       end;    end; end; //定义最小化过程，赋给Application.OnMinimize; procedure Tlog.minimize(sender: Tobject); begin    AddIcon(handle);    ShowWindow(Application.handle, sw_hide) end; procedure Tlog.N1Click(Sender: TObject); begin    miniapp(self); end; procedure Tlog.N2Click(Sender: TObject); begin close; end; procedure Tlog.Image1Click(Sender: TObject); begin minimize(self); end; procedure Tlog.FormDestroy(Sender: TObject); begin RemoveIcon(handle); end; procedure Tlog.FormCreate(Sender: TObject); begin    Application.OnMinimize := minimize; end; end.

qingrj · 2003-04-27

您说的:这儿改成从注册表读取就是了,但我不明白,那不是主程序代码写入地方,如何改? 请再讲细些,我很菜,分不够可以加!!

liuxi · 2003-04-27

在{这里如何显示tnnd值,请高人点化}处加上下面的 aa.sztip := tnnd; Shell_NotifyIcon(NIM_MODIFY, @aa);

qingrj · 2003-04-27

编译出现错误.提示:   [Error] acbb.pas(163): Incompatible types: 'Array' and 'String' 我对Array不懂,谁能指点一下!

来如风 · 2003-04-27

array 是一个数组啊 代码太长了，不知道出错的是那一行

qingrj · 2003-04-27

就是aa.sztip := tnnd;这一行,估计是变量类型不兼容问题; 是不是sztip 必须要求数组变量,该如何改!!

来如风 · 2003-04-27

你的tnnd是什么类型的啊？没有看到什么地方有定义嘛 你自己可以转换一下 sztip：=‘sdfjl'可以的， strCopy(nid.szTip, strNotifyTip);//也行，copy 楼上的一位兄弟的

qingrj · 2003-04-27

tnnd在前面定义是sting,不能将其用单括弧括起来,要显示它的动态值! 第二种办法我试试!谢谢!!!

来如风 · 2003-04-27

tnnd:= MyRegistry.Readinteger('tnnd'); ////这读出来的是整型的值吧

qingrj · 2003-04-27

是整型,这一句我为了显示已变为:   tnnd:= '现在数据是:'+inttostr(MyRegistry.Readinteger('tnnd'));

来如风 · 2003-04-27

那你tnnd定义不应该是整形啊， 是整型,这一句我为了显示已变为:   tnnd:= '现在数据是:'+inttostr(MyRegistry.Readinteger('tnnd')); 这样tnnd还是string型的，这时copy应该可以了吧

qingrj · 2003-04-27

是不是这样转换: sztip：=strCopy(nid.szTip, strNotifyTip);

来如风 · 2003-04-27

不是的； tipinfo:= '现在数据是:'+inttostr(MyRegistry.Readinteger('tnnd')); 直接 strcopy(nid.sztip,pchar(tipinfo));//这是一个字符串拷贝函数， 就可以了

qingrj · 2003-04-27

谢谢你,不过这些已超过我的知识理解范围, tipinfo该如何定义,不然编译又出错? 能不能请你把:    procedure TForm1.Timer1Timer(Sender: TObject); 这一段帮我改一下,编译通过后我再好好琢磨!

来如风 · 2003-04-27

tipinfo:string; 暂时没有时间，我要下了，晚上看看吧

qingrj · 2003-04-27

晚上等你,有qq吗?

qingrj · 2003-04-27

153920396，你的我没记住，再说一遍好吗

zjan521 · 2003-04-27

_NOTIFYICONDATAA = record     cbSize: DWORD;     Wnd: HWND;     uID: UINT;     uFlags: UINT;     uCallbackMessage: UINT;     hIcon: HICON;     [red]szTip: array [0..63] of AnsiChar;[/red]   end; szTip是个数组

qingrj · 2003-04-27

zjan521:     这一句是定义结构么?放在什么地方合适?

感谢来如风热心指点!关于托盘显示问题,谁能点化我?在线等待! (220分)

qingrj

Unregistered / Unconfirmed

cxz9

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

liuxi

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

来如风

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

zjan521

Unregistered / Unconfirmed

qingrj

Unregistered / Unconfirmed

Similar threads