EmuStarter Pascal

{$apptype windows}
{$reference 'System.Drawing.dll'}
{$reference 'System.Windows.Forms.dll'}
uses
  System,
  System.Windows.Forms,
  System.Drawing,
  System.Net;

var
  Form0: Form; // объявляем нашу форму с именем Form0
  b1, b2: Button; // объявляем кнопки c именами b1 и b2 через запятую

//создаем отдельную процедуру со своим именем для каждой кнопки
procedure b1_Click(sender: object; e: EventArgs); // процедура с именем b1_Click для кнопки b1
begin
  exec('C:\EMULS\rpcs3-v0.0.35-17665-1a51ce1e_win64\rpcs3.exe'); // открытие целевого эмулятора кнопкой b1
end;

procedure b2_Click(sender: object; e: EventArgs); // процедура с именем b2_Click для кнопки b2
begin
  exec('C:\EMULS\shadps4-win64-qt-0.6.0\shadPS4.exe'); // открытие целевого эмулятора кнопкой b2
end;

begin
  Form0 := new Form; // создание окна формы
  Form0.Text := 'EmuStarter'; // имя окна
  Form0.Width := 350; // ширина окна в точках
  Form0.Height := 350; // высота окна в точках

//создаем так каждую кнопку
  b1 := new Button; //создание кнопки b1
  b1.Text := 'PS3 - RPCS3'; // имя кнопки b1
  b1.Width := 120; // ширина кнопки. высота height не используется, но можно указать строкой b1.Height :=
  b1.Left := 80; // положение кнопки от левого края
  b1.Top := 90; // положение кнопки по высоте

  b2 := new Button; // создание кнопки b2
  b2.Text := 'PS4 - ShadPS4'; // имя кнопки b2
  b2.Width := 120; // ширина кнопки. высота height не используется, но можно указать строкой b2.Height :=
  b2.Left := 80; // положение кнопки от левого края
  b2.Top := 120; // положение кнопки по высоте

 // по строчке для каждой кнопки с соблюдением соответствия имен
  b1.Click += b1_Click; // выполнение процедуры b1_click для кнопки b1
  b2.Click += b2_Click; // выполнение процедуры b2_click для кнопки b2

 // по строчке для каждой кнопки. строку application.run не трогаем
  Form0.Controls.Add(b1); // добавление в форму кнопки b1
  Form0.Controls.Add(b2); // добавление в форму кнопки b2
  Application.Run(Form0); // запуск формы Form0
end.