Новые книги
 В современной деловой среде все более важной становится эффективность совместной работы. Службы SharePoint – компонент Windows Server 2003, бесплатно доступный для скачивания, – помогают в решении этой задачи, предоставляя мощный набор инструментов для организации данных, управления документами, повышения эффективности бизнес-процессов и создания надежной среды взаимодействия. Эта книга научит вас использовать службы Windows SharePoint для организации совместной работы. Вы узнаете, как создавать собственные узлы SharePoint при помощи шаблонов, списки и библиотеки для хранения информации; добавлять электронные доски обсуждений, вики-узлы и блоги; настраивать рабочие области документов и собраний; использовать календари, контактную информацию и другие данные совместно с программами из пакета Microsoft Office и многое другое, что поможет рабочим группам легко взаимодействовать друг с другом.Для пользователей любого уровня подготовки, желающих самостоятельно освоить Microsoft Windows SharePoint Services 3.0. |
 В этой книге вы найдете все необходимое для того, чтобы внедрить в вашей компании целостный подход к оптимизации контента для поисковых систем и социальных медиа. Освоив предложенные в ней простые практические методы действий, вы сможете широко применять на практике основные методы контент-маркетинга, начиная от создания типовых персонажей до планирования и оценки эффективности контента, что позволит вам улучшить качество своего контента и значительно расширить аудиторию вашего сайта.На русском языке публикуется впервые. |
Демонстрационная программа
Демонстрационная программа
Текст программы:
.386
.model flat, stdcall
include win32.inc
extrn BeginPaint:PROC
extrn BitBlt:PROC
extrn CreateCompatibleBitmap:PROC
extrn CreateCompatibleDC:PROC
extrn CreateHatchBrush:PROC
extrn CreatePen:PROC
extrn CreateWindowExA:PROC
extrn DefWindowProcA:PROC
extrn DeleteDC:PROC
extrn DeleteObject:PROC
extrn DispatchMessageA:PROC
extrn Ellipse:PROC
extrn EndPaint:PROC
extrn ExitProcess:PROC
extrn GetClientRect:PROC
extrn GetMessageA:PROC
extrn GetModuleHandleA:PROC
extrn GetStockObject:PROC
extrn LineTo:PROC
extrn LoadCursorA:PROC
extrn LoadIconA:PROC
extrn MoveToEx:PROC
extrn PatBlt:PROC
extrn PostQuitMessage:PROC
extrn Rectangle:PROC
extrn RegisterClassA:PROC
extrn SelectObject:PROC
extrn SetPixel:PROC
extrn ShowWindow:PROC
extrn TranslateMessage:PROC
extrn UpdateWindow:PROC
BITMAP struct
bmType dd ?
bmWidth dd ?
bmHeight dd ?
bmWidthBytes dd ?
bmPlanes dw ?
bmBitsPixel dw ?
bmBits dd ?
BITMAP ends
SRCCOPY = 00CC0020h
PATCOPY = 00F00021h
TRUE = 1
FALSE = 0
.data
newhwnd dd 0
msg MSGSTRUCT
wc WNDCLASS
Rect RECT
hDC dd ?
hCompatibleDC dd ?
PaintStruct PAINTSTRUCT
hCompatibleBitmap dd ?
hBitmap dd ?
hOldBitmap dd ?
hOldPen dd ?
hOldBrush dd ?
Pens dd 2 dup(?)
Brushes dd 2 dup(?)
hInstance dd 0
szTitleName db 'GraphDemo', 0
szClassName db 'ASMCLASS32',0
x dd ?
y dd ?
p dd ?
.code
;-----------------------------------------------------------------------------
start:
call GetModuleHandleA, 0
mov [hInstance], eax
; initialize the WndClass structure
mov [wc.clsStyle], CS_HREDRAW + CS_VREDRAW
mov [wc.clsLpfnWndProc], offset GraphDemoWndProc
mov [wc.clsCbClsExtra], 0
mov [wc.clsCbWndExtra], 0
mov eax, [hInstance]
mov [wc.clsHInstance], eax
call LoadIconA, 0, IDI_APPLICATION
mov [wc.clsHIcon], eax
call LoadCursorA, 0 ,IDC_ARROW
mov [wc.clsHCursor], eax
call GetStockObject, WHITE_BRUSH
mov [wc.clsHbrBackground], eax
mov [wc.clsLpszMenuName], 0
mov [wc.clsLpszClassName], offset szClassName
call RegisterClassA, offset wc
call CreateWindowExA, 0,offset szClassName,offset szTitleName, \
WS_OVERLAPPEDWINDOW,CW_USEDEFAULT, \
CW_USEDEFAULT,CW_USEDEFAULT,CW_USEDEFAULT,0,0, \
[hInstance], 0
mov [newhwnd], eax
call ShowWindow, [newhwnd], SW_SHOWNORMAL
call UpdateWindow, [newhwnd]
msg_loop:
call GetMessageA, offset msg, 0, 0, 0
.if eax != 0
call TranslateMessage, offset msg
call DispatchMessageA, offset msg
jmp msg_loop
.endif
call ExitProcess, [msg.msWPARAM]
;-----------------------------------------------------------------------------
GraphDemoWndProc proc uses ebx edi esi, hwnd:DWORD, wmsg:DWORD,\
wparam:DWORD, lparam:DWORD
cmp [wmsg], WM_PAINT
je wmpaint
cmp [wmsg], WM_DESTROY
je wmdestroy
call DefWindowProcA, [hwnd],[wmsg],[wparam],[lparam]
jmp finish
wmpaint:
;---------------------------------------
call CreatePen, 1,0,0FF0000h
mov [dword ptr Pens], eax
call CreatePen, 3,0,000000h
mov [dword ptr Pens+4], eax
call CreateHatchBrush, 1,00000FFh
mov [dword ptr Brushes], eax
call CreateHatchBrush, 2,0FF0080h
mov [dword ptr Brushes+4], eax
;---------------------------------------
call GetClientRect, [hwnd], offset Rect
call BeginPaint, [hwnd], offset PaintStruct
mov [hDC], eax
call CreateCompatibleDC, [hDC]
mov [hCompatibleDC], eax
call GetClientRect, [hwnd], offset Rect
call CreateCompatibleBitmap, [hDC],[Rect.rcRight],[Rect.rcBottom]
mov [hCompatibleBitmap], eax
call SelectObject, [hCompatibleDC],[hCompatibleBitmap]
mov [hOldBitmap], eax
call PatBlt, [hCompatibleDC],0,0,[Rect.rcRight], \
[Rect.rcBottom], PATCOPY
;---------------------------------------
mov [x], 0
mov [y], 0
mov [p], 0
@@lp2:
call SetPixel, [hCompatibleDC],[x],[y],00FF0000h
.if eax == -1
mov [x], 0
add [y], 10h
.endif
add [x], 10h
.if eax == -1
cmp [p], -1
jz @@lp3
.endif
mov [p], eax
jmp @@lp2
@@lp3:
;---------------------------------------
call SelectObject, [hCompatibleDC],[dword ptr Pens]
mov [hOldPen], eax
call MoveToEx, [hCompatibleDC],[Rect.rcLeft],[Rect.rcTop],0
call LineTo, [hCompatibleDC],[Rect.rcRight],[Rect.rcBottom]
call SelectObject, [hCompatibleDC],[dword ptr Pens+4]
call MoveToEx, [hCompatibleDC],[Rect.rcRight],[Rect.rcTop],0
call LineTo, [hCompatibleDC],[Rect.rcLeft],[Rect.rcBottom]
call SelectObject, [hCompatibleDC],[hOldPen]
;=======================================
call SelectObject, [hCompatibleDC],[dword ptr Brushes]
mov [hOldBrush], eax
call Rectangle, [hCompatibleDC],100,75,450,200
call SelectObject, [hCompatibleDC],[dword ptr Brushes+4]
call Ellipse, [hCompatibleDC],50,50,200,100
call SelectObject, [hCompatibleDC],[hOldBrush]
;=======================================
call BitBlt, [hDC],[PaintStruct.PSrcPaint.rcLeft], \
[PaintStruct.PSrcPaint.rcTop], \
[PaintStruct.PSrcPaint.rcRight], \
[PaintStruct.PSrcPaint.rcBottom], \
[hCompatibleDC], \
[PaintStruct.PSrcPaint.rcLeft], \
[PaintStruct.PSrcPaint.rcTop], \
SRCCOPY
call DeleteObject, [dword ptr Pens]
call DeleteObject, [dword ptr Pens+4]
call DeleteObject, [dword ptr Brushes]
call DeleteObject, [dword ptr Brushes+4]
call SelectObject, [hCompatibleDC], [hOldBitmap]
call DeleteObject, [hCompatibleBitmap]
call DeleteDC, [hCompatibleDC]
call EndPaint, [hwnd],offset PaintStruct
mov eax, 0
jmp finish
wmdestroy:
call DeleteObject, [hBitmap]
call PostQuitMessage, 0
mov eax, 0
finish:
ret
GraphDemoWndProc endp
ends
end start