Nefakt
Новичок
- Сообщения
- 74
- Репутация
- 3
Всем привет.
При помощи библиотеки Package UDF
Функция на добавления файлов
При компиляции выдает ошибку
Или такую
При помощи библиотеки Package UDF
Функция на добавления файлов
Код:
#Include <WinAPIEx.au3>
#Include "Package.au3"
Opt('MustDeclareVars', 1)
Global Const $sPackage = @ScriptDir & '\MyPackage.pkr'
Global $hPackage, $ID, $File
If Not FileExists($sPackage) Then
$hPackage = _PK_Create($sPackage, 'Demonstration Package')
Else
$hPackage = _PK_Open($sPackage)
EndIf
Do
$File = FileOpenDialog('Add File', @WorkingDir, 'All Files (*.*)', 3)
If @Error Then
ExitLoop
EndIf
$ID = _PK_AddPacketFromFile($hPackage, $File, _WinAPI_PathStripPath($File))
If @Error Then
$ID = MsgBox(20, 'Package', 'An error occurred while adding file to the package.' & @CR & @CR & 'Error: ' & @Error & @CR & @CR & 'Do you want to add another file?')
Else
$ID = MsgBox(68, 'Package', 'File added successfully.' & @CR & @CR & 'ID: ' & $ID & @CR & @CR & 'Do you want to add another file?')
EndIf
Until $ID <> 6
_PK_DisplayPackage($hPackage)
_PK_Close($hPackage)
При компиляции выдает ошибку
Код:
"C:\AutoIt3\Include\APIConstants.au3" (42) : ==> Can not redeclare a constant.:
Global Const $ACCESS_SYSTEM_SECURITY = 0x01000000
Global Const ^ ERROR
Или такую
Код:
"C:\AutoIt3\Include\WinAPIEx.au3" (969) : ==> Can not redeclare a constant.:
Global Const $tagBITMAPINFOHEADER = 'dword biSize;long biWidth;long biHeight;ushort biPlanes;ushort biBitCount;dword biCompression;dword biSizeImage;long biXPelsPerMeter;long biYPelsPerMeter;dword biClrUsed;dword biClrImportant;'
Global Const ^ ERROR