Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Autorun 
Author Message
Orion9



PostPosted: Tue Jun 03, 2025 13:56    Post subject: Reply with quote

Loopback wrote:
Обойти не получится, только исправлять.

Это не срочно, но хотелось бы попробовать.

Как я понял, сделать можно будет так:
Code:
Global oWP = Callback("TestWinProc", "hwnd;uint;wparam;lparam")

Func TestWinProc(hWnd, uMsg, wParam, lParam)
    If uMsg = 0x0010 Then
       MsgBox("Exit")
       Return 0
    EndIf
    Return DllCall("DefWindowProcA", "hwnd", hWnd, "uint", uMsg, "wparam", wParam, "lparam", lParam)
EndFunc
...
...
hWnd = DllCall("CreateWindowExA", _
...
...           )
DllCall("SetWindowLongPtrA", "hwnd", hWnd, "int", -4, "long_ptr", oWP.Ptr)

Или нет?

Попробовал сменить стиль окна сразу после его создания. Вызов с SetWindowLongPtrA не работает:
Code:
MsgBox(DllCall("SetWindowLongPtrA", "hwnd", hWnd, "int", -16, "long_ptr", 0x10C00000))

Hо работает SetWindowLongA
Code:
MsgBox(DllCall("SetWindowLongA", "hwnd", hWnd, "int", -16, "long", 0x10C00000))

Autorun тут ни при чём?
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group