IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

> ASM to WIN небольшая прога
сообщение
Сообщение #1


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +


Я использовал MASM32 копилятор 32разрядный скаченый с форума
http://WASM.ru        :smile.gif
; ;#########################################################################

     .386
     .model flat, stdcall
     option casemap :none  ; case sensitive
; ;#########################################################################
     clRed equ 15
     include masm32includewindows.inc
     include masm32includeuser32.inc
     include masm32includegdi32.inc
     include masm32includekernel32.inc
     includelib masm32libuser32.lib
     includelib masm32libkernel32.lib
     includelib masm32libgdi32.lib

.DATA
     szDlgTitle    db "Minimum MASM",0
     Msg         db '  --- Assembler Pure and Simple ---  '
     hMon          dd ?;Храним дескриптор устроийства      
.Data?;      hMon          dd ?;Храним дескриптор устроийства

   .code

start:;---------------------------
   push NULL
   call GetDC
   mov hMon,EAX;---------------------------
   push 000000000011111111111111b
   push 400
   push 400
   push hMon
   call SetPixel       ;---------------------------
   push 10
   push 10
   push 40
   push 40
   push hMon
   call Rectangle;---------------------------
   push 111111000000001111111111b
   push hMon
   call SetTextColor;---------------------------
   push 41
   push offset Msg
   push 10
   push 10
   push hMon
   call TextOut;    push 0
   call ExitProcess
end start

вот только тексь не выводится
так если в DELPHI на API писать то выводится а тут нет :-/


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 26.04.2024 22:15
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name