[Johny777]

Скажите пожалуйста как переделать

IsStringCyrillic.iss»

Код:

function IsStringCyrillic(Str: String): Boolean;
var
    objRegExp: Variant;
begin
    try
        objRegExp := CreateOleObject('VBScript.RegExp');
    except
        ShowExceptionMessage;
    end;

    if objRegExp.Test(Str) then
    begin
        objRegExp.Pattern := '[\u0400-\u04FF,\u0500-\u052F,\u2DE0-\u2DFF,\uA640-\uA69F]';
        Result := objRegExp.Execute(Str).Count = 1;
    end;
end;

под

Код:

 
[code] 
procedure DirEditOnChange(Sender: TObject);
begin
    WizardForm.NextButton.Enabled := TEdit(Sender).Text <> '123';
end;

procedure InitializeWizard();
begin
    WizardForm.DirEdit.OnChange := @DirEditOnChange;
end;

другие 2 "запрета на русские символы в пути"
1. http://forum.ru-board.com/topic.cgi?...84&limit=1&m=2
2. http://forum.oszone.net/post-1891353-1362.html
через WizardForm.DirEdit.OnChange переделать под блокировку кнопки "далее" не получается (включая эту функцию)
Тяму не хватает!
Цель - заблокированная кнопка "Далее" и лейбл с надписью "Кириллица в пути не допустима. Это может привести к ошибкам запуска игры и неправильному отображению элементов интерфейса"
Думаю лейбл и блокировку кнопки я смогу сам потом добавить, а вот функцию...

[valyok666]

detiedyatosla, я же отвечал на этот вопрос)))
можно короче)

читать дальше »

procedure InitializeWizard();
begin
with WizardForm do begin
Bevel.Hide;
Bevel1.Hide;
end;
end;

[alert30]

Есть скрипт, в котором в начальном старте процессе установки, сделать окно по-компактнее (сделать мини)?

[El Sanchez]

Тяму не хватает! Цель - заблокированная кнопка "Далее" и лейбл с надписью "Кириллица в пути не допустима. Это может привести к ошибкам запуска игры и неправильному отображению элементов интерфейса" »

Johny777, дык, смотри на прототип IsStringCyrillic. На входе строка, на выходе булево значение, другими словами если во входной строке будет хоть один кириллический символ, то функция вернет True. WizardForm.NextButton.Enabled тоже возвращает булев результат, т.е. сделаем, чтобы это свойство зависело от результата IsStringCyrillic.

Код:

procedure DirEditOnChange(Sender: TObject);
begin
    //как только IsStringCyrillic вернет False, т.е. кириллицей и не пахнет, то...
    WizardForm.NextButton.Enabled := not IsStringCyrillic(TEdit(Sender).Text);
    //с надписью "Кириллица в пути не бла-бла-бла" то же самое, только зависимость от Visible
    MyLabel.Visible := IsStringCyrillic(TEdit(Sender).Text); //либо, чтобы IsStringCyrillic не гонять по второму разу MyLabel.Visible := not WizardForm.NextButton.Enabled, т.е. показать надпись, если кнопка неактивна, а это будет происходить, когда найдена кириллица.
end;

[Johny777]

то функция вернет True »

Спасибо!
а ведь просто оказывается *(тк я понял)
MyLabel.Visible := IsStringCyrillic(TEdit(Sender).Text);
это в итоге MyLabel.Visible := true;
с кнопкой тоже самое, только enabled
У меня же таким макаром работет список компонентов на странице выбора компонентов

читать дальше »

только ещё плюс .Checked:=true/false

alert30,
ты имеешь ввиду страницу установки (wpInstalling) ?
через процедуру CurPageChanged можно все окна сделать разными с
различным расположение кнопок, размерами и действиями на них!
Вот здесь под 43 номером 2 варианта http://innoultra.ru/?page_id=18

[alert30]

Johny777, как же я сам не догадался, что у сайта Лександер'а полно FAQ-ов.

[Gnom_aka_Lexander]

alert30, Тут в шапке их тоже полно. Я все брал отсюда и с борды. Все, что нужно - это как следует полазить по темам и архиву - все найдешь. На данный момент, по моему, уже нет ни одного вопроса, который уже не решен.

[Johny777]

Извините, что не по теме спрашиваю!
Посоветуйте пожалуйста
насколько важен халфе 2 и эпизодам в купе с порталом (пираткам) бэкап достижений и сохранений?
( подозреваю не все знают, что статус достижений пишется в файл stats.bin в папке /bin где движок лежит. Сохранения соответственно находятся в папке SAVE )

[R.i.m.s.k.y.]

Johny777, я тебе из своего опыта скажу: вот сделал я дистр проги нужной сугубо мне и раздал всем по сети для собственного удобства, никто и не заметил, кроме одного прошаренного человека который пришел с разборками "кто стер мои настройки в проге без бекапа?"
Так что если ты думаешь что никто не пользуется достижениями в пиратке ХЛ2, ты ошибаешься
Делай бекап!

А стирать не надо, это общий вопрос и ответ на него один: "не умничай и делай!"

[Temyraz@fb]

всем привет. вот процесс удаления сделал

читать дальше »

Код:

#define MyAppName "Uninstall"


[Setup]
AppId=proto15
SourceDir=.
OutputDir=Setup
AppName={#MyAppName}
AppVerName={#MyAppName}
AppVersion={#MyAppName}
CreateAppDir=false
OutputBaseFilename={#MyAppName}
Uninstallable=false

ShowLanguageDialog=auto
LanguageDetectionMethod=uilanguage




[Languages]
Name: ru; MessagesFile: i18n\Russian.isl,i18n\sc_russian.isl
Name: ua; MessagesFile: i18n\Ukrainian-6-5.1.11.isl,i18n\sc_ukrainian.isl



[Files]
Source: {src}\files\*; DestDir: {code:SrcDir}\files\; Flags: ignoreversion recursesubdirs createallsubdirs external; Check: make_copy
Source: {src}\license\*; DestDir: {code:SrcDir}\license\; Flags: ignoreversion recursesubdirs createallsubdirs external; Check: make_copy
Source: dontcopy\check.bat; Flags: dontcopy
Source: dontcopy\checkdb.bat; Flags: dontcopy

[ Code]


////////////////////////////////////////////////////////////////////////
var
    AutoRun: TForm;
    ExitButton, UninstallButton: TButton;
    ResultCode: Integer;
    ISCustomPage1: TWizardPage;
  SuperBackupCheckBox: TNewCheckBox;
  Edit_1: TNewEdit;
  WhereButton: TNewButton;
 PasswordPage: TNewEdit;
  UserVarPass: String;
  filecontent: String;
	ReturnCode: Integer;
//////////////////////////////////////////////////


procedure make_copy_again(Sender: TObject); forward;
procedure ButtonOnClick(Sender: TObject); forward;
/////////////////////////////////////////////////////////////////////
function PUTT(filepath:string):string;
var
S: TArrayOfString;
i : Integer;
begin
if not FileExists(FilePath) then begin MsgBox('Ôàéë íå íàéäåí ' + FilePath, mbError, mb_Ok); Exit;end; // åñëè ôàéëà íåò, âûõîäèì
LoadStringsFromFile(FilePath, S); // çàãðóæàåì ôàéë
result := S[0];
end;

procedure Unstall(Sender: TObject);

begin
  begin
  UserVarPass := PasswordPage.Text;
	ExtractTemporaryFile('check.bat');
   Exec (ExpandConstant ('{tmp}\check.bat'), PasswordPage.Text + ' "' + PUTT(ExpandConstant('{src}\text.txt')) + '"', ExpandConstant ( '{tmp}' ), SW_HIDE, ewWaitUntilTerminated, ReturnCode );
  if ReturnCode = 0 then
		begin
			
		
			
			
			
			begin

  begin
    if SuperBackupCheckBox.Checked = true then
      begin

          MsgBox(ExpandConstant('ntcn'), mbError, MB_OK);

      end
  end;


    begin
        MsgBox(ExpandConstant('qqq'), mbError, MB_OK);
      			
			
			
		end	
		end
    end
	else
		begin
			MsgBox(ExpandConstant('{cm:msgIncorrectPassword}'), mbError, MB_OK);

				  exit;		
		end;
	DeleteFile ( ExpandConstant ('{tmp}\check.bat') );
  end;


  AutoRun.Close;
end;


function make_copy: Boolean;
begin
    Result:=SuperBackupCheckBox.Checked;
end;




procedure make_copy_again (Sender: TObject);
begin
if SuperBackupCheckBox.Checked = false then
  begin
    Edit_1.Enabled:= false;
    Edit_1.visible:= false;
    WhereButton.Enabled:= false;
    WhereButton.visible:= false;
  end
else
  begin
    Edit_1.Enabled:= true;
    Edit_1.visible:= true;
    WhereButton.Enabled:= true;
    WhereButton.visible:= true;
  end;
end;

var
  DataDir: String;

function SrcDir(Param: String): String;
begin
  Result := DataDir;
end;

procedure ButtonOnClick(Sender: TObject);
var
  res: Boolean;
begin
  DataDir := ExpandConstant('{src}');
  res := BrowseForFolder('{cm:ButtonBrowse}', DataDir, True);
  if res then
    begin
      Edit_1.Text := DataDir;
    end;

end;

procedure CreateAutoRun();
begin
    //AutoRun
    AutoRun := TForm.Create(nil);
    with AutoRun do
    begin
        BorderIcons := [];
        Position := poScreenCenter;
        Caption := ExpandConstant('Uninstall');
        ClientWidth := ScaleX(250);
        ClientHeight := ScaleY(250);

    end;
 begin

begin
  PasswordPage := TNewEdit.Create(AutoRun);
  with PasswordPage do
    begin
    Name := 'PasswordPage';
   Parent := AutoRun;

   Left := ScaleX(16);
    Top := ScaleY(24);
    Width := ScaleX(200);
    Height := ScaleY(17);

  end;
    begin
        SuperBackupCheckBox := TNewCheckBox.Create(AutoRun);
  with SuperBackupCheckBox do
  begin
    Name := 'SuperBackupCheckBox';
    Parent := AutoRun;
    Left := ScaleX(16);
    Top := ScaleY(54);
    Width := ScaleX(169);
    Height := ScaleY(17);
    Hint := 'Ñîçäàòü áåêàï';
    Caption := 'Ñîçäàòü áåêàï';
    ShowHint := True;
    OnClick := @make_copy_again;
  end;

  { Edit_1 }
  Edit_1 := TNewEdit.Create(AutoRun);
  with Edit_1 do
  begin
    Name := 'Edit_1';
    Parent := AutoRun;
    Left := ScaleX(16);
    Top := ScaleY(76);
    Width := ScaleX(200);
    Height := ScaleY(21);

    Text := 'C:\';
  end;

  { WhereButton }
  WhereButton := TNewButton.Create(AutoRun);
  with WhereButton do
  begin
    Name := 'WhereButton';
    Parent := AutoRun;
    Left := ScaleX(168);
    Top := ScaleY(110);
    Width := ScaleX(75);
    Height := ScaleY(25);
    Caption := '{cm:ButtonBrowse}';
    OnClick := @ButtonOnClick;
  end;

  SuperBackupCheckBox.TabOrder := 0;
  Edit_1.TabOrder := 1;
  WhereButton.TabOrder := 2;

{ ReservationBegin }


{ ReservationEnd }

end;
Edit_1.visible:=false;
WhereButton.visible:=false;


  AutoRun.Repaint;

   UninstallButton := TButton.Create(AutoRun);
    with UninstallButton do
    begin
        Parent := AutoRun;
        Left := ScaleX(50);
        Top := ScaleY(190);
        Width := ScaleX(70);
        Height := ScaleY(40);
        Cursor := crHand;
        Caption := ExpandConstant('Uninstall');
        OnClick := @Unstall;
    end;

    ExitButton := TButton.Create(AutoRun);
    with ExitButton do
    begin
        Parent := AutoRun;
        Left := ScaleX(150);
        Top := ScaleY(190);
        Width := ScaleX(70);
        Height := ScaleY(40);
        Caption := ExpandConstant('Exit');
        Cursor := crHand;
        ModalResult := mrCancel;
    end;
 end;

  AutoRun.ShowModal;
end;
end;

function InitializeSetup(): Boolean;

begin
  CreateAutoRun();
  Result := False;

 end;

как сделать чтоб в начале был выбор языка? а так же в авторане брались значения перемен(текст.название) из файлов?