[NumLock]

Код:

library RDTHook;

var
  data: array [0..MAX_PATH-1] of Char;
  l: Integer;
  s: String;
begin
  l:=GetModuleFileName(GetModuleHandle('RDTHook'), data, SizeOf(data));
  s:=Copy(data, 0, l);
end;