Работа с процессами, клавиатурой (Delphi 7) (Часть 3)

Опубликовано: 16 Август 2026
на канале: BitOne5897

2,780

Убить процесс
ShellExecute (0, 'open', 'taskkill.exe', '/f /im wscript.exe', nil, SW_HIDE);

Запустить процесс
ShellExecute (0, 'open', 'explorer.exe', nil, nil, SW_HIDE);

Блокировка Alt+F4

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssAlt in Shift) and (Key = VK_F4)) then
Key := 0;
end;

в OnCreate

KeyPreview := true;