$ImageInfo=DllCall('c:\Windows\System32\DismApi.dll', 'LONG', 'DismGetImageInfo')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ImageInfo = ' & $ImageInfo & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console---------------------------
AutoIt v3: AutoIt3.exe - Ошибка приложения
---------------------------
Инструкция по адресу 0x0000000000000002 обратилась к памяти по адресу 0x0000000000000002. Память не может быть read.
"ОК" -- завершение приложения
---------------------------
ОК
---------------------------DllCall('c:\Windows\System32\DismApi.dll', 'LONG', 'DismDelete', 'WSTR', 'ImageInfo')
$ImageInfo=DllCall('c:\Windows\System32\DismApi.dll', 'LONG', 'DismGetImageInfo')
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $ImageInfo = ' & $ImageInfo & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console
#RequireAdmin
#include <WinAPIDiag.au3>
Local Const $DISM_ONLINE_IMAGE = "DISM_{53BFAE52-B167-4E2F-A258-0A37B57FF845}"
Local Const $DISM_SESSION_DEFAULT = 0
Local $sPath = $DISM_ONLINE_IMAGE
If $sPath = $DISM_ONLINE_IMAGE And Not @AutoItX64 Then
Exit MsgBox(16, 0, 'Running the DISM API online under WoW64 is not supported')
EndIf
Local $sLogFile = 'dismlog.txt' ;NULL for default log %windir%\Logs\DISM\dism.log
If $sLogFile And FileExists($sLogFile) Then FileDelete($sLogFile)
;~ HRESULT WINAPI DismInitialize(
;~ _In_ DismLogLevel LogLevel,
;~ _In_opt_ PCWSTR LogFilePath,
;~ _In_opt_ PCWSTR ScratchDirectory
;~ );
Local $aData = DllCall('DismAPI.dll', 'long', 'DismInitialize', _
'int', 2, _
'wstr', $sLogFile, _
'wstr', Null)
If @error Then
Exit _WinAPI_ShowLastError('DllCall @error = ' & @error)
EndIf
If $aData[0] < 0 Then
Exit MsgBox(16, 'DismInitialize 0x' & Hex($aData[0]), _WinAPI_GetErrorMessage($aData[0]))
EndIf
;~ HRESULT WINAPI DismOpenSession(
;~ _In_ PCWSTR ImagePath,
;~ _In_opt_ PCWSTR WindowsDirectory,
;~ _In_opt_ PCWSTR SystemDrive,
;~ _Out_ DismSession *Session
;~ );
Local $aData = DllCall('DismAPI.dll', 'long', 'DismOpenSession', _
'wstr', $sPath, _
'wstr', Null, _
'wstr', Null, _
'uint*', 0)
If @error Then
Exit _WinAPI_ShowLastError('DllCall @error = ' & @error)
EndIf
If $aData[0] < 0 Then
Exit MsgBox(16, 'DismOpenSession 0x' & Hex($aData[0]), _WinAPI_GetErrorMessage($aData[0]))
EndIf
Local $iDismSession = $aData[4]
MsgBox(64, 'Session = ', $iDismSession)
;~ HRESULT WINAPI DismShutdown(void);
DllCall('DismAPI.dll', 'long', 'DismShutdown')
ShellExecute($sLogFile)Да, может, а может другие WINAPI ошибки, но это не точно, в общем случае всегда нужно смотреть на тип возвращаемого значения, а это нулевой параметр.
Да, DLLCall всегда возвращает массив! Но, только в том случае, если @error равен 0, в документации так и написано:
Успех: @error = 0.
Ошибка: Устанавливает @error
@error: 1 - невозможно использовать файл DLL,
2 неизвестный возвращаемый тип (return type).
3 функция не найдена в файле DLL.
4 неверное количество параметров.
5 неверный параметр.Смотрите, DLLCall вызывает функцию, которая может возвращать значения. Она может возвратить ноль, одно, два, три и так далее. Как быть и как их все получить? В других языках такие возвращаемые значения передаются в переменных по ссылкам, но не в AutoIT (с 1 исключением, struct* заполняются сами). В AutoIT подумали и решили, все, что попадает в функцию и все то, что она возвращает - возвращать в виде массива! Так и получается, сколько у функции параметров - такой и размер массива. Результат - нулевой параметр - он всегда в [ 0], в [1] - первый параметр, В [2] и [3] второй и третий параметр функции.
HRESULT WINAPI DismOpenSession(
_In_ PCWSTR ImagePath,
_In_opt_ PCWSTR WindowsDirectory,
_In_opt_ PCWSTR SystemDrive,
_Out_ DismSession *Session
);$tICONINFO = DllStructCreate($tagICONINFO)
$Ret = DllCall('user32.dll', 'int', 'GetIconInfo', 'ptr', $hIcon, 'ptr', DllStructGetPtr($tICONINFO))
If (@error) Or (Not $Ret[0]) Then
Return SetError(1, 0, 0)
EndIfВы уверены?Vovsla сказал(а):
Прислушайтесь к совету sngr:Vovsla сказал(а):
sngr сказал(а):
_Crypt_Startup()
_GDIPlus_Startup()
Global Const $tagDismImageInfo='struct; UINT ImageIndex; wstr ImageIndex; (и т.д.) endstruct' ;
$DismImageInfo=DllStructCreate($tagDismImageInfo)
Func DismGetImageInfo($ImageFilePath) ; в разработке
$DismImageInfo=DllStructCreate($tagDismImageInfo)
$Result=DllCall('DismAPI.dll', 'long', 'DismGetImageInfo', _
'wstr', $ImageFilePath, _
'struct*', $DismImageInfo, _
'uint*', 0)
If @error Then Return DISMErrorMessage('ShowLastError', 'DismGetImageInfo', @error)
If $Result[0]<0 Then Return DISMErrorMessage('GetErrorMessage', 'DismGetImageInfo', $Result[0])
EndFunc
Global Const $tagDismImageInfo = _
"int ImageType;" _
&"uint ImageIndex;" _
&"ptr ImageName;" _
&"ptr ImageDescription;" _
&"uint64 ImageSize;" _
&"uint Architecture;" _
&"ptr ProductName;" _
&"ptr EditionId;" _
&"ptr InstallationType;" _
&"ptr Hal;" _
&"ptr ProductType;" _
&"ptr ProductSuite;" _
&"uint MajorVersion;" _
&"uint MinorVersion;" _
&"uint Build;" _
&"uint SpBuild;" _
&"uint SpLevel;" _
&"int Bootable;" _
&"ptr SystemRoot;" _
&"ptr Language;" _
&"uint LanguageCount;" _
&"uint DefaultLanguageIndex;" _
&"ptr CustomizedInfo;"
; DismImageType
Global Const $DismImageTypeUnsupported = -1
Global Const $DismImageTypeWim = 0
Global Const $DismImageTypeVhd = 1
; DismImageBootable
Global Const $DismImageBootableYes = 0
Global Const $DismImageBootableNo = 1
Global Const $DismImageBootableUnknown = 2
$sImageFilePath = "filename.wim"
$hDismImageInfo = _DismGetImageInfo($sImageFilePath)
; @extended - Число возвращаемых структур DismImageInfo.
$iSize = @extended
$pArrayDismImageInfo = DllStructCreate('ptr['& $iSize &'];', $hDismImageInfo)
Local $aDismImageInfo[$iSize]
For $i = 0 To $iSize -1
$aDismImageInfo[$i] = DllStructCreate($tagDismImageInfo, DllStructGetData($pArrayDismImageInfo, 1, $i+1))
Next
ConsoleWrite(StringFormat('> ImageType: %d\n', DllStructGetData($aDismImageInfo[0], 'ImageType')))
; ConsoleWrite(StringFormat('> ImageType: %d\n', DllStructGetData($aDismImageInfo[1], 'ImageType')))
; и т.д.
#Region
Func _DismGetImageInfo($sImageFilePath)
$aRet = DllCall('dismapi.dll', 'int', 'DismGetImageInfo', _
'wstr', $sImageFilePath, _
'ptr*', 0, _
'uint*', 0)
If @error Or $aRet[0] <> 0 Then
;~ ConsoleWrite(StringFormat('! Error: function DismGetImageInfo return (%s)\n', (@error <> 0)? ('@error: '& @error) : ('$aRet: '& $aRet[0])))
Return SetError(1, 0, 0)
EndIf
;~ ConsoleWrite(StringFormat('! Error: function DismGetImageInfo return (%s)\n', _
;~ ('$aRet[0]: ' & $aRet[0] & '$aRet[2]: ' & $aRet[2] & '$aRet[3]: ' & $aRet[3])))
Return SetError($aRet[0], $aRet[3], $aRet[2])
EndFunc ;==> _DismGetImageInfo
#EndRegion
