Экран смерти

[W0LF]

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

Если не ошибаюсь, то так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
Keybd_Event(17,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(17,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(145,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(17,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
End;

Не, неработает..

[havok]

Не, неработает..

а что неработает то???

[Bat{CMD}_Men]

ОДИНОЧЕСТВО В СЕТИ Писала

function ProcessTerminate(dwPID:Cardinal):Bo olean;
var // и т.д

Но в качестве значения dwPID нужен код процесса.
А можно этот код узнать из имени процесса?

[Пепел Феникса]

поиск по форуму.
многократно обсуждалось

[Terran]

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

Не, неработает..

Тогда сделайте так:

Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);

Будет точно работать.

[Bat{CMD}_Men]

havok писал

Чтобы осуществить это необходимо в ветке реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Services\i8042prt\Paramete rs создать параметр DWord CrashOnCtrlScroll и присвоить ему значение 1. и теперь при двухкратном нажатии Scroll Lock с удерживаемой правой клавишей Ctrl система впадет в глубокий даун.

Коль мы это затронули хочу задать вопрос.
в разделе
HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Services\i8042prt .

значение ImagePath=system32\DRIVERS\i8042prt .sys

Я подумаю что i8042prt.sys – это драйвер отвечающий за мышь и Клаву.

Можно ли в этот драйвер вшить какую ни будь программульку, что б и Клава с мышью работала и программулька запускалась?

[W0LF]

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

Тогда сделайте так:

Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY,0);
Keybd_Event(VK_SCROLL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);
Keybd_Event(VK_RCONTROL,0,KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP,0);

Будет точно работать.

и это точно не работает)

[Terran]

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

и это точно не работает)

Код работает полностью правильно. Только меня прикалывает то факт, то даже при зажатом Ctrl программно нажимается Scroll Lock, а вручную его нельзя нажать.