Source loader combat arms

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, sButton, sSkinProvider, sSkinManager, ExtCtrls, shellapi,
  sLabel;

type
  TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sSkinProvider1: TsSkinProvider;
    sButton1: TsButton;
    Timer1: TTimer;
    sLabel1: TsLabel;
    procedure sButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.sButton1Click(Sender: TObject);
begin
//MessageBoxA(Handle, 'Abrindo Patcher de Combat Arms', '[H]urley Loader', MB_ICONEXCLAMATION+MB_SYSTEMMODAL);
sLabel1.Caption:= 'Abrindo Patcher.......';
Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Patcher:string;
begin
Patcher := 'C:\Level Up! Games\Combat Arms\CombatArms.exe';
ShellExecute(Handle,'open',pchar(Patcher),nil,nil,sw_show);
Timer1.Enabled := False;
end;

end