[angvelem]

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

Есть мысль стать "извращенцем" и написать на asm-е.

[SCrat.ORS]

Сообщение от angvelem

Есть мысль стать "извращенцем" и написать на asm-е.

а чо давай =) борьба за минимализм по объёму

[angvelem]

Я даже наброски сделал, но время дописать не было.
Вроде что-то получилось.

[SCrat.ORS]

А шифт+капс - не сделано.... а вообще прикольно конечно

[angvelem]

Не, не делал. Я по первому исходнику собирал.
Файл забыл в архив доложить.

[SCrat.ORS]

а чем его компилировать?
з.ы. асмом не игрался

[angvelem]

Собирать 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-ом.

[SCrat.ORS]

попробую дальше сам допинать =)

[angvelem]

Будут вопросы - обращайся.

[SCrat.ORS]

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

Код:

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

[angvelem]

Код:

.data?
  Shift_key DWORD ?

или

Код:

.data
  Shift_key DWORD 0

Код:

  .if fEatKeystroke && !Shift_key 

[SCrat.ORS]

Ну значит все готово,.. теперь сижу не знаю скомпилировать

[angvelem]

MASM скачай.

[SCrat.ORS]

Да, я скачал, установил, и нифига не понял как компилить

[angvelem]

Скидай в одну папку все файлы + bat-ник. Выстави в нём пути к твоему MASM-у и запусти его.