Понял, попробую, спасибо.
Upd. Решил сделать через массив, получилось такое, мне просто надо, что бы было забито от F1 до F9.
Код:
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
s:string;
q:integer;
begin
script.Clear;
for i:=1 to 9 do begin
s:='VK_F'+Inttostr(i);
q:=Strtoint(s);
if not RegisterHotkey(Handle, i, MOD_ALT or MOD_SHIFT, q) then
end;
end;
Когда компилю выдаёт еррор, но не в привычной форме, т.е. внизу, а еррор типа как в ексе виндоуса:
Project1.exe raised expection class EConvertError with messgae "VK_F1' is not a valid integer value'