[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application
OutputBaseFilename=AutoRun
[Languages]
Name: "eng"; MessagesFile: "compiler:Default.isl"
Name: "rus"; MessagesFile: "compiler:Languages\Russian.isl"
[Files]
Source: 1.bmp; Flags: dontcopy
[Code ]
var
AutoRun : TSetupForm;
OkButton, CancelButton: TButton;
LangEdit : TComboBox;
MsgStr: TLabel;
AppDir: string;
eng,cl,nocl: boolean;
m,n: integer;
lang: boolean;
procedure LangChange(Sender : TObject);
begin
if GetUILanguage = $0419 then
begin
m:=0;
n:=1;
end else begin
m:=1;
n:=0;
end;
case LangEdit.ItemIndex of
m: begin
with AutoRun do begin
MsgStr.Caption:= 'Select language, which will use at installing'#13'process:';
CancelButton.Caption := 'Cancel';
OkButton.Caption:= 'OK';
Caption := 'Select setup language';
Application.Title := 'Setup';
end;
lang:=false;
SelectLanguageForm.LangCombo.ItemIndex := 0;
eng :=true;
end;
n: begin
with AutoRun do begin
MsgStr.Caption:= 'Выберите язык,который будет использован'#13'в процессе установки:';
CancelButton.Caption := 'Отмена';
OkButton.Caption:= 'ОК';
Caption := 'Выберите язык установки';
Application.Title := 'Установка';
end;
lang:=true;
SelectLanguageForm.LangCombo.ItemIndex := 1;
eng :=true;
end;
end;
end;
procedure OkClick(Sender: TObject);
begin
if not eng then
begin
if GetUILanguage = $0419 then
begin
SelectLanguageForm.LangCombo.ItemIndex := 1;
lang:=true;
end else begin
SelectLanguageForm.LangCombo.ItemIndex := 0;
end;
end;
NoCl:=true;
AutoRun.Close;
end;
procedure FormOnClose(Sender: TObject; var Action: TCloseAction);
begin
if not NoCl then
begin
Cl:=true;
end;
end;
procedure CancelClick(Sender: TObject);
begin
AutoRun.Close;
end;
procedure LangForm;
begin
AutoRun := CreateCustomForm;
with AutoRun do
begin
Width := ScaleX(255);
Height := ScaleY(155);
BorderIcons := [biSystemMenu];
Position := poScreenCenter;
OnClose := @FormOnClose;
if GetUILanguage = $0419 then
Caption := 'Выберите язык установки'
else
Caption := 'Select setup language';
end;
MsgStr:= TLabel.Create(AutoRun);
with MsgStr do
begin
SetBounds(ScaleX(10), ScaleY(10), ScaleX(230), ScaleY(42));
Transparent:= True;
Parent:= AutoRun;
if GetUILanguage = $0419 then
Caption:= 'Выберите язык,который будет использован'#13'в процессе установки:'
else
Caption:= 'Select language, which will use at installing'#13'process:';
end;
LangEdit := TComboBox.Create(AutoRun)
with LangEdit do
begin
SetBounds(ScaleX(10), ScaleY(55), ScaleX(228), ScaleY(21));
Parent := AutoRun;
Style := csDropDownList;
OnChange := @LangChange;
if GetUILanguage = $0419 then
begin
Items.add('English')
Items.add('Русский')
end else begin
Items.add('Русский')
Items.add('English')
end;
ItemIndex := 0
ItemIndex := 1
end;
OkButton:= TButton.Create(AutoRun);
with OkButton do
begin
Parent:= AutoRun;
SetBounds(ScaleX(85), ScaleY(90), ScaleX(75), ScaleY(23));
OnClick:= @OkClick;
if GetUILanguage = $0419 then
Caption:= 'ОК'
else
Caption:= 'OK';
end;
CancelButton:= TButton.Create(AutoRun);
with CancelButton do
begin
Parent:= AutoRun;
SetBounds(ScaleX(165), ScaleY(90), ScaleX(75), ScaleY(23));
OnClick:= @CancelClick;
if GetUILanguage = $0419 then
Caption:= 'Отмена'
else
Caption := 'Cancel';
end;
if GetUILanguage = $0419 then
begin
Application.Title := 'Установка';
end else begin
Application.Title := 'Setup';
end;
AutoRun.ShowModal;
AutoRun.Free;
end;
procedure DeinitializeSetup();
begin
end;
function InitializeLanguageDialog(): Boolean;
begin
LangForm;
Result := false;
end;
///
var
AutoRun2: TSetupForm;
img1: TBitmapImage;
PlayButton, InstallButton, SupportButton, ReadmeButton, WebButton, ExitButton, UninstallButton: TButton;
AppPath,UninsPath: string;
ResultCode: Integer;
procedure PlayButtonClick(Sender: TObject);
var
exe: string;
begin
exe:='shift.exe';
if RegQueryStringValue(HKLM, 'SOFTWARE\Electronic Arts\Game','Install Dir', AppPath) then
begin
Exec(AddBackslash(AppPath) + Exe, '', ExtractFilePath(AddBackslash(AppPath) + Exe), SW_SHOWNORMAL,ewNoWait,ResultCode)
AutoRun2.Close;
end
end;
procedure InstallButtonClick(Sender: TObject);
var
CurPageID: Integer;
begin
[B]if lang then
Exec(ExpandConstant('{src}\Setup.exe'),'/LANG=rus','',SW_SHOW,ewNoWait,ResultCode)
else
Exec(ExpandConstant('{src}\Setup.exe'),'/LANG=eng','',SW_SHOW,ewNoWait,ResultCode);[/B]
AutoRun2.Close;
end;
procedure SupportButtonClick(Sender: TObject);
begin
shellexec('open', ExpandConstant('{src}\Game.exe'), '', '',SW_SHOWNORMAL, ewnowait, ResultCode);
end;
procedure ReadmeButtonClick(Sender: TObject);
begin
ShellExec('open', ExpandConstant('{src}\readme.txt'),'','', SW_SHOW, ewNoWait, ResultCode);
end;
procedure WebButtonClick(Sender: TObject);
begin
shellexec('open', 'http://localhost', '', '',SW_SHOWNORMAL, ewnowait, ResultCode);
end;
procedure ExitButtonClick(Sender: TObject);
begin
AutoRun2.Close;
end;
procedure UninstallButtonClick(Sender: TObject);
begin
if RegQueryStringValue(HKLM, 'SOFTWARE\Game','UninstallString', UninsPath) then
begin
UninsPath:=RemoveQuotes(UninsPath);
Exec(UninsPath,'','',SW_SHOWNORMAL,ewNoWait,ResultCode);
AutoRun2.Close;
end
end;
procedure CreateAutoRun;
begin
//AutoRun
AutoRun2 := CreateCustomForm;
with AutoRun2 do begin
Left := 498;
Top := 75;
Width := 495;
Height := 340;
BorderIcons := [];
BorderStyle:=bsToolWindow //(bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin)
Color := clBtnFace;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'MS Sans Serif';
Font.Style := [];
Position := poScreenCenter;
Caption:='AutoRUN'
end;
//img1
img1 := TBitmapImage.Create(AutoRun);
ExtractTemporaryFile('1.bmp');
with img1 do begin
Parent := AutoRun2;
Left := 0;
Stretch:= true;
Top := 0;
Width := Autorun2.Width;
Height := Autorun2.Height;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\1.bmp'));
end;
//PlayButton
PlayButton:= TButton.Create(AutoRun2);
with PlayButton do begin
Parent := AutoRun2;
Left := 300;
Top := 110;
Width := 150;
Height := 22;
if lang then
Caption:= 'Начать игру'
else
Caption:= 'State Game';
Cursor:= crHand;
// ModalResult:= mrOk;
OnClick := @PlayButtonClick;
if not RegQueryStringValue(HKLM, 'SOFTWARE\Game','Install Dir', AppPath) then
begin
PlayButton.Enabled := False;
end;
end;
//InstallButton
InstallButton:= TButton.Create(AutoRun2);
with InstallButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 110;
Width := 150;
Height := 22;
if lang then
Caption:= 'Установить игру'
else
Caption:= 'Install Game';
Cursor:= crHand;
OnClick := @InstallButtonClick;
end;
//SupportButton
SupportButton:= TButton.Create(AutoRun2);
with SupportButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 140;
Width := 150;
Height := 22;
if lang then
Caption:= 'Инфо'
else
Caption:= 'Info';
Cursor:= crHand;
OnClick := @SupportButtonClick;
end;
//ReadmeButton
ReadmeButton:= TButton.Create(AutoRun2);
with ReadmeButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 170;
Width := 150;
Height := 22;
Caption:= 'Readme';
Cursor:= crHand;
OnClick := @ReadmeButtonClick;
end;
//WebButton
WebButton:= TButton.Create(AutoRun2);
with WebButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 200;
Width := 150;
Height := 22;
if lang then
Caption:= 'Веб-сайт'
else
Caption:= 'Web-site';
Cursor:= crHand;
OnClick := @WebButtonClick;
end;
//ExitButton
ExitButton:= TButton.Create(AutoRun2);
with ExitButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 260;
Width := 150;
Height := 22;
if lang then
Caption:= 'Выход'
else
Caption:= 'Close';
Cursor:= crHand;
OnClick := @ExitButtonClick;
// ModalResult:= mrCancel;
end;
//UninstallButton
UninstallButton:= TButton.Create(AutoRun2);
with UninstallButton do begin
Parent:= AutoRun2;
Left := 300;
Top := 230;
Width := 150;
Height := 22;
if lang then
Caption:= 'Удалить игру'
else
Caption:= 'Delete Game';
Cursor:= crHand;
OnClick := @UninstallButtonClick;
end;
if not RegQueryStringValue(HKLM, 'SOFTWARE\Game','UninstallString', UninsPath) then
begin
InstallButton.Enabled:=true;
InstallButton.Visible:=true;
UninstallButton.Enabled:=false;
UninstallButton.Visible:=false;
end;
if RegQueryStringValue(HKLM, 'SOFTWARE\Game','UninstallString', UninsPath) then
begin
InstallButton.Enabled:=false;
InstallButton.Visible:=false;
UninstallButton.Enabled:=true;
UninstallButton.Visible:=true;
end;
AutoRun2.ShowModal;
end;
function InitializeSetup(): Boolean;
begin
if not Cl then
CreateAutoRun;
Result:= False;
end;
это в режиме ожидания должно быть а не для красоты и стим клиент не находит если там что то ищет.
