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

[El Sanchez]

Там еще драйвер нужен, поэтому первый вариант не прокатывает. Нужна установка »
Gugle, да, нужен. Устанавливаю драйвер вручную - dll-ка интерфейсы не выдает. Пробуйте так:


[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: ifList.dll; Flags: dontcopy

[Code]
const
SERVICE_QUERY_CONFIG = $1;
SC_MANAGER_ALL_ACCESS = $f003f;

type
mas = record
num: Integer;
name,IPv4,IPv6,description: PAnsiChar;
end;
HANDLE = Cardinal;

function getT(): Integer; external 'getT@files:ifList.dll stdcall delayload';
function getV(d: Integer): mas; external 'getV@files:ifList.dll stdcall delayload';

function OpenSCManager(lpMachineName, lpDatabaseName: String; dwDesiredAccess: Cardinal): HANDLE;
external 'OpenSCManagerA@advapi32.dll stdcall';

function OpenService(hSCManager: HANDLE; lpServiceName: String; dwDesiredAccess: Cardinal): HANDLE;
external 'OpenServiceA@advapi32.dll stdcall';

function CloseServiceHandle(hSCObject: HANDLE): Boolean;
external 'CloseServiceHandle@advapi32.dll stdcall';


function OpenServiceManager(): HANDLE;
begin
Result := OpenSCManager('', 'ServicesActive', SC_MANAGER_ALL_ACCESS);
end;

function IsServiceInstalled(ServiceName: String): Boolean;
var
hSCM: HANDLE;
hService: HANDLE;
begin
hSCM := OpenServiceManager();
if hSCM <> 0 then
begin
hService := OpenService(hSCM, ServiceName, SERVICE_QUERY_CONFIG);
if hService <> 0 then
begin
Result := hService <> 0;
CloseServiceHandle(hService);
end;
CloseServiceHandle(hSCM);
end;
end;

function InitializeSetup(): Boolean;
begin
Result := IsServiceInstalled('npf');
if not Result then MsgBox('Установите WinPcap.', mbError, MB_OK);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
var
m: mas;
i: Byte;
begin
Result := True;
if CurPageID = wpWelcome then
begin
for i := 1 to getT() do
begin
m := getV(i);
MsgBox('num= ' + IntToStr(m.num) + #13#10
+ 'name= ' + String(m.name) + #13#10
+ 'IPv4= ' + String(m.IPv4) + #13#10
+ 'IPv6= ' + String(m.IPv6) + #13#10
+ 'description= ' + string(m.description) + #13#10
, mbInformation, MB_OK);
end;
end;
end;

[Gugle]

Как при определении позиции в строке сказать, что бы искал спец символы?
Например:
int i := Pos(''', str); // Символ верхняя кавычка

Родилось еще 2 вопроса.
Как включить горизонтальный скролинг у CheckListBox?
Как сделать, что бы одна из папок, которая входит в дистр, копировалась в том случае, если локальная переменная = 1 и не копировалась, если эта переменная = 2?

[Damaks]

День добрый. Не получается сделать работающее выпадающее меню для выбора нужного пункта.


var
Change: Integer;

procedure CustomizeChange;
begin
if not ..... then
begin
..........;
Change := CustomizePage_ChangeCombo.ItemIndex;
..........;
end;
end;

function GetChange(Param : String) : String;
var
i, k: Integer;
begin
k := 2;
Result := '';
case Change of
begin
1 : Result := '.....';
..........;
for i := 1 to ..... do
begin
..........;
if ..... then
begin
if ..... then
k : Result := .....;
k := k+1;
end;
end;
end;
end;

procedure CreateTheWizardPages;
var
ChangeCombo: TNewComboBox;
i: Integer;
begin
CustomizePage := CreateCustomPage(wpSelectDir, 'Страница', 'Страница');
ChangeCombo := TNewComboBox.Create(CustomizePage);
ChangeCombo.Top := ScaleY(3);
ChangeCombo.Left := ScaleX(50);
ChangeCombo.Width := ScaleX(200);
ChangeCombo.Style := csDropDownList;
ChangeCombo.Parent := CustomizePage.Surface;
ChangeCombo.Items.Add('.....');
begin
..........;
..........;
for i := 1 to ..... do
begin
..........;
if ..... then
begin
if ..... then
ChangeCombo.Items.Add(.....)
end;
end;
end;
ChangeCombo.ItemIndex := 0;
CustomizePage_ChangeCombo := ChangeCombo;
end;

Постарался убрать всё лишнее, чтобы осталась только нужная структура, мог сделать опечатку. Общий смысл кода таков. В выпадающем меню должно быть определённое количество пунктов, на каждом компьютере разное. Значение и количество генерируется с помощью цикла "for i := 1 to ..... do". Значение строковое. С выбранным значением потом проводятся другие манипуляции.

На данный момент у меня проблема в функции GetChange, а конкретно синтаксическая ошибка в строке 22 "1 : Result := '.....';". Общая конструкция должна быть правильной. Само меню создаётся правильно.

[El Sanchez]

Символ верхняя кавычка »
Gugle, удвоить кавычку, т.е. первый аргумент Pos будет 4 кавычки.
Как включить горизонтальный скролинг у CheckListBox? »
Gugle, хоть у ListBox-ов есть стиль горизонтального скролла врубить пока не удалось.
Как сделать, что бы одна из папок, которая входит в дистр, копировалась в том случае, если локальная переменная = 1 и не копировалась, если эта переменная = 2? »
Gugle, нужен пример.
проблема в функции GetChange »
Damaks, конструкция case не начинается с begin и должна выглядеть, например, так:

case Param of
0: Result := '0';
1: Result := '1';
2: begin //несколько команд заключаем в begin-end
команда 1
команда 2 и т.д.
Result := '2';
end;
3: Result := '3';
else
Result := 'nothing'; //если Param не равен 0,1,2,3.
end;

[Dark_Delphin]

Всем привет)

Подскажите пожалуйста как исправить вот это:

Первая страница нормально..

http://i29.fastpic.ru/big/2011/1014/8b/e779b4f0d306014876ab9939faf5298b.png


А вторая вот позначил знаками вопросами.

http://i29.fastpic.ru/big/2011/1014/da/f8719c61640a2bde72c3a0d86932d0da.png

Нужно что-бы картинка закрыла чорный фон, а не фон картинку.


Заранее спасибо.

[insombia]

ntrx нужно скрипт смотреть здесь экстрасенсов нету

Вас приветствует R.G.Trend игры F1 2011
Как то не очень красиво,проще написать Вас приветствует R.G.Trend

[Dark_Delphin]

Кто может помочь сделать картинку на всех страницах?

Перемучался и не получается..

Заранее спасибо.

[Tixo]

ntrx,
скинь скрипт посмотрю

[valyok666]

ntrx, скорее всего неправильно указан размер в коде Растяжки изображения

[valyok666]

ntrx, ты имеешь ввиду на всех страницах разная или одна?

[Dark_Delphin]

valyok666, мне всё ровно как, но что-бы на всех страницах, поможеш?

[Rikill]

Надо организовать секту гадальщиков. Кручу верчууууууу! :wizard:
R.i.m.s.k.y., не мог бы одолжить хрустальный шар? Мой разбился. :cry:

[VASYAKRN]

Как создать тень для текста http://s017.radikal.ru/i400/1110/72/e3c2fce84401.jpg

[VASYAKRN]

ntrx, Изображение через ботву наносил
Если да то дай ету часть
mgLoad(WizardForm.Handle,ExpandConstant('{tmp}\I2.jpg'),ScaleX(49), ScaleY(20),ScaleX(530), ScaleY(313),false,True);

[insombia]

Как создать тень для текста »
В фотошопе

[VASYAKRN]

insombia, А через лейби никак

[VASYAKRN]

как убрать етот остаток текста из кнопки папки http://s46.radikal.ru/i111/1110/30/429d18c1e9c8.jpg

[insombia]

VASYAKRN научись правильно писать! там я заметил что при наведении курсора на ту область оно все стает нормально

[Dark_Delphin]

Всем добрый день!

У кого есть пример скрипта добавления страници компоннетов, комноненты запакованы у АРК архивы.

Заранее спасибо.

[insombia]

ntrx скачай любой isdone там есть пример