Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Прочие языки программирования > Assembler
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.10.2012, 02:06
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Bargest: часть темы, не относящаяся к Delphi.

Есть мысль стать "извращенцем" и написать на asm-е.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось Bargest, 06.10.2012 в 23:44.
Ответить с цитированием
  #2  
Старый 06.10.2012, 21:12
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Цитата:
Сообщение от angvelem
Есть мысль стать "извращенцем" и написать на asm-е.
а чо давай =) борьба за минимализм по объёму
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #3  
Старый 06.10.2012, 21:15
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Я даже наброски сделал, но время дописать не было.
Вроде что-то получилось.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 06.10.2012 в 22:30.
Ответить с цитированием
  #4  
Старый 06.10.2012, 22:25
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

А шифт+капс - не сделано.... а вообще прикольно конечно
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #5  
Старый 06.10.2012, 22:27
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Не, не делал. Я по первому исходнику собирал.
Файл забыл в архив доложить.
Вложения
Тип файла: rar capswitch.rar (3.0 Кбайт, 7 просмотров)
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.

Последний раз редактировалось angvelem, 06.10.2012 в 22:31.
Ответить с цитированием
  #6  
Старый 06.10.2012, 22:46
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

а чем его компилировать?
з.ы. асмом не игрался
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #7  
Старый 06.10.2012, 22:50
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Собирать MASM-ом, брать здесь.

bat-файл
Цитата:
@echo off

set path=z:\;z:\masm32;%PATH%
set include=z:\masm32\include
set lib=z:\masm32\lib

if exist *.obj del *.obj
if exist *.log del *.log

ml /c /coff capswitch.asm >>capswitch.log
if errorlevel 1 goto end

link /SUBSYSTEM:WINDOWS capswitch.obj>>capswitch.log
if errorlevel 1 goto end

if exist *.obj del *.obj

:end
Мне приходится выставлять пути, иначе происходит "драка" с C++ Builder-ом.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #8  
Старый 06.10.2012, 22:54
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

попробую дальше сам допинать =)
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #9  
Старый 06.10.2012, 22:56
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Будут вопросы - обращайся.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #10  
Старый 06.10.2012, 23:05
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

я знаю что не так,.. но как?

Код:
start:

  PRIVAT Shift_key : DWORD
  
  mov Shift_key, FALSE
  mov  hInstance, rv(GetModuleHandle, NULL)
  call WinMain
  exit

;------------------------------------------------------------------------------

LowLevelKeyboardProc proc uses ebx nCode, wParam, lParam : DWORD
  LOCAL fEatKeystroke : DWORD

  mov fEatKeystroke, FALSE

  .if nCode == 0
    Switch wParam
      case 256
        mov ebx, lParam
        .if [ebx.KBDLLHOOKSTRUCT].vkCode == 20
          mov fEatKeystroke, TRUE
        .endif
        .if [ebx.KBDLLHOOKSTRUCT].vkCode == 160
          mov Shift_key, TRUE
        .endif
       case 257
        mov ebx, lParam
        .if [ebx.KBDLLHOOKSTRUCT].vkCode == 160
          mov Shift_key, FALSE
        .endif  
    endsw
  .endif

  .if fEatKeystroke && not Shift_key
    invoke PostMessage, rv(GetForegroundWindow), 80, 0, HKL_NEXT
    mov    ebx, 1
  .else
    mov    ebx, rv(CallNextHookEx, 0, nCode, wParam, lParam)
  .endif
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #11  
Старый 06.10.2012, 23:08
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Код:
.data?
  Shift_key DWORD ?
или
Код:
.data
  Shift_key DWORD 0

Код:
  .if fEatKeystroke && !Shift_key 
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #12  
Старый 06.10.2012, 23:15
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Ну значит все готово,.. теперь сижу не знаю скомпилировать
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #13  
Старый 06.10.2012, 23:16
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

MASM скачай.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #14  
Старый 06.10.2012, 23:17
Аватар для SCrat.ORS
SCrat.ORS SCrat.ORS вне форума
Активный
 
Регистрация: 20.02.2007
Адрес: Мой адрес не дом и не улица, мой адрес 0x7С00
Сообщения: 208
Версия Delphi: 2006
Репутация: 884
По умолчанию

Да, я скачал, установил, и нифига не понял как компилить
__________________
Програмистами не рождаются, ими становятся!
Ответить с цитированием
  #15  
Старый 06.10.2012, 23:20
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Скидай в одну папку все файлы + bat-ник. Выстави в нём пути к твоему MASM-у и запусти его.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 04:57.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter