library Project1;


uses
  SysUtils,
  Classes,
  Windows;

{$R *.res}

var x:integer;
    f:textfile;
begin
AssignFile(f,'c:\rezultat.txt');
Rewrite(f);
WriteLn(f,'Krecem u akciju:');

 for x:=$0 to $FFFF do
   if UnregisterHotKey(0,x)=true then
      WriteLn(f,'X:'+IntToStr(x)+'=>pokusaj uspio!!!') else
      WriteLn(f,'X:'+IntToStr(x)+'=>pokusaj propao!!!');

CloseFile(f);
end.