[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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

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]

Код:

1 2	.data?   Shift_key DWORD ?

или

Код:

1 2	.data   Shift_key DWORD 0

Код:

1	.if fEatKeystroke && !Shift_key

[SCrat.ORS]

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

[angvelem]

MASM скачай.

[SCrat.ORS]

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

[angvelem]

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