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 将label的caption内容竖向显示

Delphi getprocesshandleasname 获取进程句柄

Delphi injectmemexe

Delphi申请和释放内存

vclzip控件的使用

createremotethread远程注入例子

Delphi发送邮件―中文显示为乱码解决

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi 双击隐藏tabsheet

Delphi复制文件夹内所有文件

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

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