Код: Выделить всё
Windows 8 Single LanguageКод: Выделить всё
System::Call "*(i $HWNDPARENT, i 0x0001, t 'C:\A\*.*',t 'C:\B', i 0x0008|0x0400, i0,i0,i0,&t${NSIS_MAX_STRLEN} r0,&t1 0)i .r0"
System::Call "shell32::SHFileOperation(i r0)i .r1"
System::Free $0Код: Выделить всё
System::Call "*(i $HWNDPARENT, i 0x0003, t 'C:\A\*.*',t , i 0x0040|0x0010|0x0400, i0,i0,i0,&t${NSIS_MAX_STRLEN} r0,&t1 0)i .r0"
System::Call "shell32::SHFileOperation(i r0)i .r1"
System::Free $0Код: Выделить всё
outfile BitBlt_test.exe
!define LR_LOADFROMFILE 0x0010
!define IMAGE_BITMAP 0
!define LR_CREATEDIBSECTION 0x00002000
Var hBitmap
Var hDC
Var hDCMem
Var oldObject
; Функция BitBlt выполняет передачу битовых блоков данных о цвете, соответствующих прямоугольнику пикселей из заданного исходного контекста устройства
; в целевой контекст устройства.
; Растровая операция SRCCOPY 00CC0020 копирует исходный прямоугольник непосредственно в целевой прямоугольник
Section
StrCpy $0 $EXEDIR\vinni.bmp
System::Call 'user32::LoadImage(i 0, t r0, i ${IMAGE_BITMAP}, i 0, i 0, i ${LR_CREATEDIBSECTION}|${LR_LOADFROMFILE}) i.s'
Pop $hBitmap
System::Call "user32::GetDC(i R1) i.s"
Pop $hDC
System::Call "gdi32::CreateCompatibleDC(i $hDC) i.s"
Pop $hDCMem
System::Call "gdi32::SelectObject(i $hDCMem, i $hBitmap) i.s"
Pop $oldObject
System::Call "gdi32::BitBlt(i $hDC, i 50, i 50, i 185, i 255, i $hDCMem, i 0, i 0, i 0x00CC0020) i.s"
System::Call "gdi32::BitBlt(i $hDC, i 50, i 450, i 185, i 255, i $hDCMem, i 0, i 0, i 0x00CC0020) i.s"
SectionEnd
Function .onGUIEnd
System::Call `gdi32::DeleteObject(i s)` $hBitmap
FunctionEnd
Код: Выделить всё
!insertmacro MUI_PAGE_DIRECTORYКод: Выделить всё
page custom MUI_PAGE_DIRECTORY_POSTКод: Выделить всё
Function MUI_PAGE_DIRECTORY_POST
FindWindow $0 "#32770" "" $HWNDPARENT
GetDlgItem $0 $0 5555
SendMessage $0 ${BM_GETCHECK} "" "" $0
MessageBox MB_OK|MB_ICONINFORMATION "Статус чекбокса: $0"
FunctionEnd
Код: Выделить всё
page custom MUI_PAGE_DIRECTORY_POSTКод: Выделить всё
outfile GetLogicalDrives_GetDriveType.exe
!include LogicLib.nsh
ShowInstDetails show
Section
System::Call 'kernel32::GetLogicalDrives()i.r0'
StrCpy $2 0
StrCpy $4 65 ; 'A'
loop:
IntOp $3 $0 & 1
${If} $3 0
IntFmt $3 "%c:\" $4
System::Call 'kernel32::GetDriveType(tr3)i.r5'
DetailPrint "$3=$5"
${EndIf}
IntOp $4 $4 + 1
IntOp $0 $0 >> 1
StrCmp $0 0 "" loop
SectionEnd