السلام عليكم
1- انقر بالزر الايسر للفارة على برنامجك اسفل أي شريط المهام SysMenu في
appendmenu(getsystemmenu(application.handle,false),mf_separator,0,'');
appendmenu(getsystemmenu(application.handle,false),mf_string,0,'pati');
************************************************************
2- انقر على MenuSystem (-) لبرنامجك
procedure TForm1.FormCreate(Sender: TObject);
var
SysMenu: hMenu;
begin
SysMenu := GetSystemMenu(Handle, False);
ModifyMenu(SysMenu, sc_Close, mf_ByCommand, sc_Close, 'pati '#9'Alt+F4');
DeleteMenu(SysMenu, 0, mf_ByPosition);
AppendMenu(SysMenu, mf_Separator, 0, #0);
AppendMenu(SysMenu, mf_ByCommand, 666, '&About...');
end;
procedure TForm1.SysCommand(var Msg: TMessage);
begin
inherited;
if Msg.wParam = 6 then form2.show;
end;
لاتنسى ان تكتب في التصريحات
procedure SysCommand(var Msg: TMessage); message wm_SysCommand;
***********************************************************
اجمعهما تتحصل على عمل جيد
الحمدلله وفقنا الله
وغدا إن شاء الله
pati ينتضر منكم التشجيع