delphi最小化系统托盘
如下修改如下代码，在原有最小化系统托盘、点击左键打开的基础上，实在点击右键显示“显示”，“退出”菜单并实在窗口打开和关闭。每次关闭都要自动删除托盘图标。
代码如下：
Delphi(Pascal) code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils,Classes, Graphics, Controls, Forms, Dialogs,ShellAPI,
Menus;
const
WM_BARICON=WM_USER+200;
WM_TRAYNOTIFY=2000;
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
procedure N2Click(Sender: TObject);
procedure wmTrayNotify(var Msg:TMessage);message WM_TRAYNOTIFY;
procedure N1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure WMBarIcon(var Message:TMessage);message WM_BARICON;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Nid:TNotifyIconData;//定义ICON结构
implementation
{$R *.DFM}
procedure TForm1.WMSysCommand(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if Message.WParam = SC_ICON then
begin
//如果用户最小化窗口则将窗口隐藏并在任务栏上添加图标
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;
//SizeOf(PNotifyIconDataA);
lpData.
相关问答：
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
