SRL Archive - Help and Support

Read the topic, what are the codes for F1-F12

Like Chr(13) is same as Enter

Check the attachment :)
This is not my list, credits to the one who made this!

That file kinda kicks ass.

This can help too, not f keys though.

var i: Integer;
begin
for i:= 0 to 255 do
  writeln(chr(i) + '    ' + inttostr(i));
end.

begin
  SendKeysVB('{F1}', True);
end.

const
  ID = 'F'; //What you want to find the Chr value for.

var
  I: Integer;

begin
  while (ID <> Chr(I)) do
    I := I + 1;
  WriteLn(ID + ' = ' + IntToStr(I));
end.

From: Icefire908

const
  ID = 'F'; //What you want to find the Chr value for.

var
  I: Integer;

begin
  while (ID <> Chr(I)) do
    I := I + 1;
  WriteLn(ID + ' = ' + IntToStr(I));
end.

begin
  Writeln(IntToStr(GetKeyCode('f')));
end.

I win.

From: The Un-Named

begin
  Writeln(IntToStr(GetKeyCode('f')));
end.

I win.

const
  ID = 'F'; //What you want to find the Chr value for.

var
  I: Integer;

function ChrV: string;
begin
  while (ID <> Chr(I)) do
    I := I + 1;
  Result := IntToStr(I);
end;

begin
  GetApplication.MessageBox(ID + ' = ' + 'Chr(' + ChrV + ')', 'Result.', 0);
end.

Owned?

From: Icefire908

const
  ID = 'F'; //What you want to find the Chr value for.

var
  I: Integer;

function ChrV: string;
begin
  while (ID <> Chr(I)) do
    I := I + 1;
  Result := IntToStr(I);
end;

begin
  GetApplication.MessageBox(ID + ' = ' + 'Chr(' + ChrV + ')', 'Result.', 0);
end.

Owned?

Waste of time bothering in my opinion. ;)