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:out参数和var参数的区别

Delphi取得网页源码内容

Delphi中怎么判断一个文件夹是否为空

Delphi xe5读取android imei id

Delphi xe5 android 调用 google zxing

Delphi image 直接加载资源文件

Delphi 和微软的 azure 云存储

Delphi删除文件

Delphi在combobox下拉框里显示图片

Delphi 检查注册表键、键值是否存在

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

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