wedsonregis / arcade-system Goto Github PK

// abre o emulador selecionado precisa melhorar a forma que identifica o emulador
procedure TF_Shifst_Main.OpenEmulator(Emulator, RunGame,
  DirectoryEmulator: string);
var
  parametro: string;
  extenssion: string;
begin
  try
    // Seta a extensão correta para rodar a rom
    extenssion := '.' + GetExtenssion(Emuladores[Jogos[JI].ID].DirectoryRoms,RunGame, Emuladores[Jogos[JI].ID].RomsExtenssion);
    parametro := Emuladores[Jogos[JI].ID].Parameter;
    ShellExecute(1, 'open', pchar(Emulator), pchar('"'+Emuladores[Jogos[JI].ID].DirectoryRoms+RunGame+extenssion+'" '+parametro), pchar(DirectoryEmulator),SW_SHOWNORMAL);
  except
    L_Info.Text :=
      'Erro ao carregar os jogos, nenhum emulador foi configurado.';
  end;
end;