procedure

Ukonci(titulek:string);
begin
PostMessage(FindWindow(Nil, titulek), WM_QUIT, 0, 0);
end;
Klávesy NumLock, CapsLock a Scroll Lock
Na závěr si trošku pohrajeme s výše uvedenými klávesami. Ukážeme si, jak je programově "stisknout", tj. aktivovat či deaktivovat jejich funkci, což je – jak jistě víte – doprovázeno rozsvícením či zhasnutím příslušných diod, takže pokud si dáte záležet, můžete vytvořit docela zajímavý efekt. Následující příklad aktivuje nebo deaktivuje (podle jejich aktuálního stavu) uvedené klávesy.