Серый форум — AHK: Аналог Gui MinSize

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 13:26:14 +0000

serzh82saratov пишет:

Заметил что при ExitApp и само приложение закрывается

ХЗ, теперь пропало.

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 13:11:54 +0000

Malcev пишет:

А ты хочешь каждый раз новые значения минимума/максимума указывать?

Да. Ну и вообще..

serzh82saratov пишет:

Это видел, но не разобрался

Получилось запустить твой пример, заработало! Заметил что при ExitApp и само приложение закрывается.
Такое бы причесать для общего случая, и в коллекцию.

Re: AHK: Аналог Gui MinSize

null@example.com (Malcev) — Sat, 14 Jan 2023 13:01:16 +0000

А ты хочешь каждый раз новые значения минимума/максимума указывать?

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 12:33:48 +0000

Malcev пишет:

подправь dll

Я их и компилировать не умею. И там вроде все действия прописаны в dll, ерунда получается, код мне нужен в анк.

Malcev пишет:

Вот вызов SetWindowsHookEx через инжект autohotkey.dll.

Это видел, но не разобрался. Ладно, не судьба, я думал такое готовое где то есть, казалось что востребовано должно быть, но пока значит не сделали, подожду.

Re: AHK: Аналог Gui MinSize

null@example.com (Malcev) — Sat, 14 Jan 2023 12:17:57 +0000

Нет.
Вот вызов SetWindowsHookEx через инжект autohotkey.dll.
http://forum.script-coding.com/viewtopi … 91#p128891

serzh82saratov пишет:

Такое я не умею.

Так по моей ссылке показано как поставить хук на WH_CBT.
Посмотри чем отличается WH_CBT от WH_CALLWNDPROC и подправь dll.

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 12:03:28 +0000

Malcev пишет:

MinHook тут не нужен.

Как оказалось он не работает в нужном приложении.

Malcev пишет:

Не знаю, не пробовал, может и сработает

Я пробовал, реагирует только на окна скрипта.

Malcev пишет:

либо написать самому простенькую dll

Такое я не умею.

Malcev пишет:

Это можно сделать через CreateRemoteThread, как это сделано с инжектом autohotkey.dll

А если как тут https://www.autohotkey.com/boards/viewt … 44#p418590 указать путь к autohotkey.dll, не должно работать?

Re: AHK: Аналог Gui MinSize

null@example.com (Malcev) — Sat, 14 Jan 2023 11:50:15 +0000

MinHook тут не нужен.

serzh82saratov пишет:

Но разве OnMessage не должен работать для окон другого приложения в случае инжекта?

Не знаю, не пробовал, может и сработает.
А вообще через SetWindowsHookEx ставишь хук на WH_CALLWNDPROC и отлавливаешь WM_GETMINMAXINFO.
Это можно сделать через CreateRemoteThread, как это сделано с инжектом autohotkey.dll либо написать самому простенькую dll и инжектить ее с помощью SetWindowsHookEx как здесь:
https://www.autohotkey.com/boards/viewt … mp;t=94344

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 11:00:03 +0000

Сабклассинг работает через SetWindowLong.
Но разве OnMessage не должен работать для окон другого приложения в случае инжекта?

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Sat, 14 Jan 2023 10:00:53 +0000

Не напомнишь как перехватывать оконные сообщения? Нашёл пример с user32, про WM_GETMINMAXINFO не помню уже куда копать.

code =
(LTrim
	SetWorkingDir, %A_ScriptDir%
	#Include %A_ScriptDir%\Lib\MinHook.ahk

	MsgBox `% hook1 := New MinHook("user32.dll", "SetDlgItemTextW", "SetDlgItemTextW_Hook")
	hook1.Enable()
	return
	 
	SetDlgItemTextW_Hook(hDlg, nIDDlgItem, lpString) {
		global hook1
		return DllCall(hook1.original, "ptr", hDlg, "int", nIDDlgItem, "str", "Hello ^_^")
	}
)

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Fri, 13 Jan 2023 14:50:37 +0000

Спасибо!

Re: AHK: Аналог Gui MinSize

null@example.com (Malcev) — Fri, 13 Jan 2023 14:29:42 +0000

Со своим как-нибудь так:

OnMessage(WM_GETMINMAXINFO := 0x0024, "GetMinMaxInfo")
Gui, +Resize
Gui, show, w600 h600
return


GetMinMaxInfo(wParam, lParam)
{
   NumPut(500, lParam+0, 24, "int")
   NumPut(500, lParam+0, 28, "int")
   NumPut(800, lParam+0, 32, "int")
   NumPut(800, lParam+0, 36, "int")
   return true
}

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Fri, 13 Jan 2023 14:06:44 +0000

https://stackoverflow.com/questions/176 … indow-size
Тут пишут что не катит.
Ты пробовал, нет примера со своим окном? Не найду механизм где перехват, и как и что отправлять обратно.

Re: AHK: Аналог Gui MinSize

null@example.com (Malcev) — Fri, 13 Jan 2023 13:52:07 +0000

Инжектиться и перехватывать надо потому, что чужой процесс.

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Fri, 13 Jan 2023 13:24:26 +0000

https://www.autohotkey.com/boards/viewtopic.php?t=40009
Тут тоже не нашли решение.

Re: AHK: Аналог Gui MinSize

null@example.com (serzh82saratov) — Fri, 13 Jan 2023 13:20:55 +0000

Malcev
Нашёл на офф форуме.

WM_GETMINMAXINFO := 0x0024
 
	info := GetMinMaxInfo()
	MsgBox, % info["min_x"] "`n" info["min_y"] "`n" info["max_y"] "`n" info["max_y"]
return

GetMinMaxInfo() {
	Global WM_GETMINMAXINFO
	Static MINMAXINFO := 0, Dummy := NumPut(VarSetCapacity(MINMAXINFO, 40 + (32 << !!A_IsUnicode)), MINMAXINFO, 0, "UInt")
	NumPut(0, MINMAXINFO, 24, "Int")
	NumPut(0, MINMAXINFO, 28, "Int")
	NumPut(0, MINMAXINFO, 32, "Int")
	NumPut(0, MINMAXINFO, 36, "Int")
	SendMessage, % WM_GETMINMAXINFO, , &MINMAXINFO, , A
	return {"min_x" : NumGet(MINMAXINFO, 24, "Int"), "min_y" : NumGet(MINMAXINFO, 28, "Int"), "max_x" : NumGet(MINMAXINFO, 32, "Int"), "max_y" : NumGet(MINMAXINFO, 36, "Int")}
}

Но как установить значения не нашёл. И почему ты указал перехват?