function TfrmP2K_MyMenu.GetWebShortcuts(ASize: integer; var AWebShortcuts: TArrWebShortcuts2; AfrmProgress: TfrmProgress): boolean;
var
  i: integer;
  str: string;
  f: file of TWebShortcuts2;
begin
  result:= false;

  i:= Asize div MY_WEB_SHORTCUT_SIZE_2;
  SetLength(AWebShortcuts, i);
  str:= GetTempPathEx + 'DL_DB_BKMR_RECORDS';
  AssignFile(f, str);
  Reset(f);
  i:= 0;
  repeat
    Read(f, AWebShortcuts[i]);
    inc(i);
  until eof(f);
  result:= true;
  CloseFile(f);
end;