Очередной семпл, в дополнение к 301.
Пишу сюда чтоб сразу не утонул т.к. проявился интересный нюанс.
Размер структуры нужно выравнивать по 4 байтам. Уж не знаю везде или нет в приведённом примере точно.
Код:
Const $RASEDFLAG_PositionDlg = 0x00000001
Const $RASEDFLAG_NewEntry = 0x00000002
Const $RASEDFLAG_CloneEntry = 0x00000004
Const $RASEDFLAG_NoRename = 0x00000008
Const $RASEDFLAG_NewPhoneEntry = 0x00000010
Const $RASEDFLAG_NewTunnelEntry = 0x00000020
Const $RASEDFLAG_NewDirectEntry = 0x00000040
Const $RASEDFLAG_NewBroadbandEntry = 0x00000080
Const $RASEDFLAG_InternetEntry = 0x00000100
Const $RASEDFLAG_NAT = 0x00000200
Const $Name = "TEST1"; или 0
$a = DllStructCreate("dword;int;dword;int;int;char[257];dword;uint;uint")
; наполнение структуры
DllStructSetData($a,1,292);dwSize
DllStructSetData($a,2,0);hwndOwner
DllStructSetData($a,3,$RASEDFLAG_NewEntry);dwFlags
DllStructSetData($a,4,0);xDlg
DllStructSetData($a,5,0);yDlg
DllStructSetData($a,6,0);szEntry
DllStructSetData($a,7,0);dwError
DllStructSetData($a,8,0);reserved
DllStructSetData($a,9,0);reserved2
; Вызов Dialog DLL
$Dll_X = DllCall("Rasdlg.dll", "int", "RasEntryDlg", "str", 0, "str", $Name, "ptr", DllStructGetPtr($a))
MsgBox(48,"Error 2","Error: "&@error&" | "&"Size: "&DllStructGetSize($a))
