delphi添加任务栏右键菜单

本文整理自网络，侵删。

 delphi添加任务栏右键菜单
procedure TForm1.FormCreate(Sender: TObject);
var
Mnu:HMenu;
begin
Mnu:=GetSystemMenu(Application.Handle, False);
AppendMenu(Mnu,MF_SEPARATOR,0,nil);
AppendMenu(Mnu,MF_STRING,WM_ABOUT,pchar('关于我们..^^'));
Application.OnMessage:=OnAppMessage;
end;
procedure TForm1.OnAppMessage(var Msg : TMsg ; Var Handled : Boolean);
begin
if Msg.message=WM_SYSCOMMAND then begin
if Msg.wParam=WM_ABOUT then begin
form2.Show;
end;
end;
end; 

相关阅读 >>

Delphi sqlite incomplete input 错误

Delphi windows的消息传递--消息盒子

Delphi 附加数据读取

Delphi access 数据库压缩

Delphi初级教程之Delphi断点调试

Delphi fdmemtable内存表操作

Delphi使用project manager添加一个java库到你的应用程序

iniocp（小旋风服务套件）

Delphi 打开android应用信息

Delphi中tstringlist分割字符串的用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi添加任务栏右键菜单