Скрипты Inno Setup. Помощь и советы [часть 5]

R.i.m.s.k.y. · Конфигурация компьютера

Johny777, искал уже, не нашел
помню что был в этой теме, а листать 156 страниц - идиотом сделаешься

И отвечая на свой прошлый вопрос - как дать права папке всем:

Код:

procedure GrantFolder(Folder : string);
var pathapp : string; res : integer;
begin
  pathapp := RemoveQuotes(Folder); pathapp := RemoveBackslashUnlessRoot(pathapp); pathapp := Lowercase(pathapp); pathapp := AddQuotes(pathapp);
  Exec('cmd.exe', ' /c icacls ' + pathapp + ' /grant *S-1-1-0:F /T /C /Q /inheritance:e',ExpandConstant('{sys}'),SW_HIDE,ewNoWait,res);
end;

Требуется либо разрешение от UAC либо запуск установщика от админа

R.i.m.s.k.y. · Конфигурация компьютера

Поиск по теме оказывается сломан
Вбиваю 7-zip которое вот точно есть выше - результат ничего не найдено
Однако по слову проблема результаты есть

так что вопрос двойной:
- сслыка на портированный скрипт
- пример его использования для двух внешних архивов {src}\zip.zip {src}\zip2.zip c процентами зеленой колбасы

Mailchik · Отправлено: **12:40, 11-01-2013** | #**1523**

Цитата Raf-9600:

Использую код на растянутый WizardSmallBitmapImage но столкнулся с проблемой: если в операционке выбрать увеличенные шрифты (в Панель управления\Оформление и персонализация\Экран) то картинка оказывается маленькой: »

При объявлении координат расположения используйте ScaleX (для Left и Width) и ScaleY (для Top и Height). Вот пример на основе вашего кода:

nik1967 · Конфигурация компьютера

Mailchik, из справки:
Takes an X coordinate or width and returns it scaled to fit the size of the current dialog font. If the dialog font is 8-point MS Sans Serif and the user is running Windows in Small Fonts (96 dpi), then X is returned unchanged.
Берет X координат или ширину и возвращает масштабируемый, чтобы соответствовать размеру текущего диалогового шрифта. Если диалоговый шрифт - Sans Serif MS с 8 точками, и пользователь запускает Windows в Маленьких Шрифтах (96 точек на дюйм), то X возвращен неизменный.
Походу это только для лейблов. Я сам всегда всё через ScaleX ScaleY делал, но недавно прокололся на картинках при изменении размера текста в винде.
Гуру поправте меня, если я не прав.

Mailchik · Отправлено: **16:29, 11-01-2013** | #**1525**

nik1967, это в справке так написано, а на практике ScaleX и ScaleY мне помогали со всеми визуальными компонентами, которые я использовал. маленький пример которым можно проверить:

Код:

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

[Code]
procedure InitializeWizard;
 begin
  with WizardForm do begin
   OuterNotebook.Hide;
   with WizardBitmapImage do begin
    Parent := WizardForm;
    Width := 497;
    //Width := ScaleX(497);
   end;
  end;
end;

Vstanka · Конфигурация компьютера

Подскажите, пожалуйста, как в inno вызвать функцию inet_addr (для проверки правильности введенного ip-адреса) из библиотеки winsock? В паскале достаточно было ее прописать в разделе uses, а здесь как?

alert30 · Конфигурация компьютера

Vstanka, только это понарыл, проверьте и отпишитесь:

Код:

[Code]

//_______________________________________________________________________
// IsConnected.iss
// Version 1.0
// October 09, 2008

// by C. Kevin Provance (kevin@tpasoft.com or kevin.provance@gmail.com)
// © Copyright 2008, C. Kevin Provance d/b/a TPA Software.
// All Rights Reserved.

// Contains a PING routine to determine if an active Internet connection
// is currently established. To use this script, add an #include directive
// in your script that points to this script, example:

// #include ;

// Finally, in your InitializeWizard section, call:

// IsConnected('');

// It will return a Boolean value, True if connected, False otherwise
// or 11010 if the site is timed out (down). It is important that you
// use your own website's IP as the test is twofold. The first is to
// check for an Internet connection, the second is to check if your site
// is indeed up and running (for those who may check out my WebInstall
// script.)

// In the future I will be tweaking this script to accept URL's instead
// of IP addresses and clean up the const values some more.

// Feel free to use this script in your projects for no compensation. I
// do ask that if you reprint it or modify it you leave this header
// section in tact so due credit is given and all the changes you made,
// along with your name and date. If you would also send me a copy of my
// records, that would be great as well.
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
//_______________________________________________________________________
// Version History
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
// [10.09.08] - Author: Kevin Provance
// - First Initial release

//_______________________________________________________________________
// ToDo:
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
// - Accept URL instead of IP addresses via the IsConnected function
// - Properly declare CONST values instead of adding the return values
// directly into the code.

// SUGGESTIONS ALWAYS WELCOME!!!!!

// And now for the code...Enjoy.

// C. Kevin Provance
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ

//_______________________________________________________________________
// Type records for ICMP and WSA
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
type
 // ICMP Options type
 TICMPOptions = record
 Ttl: Integer;
 Tos: Integer;
 Flags: Integer;
 OptionsSize: Integer;
 OptionsData: Integer;
 end;

 // Echo Reply type
 TEchoReply = record
 Address: Integer;
 status: Integer;
 RoundTripTime: Integer;
 DataSize: Integer;
 DataPointer: Integer;
 Options: TICMPOptions;
 Data: String;
 end;

 // WSA Data type
 TWSAData = record
 wVersion: Integer;
 wHighVersion: Integer;
 szDescription: array[0..256] of Char;
 szSystemStatus: array[0..128] of Char;
 wMaxSockets: Integer;
 wMaxUDPDG: Integer;
 dwVendorInfo: PChar;
 end;

//_______________________________________________________________________
// API from Ws2_32.dll
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
function WSAStartup(wVersionRequired: Integer; lpWSADATA: TWSAData): 
Integer;
 external 'WSAStartup@Ws2_32.dll stdcall';

function WSACleanup(): Integer;
 external 'WSACleanup@Ws2_32.dll stdcall';

function inet_addr(s: String): Integer;
 external 'inet_addr@Ws2_32.dll stdcall';

//_______________________________________________________________________
// API from icmp.dll
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
function IcmpCreateFile(): Integer;
 external 'IcmpCreateFile@icmp.dll stdcall';

function IcmpCloseHandle(IcmpHandle:Integer): Integer;
 external 'IcmpCloseHandle@icmp.dll stdcall';

function IcmpSendEcho(IcmpHandle: Integer; DestinationAddress: Integer;
 RequestData: String; RequestSize: Integer;
 RequestOptions: Integer; ReplyBuffer: TEchoReply;
 ReplySize: Integer; Timeout: Integer): Integer;
 external 'IcmpSendEcho@icmp.dll stdcall';

//_______________________________________________________________________
// Ping function to determine if a connection to the Internet is active.
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
function Ping(sAddress: String; sDataToSend: String; ECHO: TEchoReply): 
Integer;
var
 hPort: Integer;
 dwAddress: Integer;
 WSAD: TWSAData;
 lRetVal: Integer;
begin
 Result := -1;

 // Perform Winsock start
 lRetVal := WSAStartup($0101, WSAD);
 if lRetVal <> 0 then begin
 Log('Winsock not responding');
 exit;
 end;

 // Obtain pointer to the IP address
 dwAddress := inet_addr(sAddress);

 If dwAddress <> -1 Then begin

 // Create a port to send our test data
 hPort := IcmpCreateFile();
 If hPort <> 0 Then begin

 // Send the data and wait for a reply.
 IcmpSendEcho(hPort, dwAddress, sDataToSend, Length(sDataToSend),
 0, ECHO, Sizeof(ECHO), 200);

 // The reply
 Result := ECHO.status;

 // CLose the port handle
 IcmpCloseHandle(hPort);
 end Else begin
 Result := -1;
 end;
 end;

 // Clean up the winsock session we opened
 WSACleanup();
end;

//_______________________________________________________________________
// IsConnected, test the Internet connection with the IP to your website.
//ŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻŻ
function IsConnected(sIP: String): Boolean;
var
 lReply: Integer;
 lCount: Integer;
 ECHO: TEchoReply;
begin
 lReply := Ping(sIP, '.', ECHO);

 case lReply of
 0: //success
 begin
 Result := True;
 end;
 11010: //Timeout
 begin
 Result := True;
 if ECHO.DataPointer = 0 then begin
 Result := False;
 end;
 end;
 else
 begin
 Result := False;
 end;
 end;
end;

Johny777 · Конфигурация компьютера

R.i.m.s.k.y.,

Цитата R.i.m.s.k.y.:

Поиск по теме оказывается сломан
Вбиваю 7-zip которое вот точно есть выше - результат ничего не найдено
Однако по слову проблема результаты есть »

я обычно пользуюсь гуглом обходя поисковики форума
вбей для интереса в гугл:
forum oszone function SevenZip(const _hwnd
и получишь по первой ссылке http://forum.oszone.net/post-2012963.html
читай с поста 1211 до 1225
конвертация ком строки не нужна, читай под конец http://forum.oszone.net/post-2050399-1435.html

Цитата R.i.m.s.k.y.:

так что вопрос двойной:
- сслыка на портированный скрипт
- пример его использования для двух внешних архивов {src}\zip.zip {src}\zip2.zip c процентами зеленой колбасы »

все есть в кодах по ссылке выше. Разберёшься!

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

nik1967,

Цитата nik1967:

Походу это только для лейблов. Я сам всегда всё через ScaleX ScaleY делал, но недавно прокололся на картинках при изменении размера текста в винде. »

я не гуру, но советую забить и действовать наверняка, то бишь писать через скеил
вот смотри:
тест в цикле длиной в 1 000 000:

функция скеил замедляет выполнение на примерно 30%
при таком раскладе не использование этих функций в пользу указания координат напрямую для установки свойств ширины/высоты ничего не даст кроме сокращения времени на писанину.
Такой задержкой можно пренебречь
единственное что ловил себя на записи SetBounds(UninstallButton.Left - UninstallButton.Width - ScaleX(16), ... - не правильно
нужно: SetBounds(ScaleX(UninstallButton.Left - UninstallButton.Width - 16), ...

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

alert30, полезный код, сохранил, спасибо!

R.i.m.s.k.y. · Конфигурация компьютера

Цитата Johny777:

Разберёшься! »

ога
а что два архива ему на распаковку не подсунешь? нужно мудровать с прогрессбаром?
Еще и кнопку cancel распаковке/упаковке никак не приклеить?
я ж в этом не силен

El Sanchez

в скрипте ошибка в SevenZipExtractArchive
7зип не понимает маску *.*, ему нужно *

Цитата:

7-Zip doesn't uses the system wildcard parser. 7-Zip doesn't follow the archaic rule by which *.* means any file. 7-Zip treats *.* as matching the name of any file that has an extension. To process all files, you must use a * wildcard.

FileList тоже не работает, если написать
SevenZipExtractArchive(szStatus.Handle, 'y:\Games\RedAlert2.7z', 'movies01.mix,movies02.mix', False, '', True, 'r:\', False, CallbackAddr('ArchiverCallbackProc'));
то пишет No files to proceed
комстрока 7зипа совсем неправильная
x "y:\Games\RedAlert2.7z" -o"r:\" "movies01.mix" -i!"movies02.mix" -hide -y

Никак нельзя добавить несколько архивов на распаковку с общим прогрессбаром?
типа
SevenZipExtractArchive(szStatus.Handle, 'y:\Games\RedAlert2.7z,y:\Games\Omikron.7z', '*', False, '', True, 'r:\', False, CallbackAddr('ArchiverCallbackProc'));

audiofeel · Конфигурация компьютера

Доброе утро всем. почему у меня не получается приделать вот этот пример = " когда после установки игры, если ещё раз хочешь запустить установку автоматом, то запускается деинсталлятор?"

этот пример я не могу приделать (использовать) именно в этом скрипте, или запускается и установка и удаление или ошибка "runtime error couldn't...." подскажите что и где делаю не так