IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Systemmenu, API добавление своего
сообщение
Сообщение #1


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


Пртвет!!! smile.gif
----
вот может кому из вуайеристов пригодится
----
Прежде чем написать на ASM сначала пробую на
DELPHI
-------
unit SystemMenu1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, AppEvnts;

type
 TForm1 = class(TForm)
   Button1: TButton;
   ApplicationEvents1: TApplicationEvents;
   procedure Button1Click(Sender: TObject);
   procedure ApplicationEvents1Message(var Msg: tagMSG;
     var Handled: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
 HWND_Sysmenu : HWND;
 Str          : PAnsiChar;

begin
{}
// function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; stdcall;
  Str := 'Hello';
  HWND_Sysmenu := GetSystemMenu(Form1.Handle,False);
  AppendMenu(HWND_Sysmenu,MFT_String and MF_PopUp and MFS_Checked and MFS_HiLite,$0A000,str);
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
{}
 if (Msg.message=WM_SYSCOMMAND) and (Msg.wParam=$0A000) then
   begin
       MessageDlg('System Menu',mtERROR,[mbYes],0);
   end;

end;

end.


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






При должном фанатизме можно этой функцие воспользоваться крайне жестоко - перетосовывать каждый раз это меню в произвольном порядке. Довольно сильно бъёт по нервам тем, кто этим пользуется smile.gif

З. Ы. : я не про конкретную прогу, а про все запущенные smile.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


BlackShadow
я делал прошку которая закрывает окна по заголовку
зоголовки заносятся в файл... файл удалить или изменить нельзя пока прога работает... это сильно било по нервам геймеров на работе типа
игр: червы пасьянс... smile.gif , но ее можно было закрыть через Диспетчер задач
а ставить системный процесс было лень все равно они не знают smile.gif
-----
первый возглас Юзверя
Ой!!
----
2
Блин
-----
3.
Что за №Ё№%:?
-----

:D lol.gif


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.10.2020 11:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name