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

[Beginner85]

Странно, но по всем темам не нашел такого простого варианта добавления правила в брандмауэр Windows:

[Run]
Filename: "netsh.exe"; Parameters: "firewall add allowedprogram ""{app}\MyApp.exe"" ""MyApp"" ENABLE ALL";

Ну да ладно, у меня другой вопрос. Кто-нибудь встречал скрипт для запуска гаджета в Windows 7 или Vista? Хочется как у каспера сделать, чтоб после установки он сразу появлялся на декстопе.

Ман есть тут, но вкурить не могу http://msdn.microsoft.com/en-us/library/dd378390(v=vs.85).aspx

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

подскажите, пожалуйста, есть ли способ узнать в инно есть ли интернет или нет

[VASYAKRN]

http://s017.radikal.ru/i441/1202/80/0f0c64c5ee5ct.jpg (http://radikal.ru/F/s017.radikal.ru/i441/1202/80/0f0c64c5ee5c.jpg.html)
Текстурируйте пожалуйста кнопку "Отменить распаковку" в скрипте
Ссылка (http://rghost.ru/36466866)

[Gnom_aka_Lexander]

R.i.m.s.k.y., ТОлько через внешнюю длл-ку. у китайцев есть такая - webctrl (http://restools.hanzify.org/article.asp?id=90) - там есть такая проверка. Вручную тоже можно, есть примеры (http://www.z-oleg.com/delphi/net2.htm), но криво дюже они в инно работают...

[ARS_23]

VASYAKRN,
надеюсь никто не станет тебе помогать :read:

[Gnom_aka_Lexander]

Inno.at.ua - все о создании инсталляционных пакетов на Inno Setup »
Вчитайся - все о создании инсталляционных пакетов на Inno Setup. Тоесть, ты уже сам все знаеш, и способен помогать другим. посему, помогай себе сам.
Ах да, у тебя-же объявлено, что этот форум дал свое согласие на дружбу с твоим быдло-сайтом.
А раз так, то может тебе твой друг, уважаемый Vadikan поможет?

[VASYAKRN]

Лександер, Ничего не понял, что ты написал, но обращу внимание

[ARS_23]

Ничего не понял, что ты написал, но обращу внимание »
конечно, куда ж тебе )

[VASYAKRN]

Лександер,
http://s018.radikal.ru/i503/1202/de/52c947e48926t.jpg (http://radikal.ru/F/s018.radikal.ru/i503/1202/de/52c947e48926.jpg.html)
Если ты не заметыл у меня там пишет "Ссылки"

Лександер, Кстати поставь счетчик на свой http://innoultra.ru/ и я хочу сравнть мой "быдло-сайт" с твоим

[Gnom_aka_Lexander]

и я хочу сравнть мой "быдло-сайт" с твоим »
Я не умею читерить и накручитвать счетчики сообщений. потому не буду я с тобой письками меряться. При случае - морду набью - это да. А оффтопик считаю бессмысленным.Если ты не заметыл у меня там пишет "Ссылки"
http://rghost.ru/36468263/thumb.png (http://rghost.ru/36468263.view)
Не заметил

[ARS_23]

мда, начался оффтоп. тему чистить надо))

VASYAKRN,
ох лол, быстренько переименовал "друзья сайта" на "ссылки" и пытается доказать что так и было. ужасный человек...

пол месеца назад » Ты имел в виду полчаса назад? - Скрин на предыдущей странице сделан полчаса назад.

[VASYAKRN]

Лександер, Ха-ха

ARS_23, я переимини гдето пол месеца назад

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

Помогите, пожалуйста, скриптом
Требуется в заданной строчке:string найти определенные слова из одной строки массива, кол-во слов может разное, хоть 0, но не больше 5.
Сам я заткнулся уже на объявлении array of string в 20 строк и 5 столбцов чтобы в цикле перебирать (в справке и примерах этого не нашел).

Пример массива:
['Москва','ул','Пушкарная','',''
'','','','',''
'','Ленинград','','пер','Московский'
...]
Пример строки '000000, Ленинград; улица московская 65-1985'

И соответсвенно как правильно заполнить в инно этот array

Заранее благодарю!

[El Sanchez]

подскажите, пожалуйста, есть ли способ узнать в инно есть ли интернет или нет »
Вручную тоже можно, есть примеры, но криво дюже они в инно работают... »
В инно работают все, кривыми их уже мелкомягкие сделали, но не все. В ПМ мне уже задавали подобный вопрос, вот цитата:

Единственно правильный вариант - послать запрос и получить ответ. Вариантов несколько, попробуйте такой:


type
WSADATA = record
wVersion: WORD;
wHighVersion: WORD;
szDescription: array [0..256] of char;
szSystemStatus: array [0..128] of char;
iMaxSockets: SmallInt;
iMaxUdpDg: SmallInt;
lpVendorInfo: Longint;
end;

function WSAStartup(wVersionRequested: WORD; var lpWSAData: WSADATA): Integer; external 'WSAStartup@ws2_32.dll stdcall';
function gethostbyname(const name: String): DWORD; external 'gethostbyname@ws2_32.dll stdcall';
function WSACleanup(): Integer; external 'WSACleanup@ws2_32.dll stdcall';

function IsInternetActive(sURL: String): Boolean;
var
wsa: WSADATA;
begin
WSAStartup($101, wsa);
Result := gethostbyname(sUrl) <> 0;
WSACleanup();
end;

//результат TRUE - есть инет, False - нет, в качестве аргумента URL железобетонно работающего сайта
if IsInternetActive('www.microsoft.com') then
MsgBox('on', mbInformation, MB_OK)
else
MsgBox('off', mbInformation, MB_OK);


Конечно, есть варианты покороче с использованием других WinAPI-функций InternetGetConnectedState, InternetCheckConnection, IsNetworkAlive, но врут они в определенных ситуациях.


Сам я заткнулся уже на объявлении array of string в 20 строк и 5 столбцов »
И соответсвенно как правильно заполнить в инно этот array »

var
i, j: Byte;
arr: array [0..19] of array [0..4] of String;
...
arr[0][0] := 'test';
...
for i := 0 to 19 do for j := 0 to 4 do
begin
MsgBox(arr[i][j], mbInformation, MB_OK);
end;

[mariolast]

Лександер,
Что то не заметил в последней твоей сборке innocallback.dll
Пришлось самому ее докидывать в папку dll pack\

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

El Sanchez, два вопроса: 1) где взять ws2.dll и 2) можно ли определять таблицу в "человечьем" виде как в примере выше, а не по ячейкам отдельно (вопрос синтаксиса)

[Serega]

Кто-нибудь встречал скрипт для запуска гаджета в Windows 7 или Vista? »
Я думаю, придётся писать свою dll'ку... код для Делфи можете глянуть здесь (http://forum.builder.cz/read.php?18,3324109,3324164,quote=1)
есть ли способ узнать в инно есть ли интернет или нет »
Единственно правильный вариант - послать запрос и получить ответ »
На все 100% согласен.

[El Sanchez]

1) где взять ws2.dll »
ws2_32.dll - стандартная библиотека, другие не использую.
P.S. Почитал статейку (http://www.delphimaster.ru/articles/connect-inet.html), надо чего-нибудь другое придумать.

2) можно ли определять таблицу в "человечьем" виде как в примере выше, а не по ячейкам отдельно (вопрос синтаксиса) »
Может без многомерных массивов можно обойтись?

Я думаю, придётся писать свою dll'ку... код для Делфи можете глянуть здесь »
Юникодный китайский Inno с интерфейсами может работать (см. CodeAutomation2.iss), можно попробовать портировать.

[svensoft]

Подскажите пожайлуста, как сделать так, чтобы при инсталяции не создавался деинсталлятор ?..

И второй вопрос, как в разделе Files указать создание пустой папки (директории без файлов) ?..

Заранее благодарен за ответ.

[Beginner85]

Я думаю, придётся писать свою dll'ку... код для Делфи можете глянуть здесь »
Юникодный китайский Inno с интерфейсами может работать (см. CodeAutomation2.iss), можно попробовать портировать. »

Спасибо, господа. Будем пробовать.