[Mailchik]

AlexLAN, попробуйте:

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[INI]
Filename: "{app}\Game.ini"; Section: "Nancy Data"; Key: "IDPath"; String: {code:Test};

[Code]
function Test(s : string):string;
 begin
  Result := copy(ExpandConstant('{app}'), 3, 100);
end;

[El Sanchez]

На кустомной кнопки отмены прописываю: FStream.Free; WizardForm.Close; Если во всей установки: Confirm:= False; то всё просто замечательно! Но если: Confirm:= True; ругается на эту строчку: FStream.WriteBuffer(fBuf, lpdwNumberOfBytesRead); Возможно ли как-то откатить установку без ошибок, но с живым Confirm? »

Respin, имхо, форму не нужно закрывать. В процедуре DownloadFile находите строчки и дописываете (допустим, что кастомная кнопка это CancelButton):

Код:

while (InternetQueryDataAvailable(hFile, lpdwNumberOfBytesAvailable, 0, 0) and (lpdwNumberOfBytesAvailable > 0)) do
begin
   if CancelButton.Cancel then Exit;
   SetArrayLength(lpBuffer, RoundDword(lpdwNumberOfBytesAvailable));

...

finally
   Timer.Enabled := False;
   FStream.Free;
   ProgressPage.Hide;
   CancelButton.Cancel := False;
end;

Обработчик OnClick кнопки:

Код:

procedure CancelButtonOnClick(Sender: TObject);
begin
    TButton(Sender).Cancel := True;
end;

ответьте пожалуйста на вопрос. как мне сделать чтоб я на кнопочку нажал и ключ добавился? »

SatHan,

Код:

procedure NewButton1Click(Sender: TObject);
begin
   RegWriteStringValue(HKLM, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application_is1', 'QuietUninstallString', ExpandConstant('"{uninstallexe}" /SILENT'));
end;

Прошу людей с прямыми руками (не такими как у меня ) помочь довести до ума »

AlexLAN, функция должна возвращать результат, поэтому добавьте:

Код:

function CutString(CutStr: String): String;
begin
  Delete(CutStr, 1, 2);
  Result := CutStr;
end;

[AlexLAN]

El Sanchez
Спасибо, строка создалась верно.

Mailchik
Ваш способ не пробовал, но думаю что он тоже будет рабочим.

Спасибо за уделенное время

[SatHan]

El Sanchez, Спасибо. то что нужно.

подскажите пожалуйста.
как заставить

Код:

[Run]
Filename: app.exe

чтоб запускалась только при нажатии горячей клавиши CTRL+ F2?

[Johny777]

Можно мне пожалуйста пример заполнение массива записей именами файлов найденными по маске с последующим поиском имён но уже из массива (не статичный массив, тк файлов неизвестно сколько)
если по маске ничего не найдено то не заполнять массив (вообще никаких действий)

короче говоря записать в массив все файлы(их имена), которые удовлетворяют маске поиска

улучшил функцию проверки строки на целое число »

Важно!
должен заметить что криво работает с нулём
откатился к этой:

Код:

function IsInt(const sTestStr: string): Boolean;  
var
  i: Integer;
begin
  Result := False;
  if Length(sTestStr) > 0 then
    for i := 0 to 9 do
      begin
        Result := Pos(IntToStr(i), sTestStr) > 0;
        if Result then
          Break;
      end;
end;

===============================================================================

подбрось пример пожалуйста если не трудно. »

http://forum.oszone.net/post-1968497-631.html

А вобще можно скин убрать с этого окна ??? »

если устроит такой вариант:

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

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: steam.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: ISSkin.dll; DestDir: {tmp}; Flags: dontcopy

[  Code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:isskin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:isskin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('steam.cjstyles');
LoadSkin(ExpandConstant('{tmp}\steam.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
  UnloadSkin();
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
  WizardForm.Hide;
  Sleep(200);
  UnloadSkin();
  if ExitSetupMsgBox = False then
  begin
    Cancel := False;
    LoadSkin(ExpandConstant('{tmp}\steam.cjstyles'), '');
    WizardForm.Show;
  end else Cancel := True;
end;

=============================================================

SatHan,
Чтоб мне не спороть чушь: вроде для этого используются хуки. Могут быть слышны маты антивиря
поставь инно ультру и в \Inno Setup 5\Scripts\WindowsHook есть пример

[Ivan_009]

Как сделать чтобы при нажатии на кнопку появлялась форма png...Заранее спасибо...

[Johny777]

форма png »

мои скудные знания и логика говорят что это словосочетание не возможно

чтобы при нажатии на кнопку появлялась ... png »

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

Код:

#define ShowPic "Pic.png"

[Setup]
AppName=Reg_Path_Demo
AppVerName=Reg_Path_Demo
DefaultDirName={pf}\Reg_Path_Demo

[Files]
Source: isgsg.dll; Flags: ignoreversion dontcopy nocompression solidbreak sortfilesbyextension
Source: Pic.png; Flags: ignoreversion dontcopy nocompression solidbreak sortfilesbyextension

[  code]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';

procedure Show(Sender: TObject);
begin
  if not FileExists(ExpandConstant('{tmp}\{#ShowPic}')) then ExtractTemporaryFile('{#ShowPic}');
  ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\{#ShowPic}',300,3000,300,0,255,False,$FFFFFF,10);
end;


procedure InitializeWizard();
begin
  with TButton.Create(nil) do
  begin
    Parent := WizardForm;
    Caption := 'Push';
    Top := ScaleY(320);
    Left := ScaleX(20);
    OnClick := @Show;
  end;
end;

положить рядом со скриптом:
isgsg.dll (библиотека от South)
Pic.png

форма - другой разговор

[Ivan_009]

Johny777, Спасибо... А как сделать чтобы эта картинка была строго по инсталлятору...

[Gnom_aka_Lexander]

Johny777, маладца! Я тоже знаю, что совсем не это человеку нужно, ну да ладно, сам хотел приколоться Ivan_009, в обработчик кнопки вешаешь не сплешь а функцию ImgLoad из botva2.dll. в ней-же и укажешь нужные тебе размеры относительно инсталлятора.

[Ivan_009]

Gnom_aka_Lexander, а как сделать чтобы картинка закрывалась при нажатии на кнопку...