Age of Mythology Widescreen Patch SOURCE CODE

###################### AOM Res Changer ########################
Language: Pascal
Dev: Renan Cavalieri
Function: Change 4:3 to Widescreen (res'x' and res'y') on AOM
################################################################

###################### PR FILE ##################################

program AOMRess;

uses
  Forms,
  UnitPrincipal in 'UnitPrincipal.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := 'Age of Mythology & Titans Resolution Changer (Wide & Full HD Patch)';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.


############## UNIT FILE #####################


unit UnitPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ShellApi, XPMan, INIFiles;

type
  TForm1 = class(TForm)
    BtnRun: TButton;
    EditX: TEdit;
    EditY: TEdit;
    GrupLang: TGroupBox;
    Button2: TButton;
    Button3: TButton;
    GrupAom: TRadioGroup;
    lbadvise: TLabel;
    Label1: TLabel;
    version1: TRadioButton;
    version2: TRadioButton;
    GroupBox1: TGroupBox;
    res14: TRadioButton;
    res13: TRadioButton;
    res15: TRadioButton;
    res16: TRadioButton;
    res12: TRadioButton;
    res11: TRadioButton;
    res10: TRadioButton;
    res9: TRadioButton;
    res8: TRadioButton;
    res7: TRadioButton;
    res1: TRadioButton;
    res2: TRadioButton;
    res3: TRadioButton;
    res4: TRadioButton;
    res5: TRadioButton;
    res6: TRadioButton;
    Label2: TLabel;
    EditV: TEdit;
    XPManifest1: TXPManifest;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    res17: TRadioButton;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure res1Click(Sender: TObject);
    procedure res2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure res3Click(Sender: TObject);
    procedure res4Click(Sender: TObject);
    procedure res5Click(Sender: TObject);
    procedure res6Click(Sender: TObject);
    procedure res7Click(Sender: TObject);
    procedure res8Click(Sender: TObject);
    procedure res9Click(Sender: TObject);
    procedure res10Click(Sender: TObject);
    procedure res11Click(Sender: TObject);
    procedure res12Click(Sender: TObject);
    procedure res13Click(Sender: TObject);
    procedure res14Click(Sender: TObject);
    procedure res15Click(Sender: TObject);
    procedure res16Click(Sender: TObject);
    procedure version1Click(Sender: TObject);
    procedure version2Click(Sender: TObject);
    procedure EditXKeyPress(Sender: TObject; var Key: Char);
    procedure EditYKeyPress(Sender: TObject; var Key: Char);
    procedure BtnRunClick(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure res17Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  workini: TIniFile;
  loadini: string;
  Form1: TForm1;
  resolutionx: String;
  resolutiony: String;
  diretorio: String;
  atualx: Integer;
  atualy: Integer;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
  GroupBox1.Caption:=('Escolha sua resolução');
  lbadvise.Caption:=('Atenção: Não selecione resoluções maiores que seu monitor pode suportar, isto é serio!');
  BtnRun.Caption:=('Executar');
  GrupAom.Caption:=('Versão do AOM');
  res16.Caption:=('Personalizar');
  Label3.Caption:=('Criado por Renan Cavalieri (www.tecdicas.com), programa freeware.');
  Label4.Caption:=('Para este programa funcionar, é necessário copia-lo para a pasta do Age Of Mhythology e');
  Label5.Caption:=('executar este arquivo na pasta do jogo.');
  workini.WriteString('lang','id','br');
  Button1.Caption:=('Identificar');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  workini.WriteString('lang','id','en');
  GroupBox1.Caption:=('Chose your resolution');
  lbadvise.Caption:=('Warning: Do not select higher resolutions that your monitor can support, is serious!');
  BtnRun.Caption:=('Run');
  GrupAom.Caption:=('AOM Version');
  res16.Caption:=('Custom');
  Label3.Caption:=('Created by Renan Cavalieri (www.tecdicas.com), freeware software.');
  Label4.Caption:=('For this program to work, you must copy it to the folder of the Age Of Mhythology and');
  Label5.Caption:=('run this file in the game.');
  Button1.Caption:=('identify');
end;

procedure TForm1.res1Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('800');
  EditY.Text:=('600');
  workini.WriteString('res','last','1');
end;

procedure TForm1.res2Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditX.Text:=('960');
  EditY.Text:=('600');
  workini.WriteString('res','last','2');
end;

procedure TForm1.FormActivate(Sender: TObject);
  var locate: string;
begin
  diretorio:=GetCurrentDir;
  workini:=TIniFile.Create(diretorio+'/reschanger.ini');
  workini.ReadString('res','last', loadini);
  if workini.ReadString('res','last', loadini)='' then
  begin
    workini.WriteString('res','last','1');
  end;
  if workini.ReadString('game','version', loadini)='' then
  begin
    workini.WriteString('game','version','aom');
  end;
  locate:=FileSearch('aom.exe', diretorio);
  if FileExists(locate) then
  begin
    Form1.Refresh;
  end
  else
  begin
    ShowMessage('Error 10: Age of Mythology "AOM.EXE" not found! Please read the file "setup.txt" or "instalar.txt"');
    Application.Terminate;
  end;
  locate:=FileSearch('aomx.exe', diretorio);
  if FileExists(locate) then
  begin
    Form1.Refresh;
  end
  else
  begin
    ShowMessage('Error 11: Age of Mythology: The Titans "AOMX.EXE" not found!');
    version2.Enabled:=False;
    version1.SetFocus;
    workini.WriteString('game','version','aom');
  end;
  if workini.ReadString('lang','id', loadini)='en' then
  begin
    Button3.Click;
  end
  else
  begin
    Button2.Click
  end;

if workini.ReadString('res','last', loadini)='1' then
begin
  res1.SetFocus;
end;

if workini.ReadString('res','last', loadini)='2' then
begin
  res2.SetFocus;
end;

if workini.ReadString('res','last', loadini)='3' then
begin
  res3.SetFocus;
end;

if workini.ReadString('res','last', loadini)='4' then
begin
  res4.SetFocus;
end;

if workini.ReadString('res','last', loadini)='5' then
begin
  res5.SetFocus;
end;

if workini.ReadString('res','last', loadini)='6' then
begin
  res6.SetFocus;
end;

if workini.ReadString('res','last', loadini)='7' then
begin
  res7.SetFocus;
end;

if workini.ReadString('res','last', loadini)='8' then
begin
  res8.SetFocus;
end;

if workini.ReadString('res','last', loadini)='9' then
begin
  res9.SetFocus;
end;

if workini.ReadString('res','last', loadini)='10' then
begin
  res10.SetFocus;
end;

if workini.ReadString('res','last', loadini)='11' then
begin
  res11.SetFocus;
end;

if workini.ReadString('res','last', loadini)='12' then
begin
  res12.SetFocus;
end;

if workini.ReadString('res','last', loadini)='13' then
begin
  res13.SetFocus;
end;

if workini.ReadString('res','last', loadini)='14' then
begin
  res14.SetFocus;
end;

if workini.ReadString('res','last', loadini)='15' then
begin
  res15.SetFocus;
end;

if workini.ReadString('res','last', loadini)='16' then
begin
  res16.SetFocus;
  EditX.Text:=(workini.ReadString('res','customx', EditX.Text));
  EditY.Text:=(workini.ReadString('res','customy', EditY.Text));
end;

if workini.ReadString('res','last', loadini)='17' then
begin
  res17.SetFocus;
end;

if workini.ReadString('game','version', loadini)='aom' then
begin
  version1.SetFocus;
end;

if workini.ReadString('game','version', loadini)='aomx' then
begin
  version2.SetFocus;
end;
end;

procedure TForm1.res3Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1024');
  EditY.Text:=('768');
  workini.WriteString('res','last','3');
end;

procedure TForm1.res4Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1280');
  EditY.Text:=('720');
  workini.WriteString('res','last','4');
end;

procedure TForm1.res5Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1280');
  EditY.Text:=('768');
  workini.WriteString('res','last','5');
end;

procedure TForm1.res6Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1280');
  EditY.Text:=('800');
  workini.WriteString('res','last','6');
end;

procedure TForm1.res7Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1280');
  EditY.Text:=('960');
  workini.WriteString('res','last','7');
end;

procedure TForm1.res8Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1280');
  EditY.Text:=('1024');
  workini.WriteString('res','last','8');
end;

procedure TForm1.res9Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1440');
  EditY.Text:=('900');
  workini.WriteString('res','last','9');
end;

procedure TForm1.res10Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1600');
  EditY.Text:=('900');
  workini.WriteString('res','last','10');
end;

procedure TForm1.res11Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1680');
  EditY.Text:=('1050');
  workini.WriteString('res','last','11');
end;

procedure TForm1.res12Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1600');
  EditY.Text:=('1200');
  workini.WriteString('res','last','12');
end;

procedure TForm1.res13Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1920');
  EditY.Text:=('1080');
  workini.WriteString('res','last','13');
end;

procedure TForm1.res14Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1920');
  EditY.Text:=('1440');
  workini.WriteString('res','last','14');
end;

procedure TForm1.res15Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('2048');
  EditY.Text:=('1530');
  workini.WriteString('res','last','15');
end;

procedure TForm1.res16Click(Sender: TObject);
begin
  EditX.ReadOnly:=False;
  EditX.Enabled:=True;
  EditY.ReadOnly:=False;
  EditY.Enabled:=True;
  EditX.Text:=('');
  EditY.Text:=('');
  EditX.SetFocus;
  workini.WriteString('res','last','16');
end;

procedure TForm1.version1Click(Sender: TObject);
begin
  EditV.Text:=('aom.exe')  ;
  workini.WriteString('game','version','aom');
end;

procedure TForm1.version2Click(Sender: TObject);
begin
  EditV.Text:=('aomx.exe');
  workini.WriteString('game','version','aomx');
end;

procedure TForm1.EditXKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    EditY.SetFocus;
  end;
  if Not (key in ['0'..'9',#8]) then
    key := #0;
  end;

procedure TForm1.EditYKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    key:=#0;
    BtnRun.SetFocus;
  end;
  if Not (key in ['0'..'9',#8]) then
  key := #0;
  end;

procedure TForm1.BtnRunClick(Sender: TObject);
var run: String;
begin
  If EditX.Text=('') then
  begin
    ShowMessage('Custom resolution was not set')
  end
  else
    If EditY.Text=('') then
  begin
    ShowMessage('Custom resolution was not set')
  end
  else
  begin
    workini.WriteString('res','customx', EditX.Text);
    workini.WriteString('res','customy', EditY.Text);
    run:=(EditV.Text+'  xres='+EditX.Text+' yres='+EditY.Text);
    WinExec(pchar(run), SW_SHOWNORMAL);
  end;
end;

procedure TForm1.Label3Click(Sender: TObject);
begin
  ShellExecute(Handle,'open','http://www.tecdicas.com',nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.res17Click(Sender: TObject);
begin
  EditX.ReadOnly:=True;
  EditX.Enabled:=False;
  EditY.ReadOnly:=True;
  EditY.Enabled:=False;
  EditX.Text:=('1360');
  EditY.Text:=('768');
  workini.WriteString('res','last','17');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  atualx:=Screen.Width;
  atualy:=Screen.Height;
  if workini.ReadString('lang','id', loadini)='br' then
  begin
    ShowMessage('Neste momento seu monitor está exibindo a resolução '+IntToStr(atualx)+'x'+IntToStr(atualy));
  end
  else
  begin
    ShowMessage('Right now your monitor is displaying this resolution: '+IntToStr(atualx)+'x'+IntToStr(atualy));
  end;
end;
end.