પહેલા આપણે કેટલાક વૈશ્વિક ચલોની જરૂર પડશે: > var ફોર્મ 1: ટીફોરમ 1; કેબી હૂક: હહૂક; {આ કીબોર્ડ ઇનપુટને ઇન્સેપ્ટ કરે છે } cx, cy: પૂર્ણાંક; {ટ્રેક યુદ્ધ જહાજની સ્થિતિ} { કૉલબૅકનું ઘોષણા} કાર્ય કીબોર્ડ હેક પ્રોક્રો (કોડ: પૂર્ણાંક; વર્ડપૅમઃ વર્ડ; લોંગપૅરમઃ લોન્ગઇન્ન્ટ): લોન્ગઇન્ન્ટ; stdcall ; અમલીકરણ . . . હૂકને ઇન્સ્ટોલ કરવા માટે, અમે એક ફોર્મના ઑનક્રેટ ઇવેન્ટમાં SetWindowsHookEx ને કૉલ કરીએ છીએ.