03.01.2007, 12:11
общий
это ответ
Здравствуйте, MeX!
Вот привожу пример использования API-функции <font color=purple><b>EnableMenuItem()</b></font>, которая приводится в действие посредством нажатия на кнопку (язык Delphi):
<code>
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableMenuItem(GetSystemMenu(Handle,false),SC_CLOSE, MF_DISABLED or MF_GRAYED);
end;
</code>
Good Luck!!!