Genri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
rupo
Цитата:| ...чтоб в ярлыке прописывалось Paбoчaя пaпкa: "бла\бла" ? |
-- WorkingDir. Пример из хелпа:
[Icons]
Name: "{group}\My Program"; Filename: "{app}\MYPROG.EXE"; WorkingDir: "{app}"
Yekver
Цитата:| Не записывается определяемый при установки IP в ini-файл. |
-- а я все еще не могу понять:- что, куда и в какой момент писать? Сначала ты говорил "...этот адрес записать перед {app}\Settings.ini"; теперь - "...чтобы он дописался в строчку String: "\\{code:GetServerIP}\{app}\Base\Turuchet.gdb""
В моем примере были строки:
[INI]
Filename: \\{code:GetServerIP}\{app}\Settings.ini; Section: "Default"; Key: "dbPath"; String: "{app}\Base\Turuchet.gdb"
...которые дают указание инсталлятору в файле, который указан параметром Filename, в секции, которая указана параметром Section, для ключа, который указан параметром Key, прописать значение, которое указано параметром String.
В свою очередь, любой из этих параметров может содержать выражение {code:GetServerIP} , вместо которого будет подставлено значение, возвращаемое указанной функцией (в данном примере функцией GetServerIP)
Так что пропиши это выражение в то место, где хочешь видеть адрес, а все остальное инсталлятор сделает сам.
Цитата:| Непорядок с порядком отображения страниц |
-- не задан порядок, поэтому непорядок  В функциях CreateInputOptionPage, CreateInputQueryPage и т.п. порядок задает первый параметр (который указывает, после какой страницы создать указанную. А у тебя все страницы создаются после wpWelcome
Наверно подразумевалось примерно так:
.........................
UsagePage := CreateInputOptionPage(wpWelcome, ...
.........................
ServerPage := CreateInputQueryPage(UsagePage.ID, ...
.........................
LocalPage := CreateInputQueryPage(ServerPage.ID, ...
.........................
Kindly
Цитата:| Поддерживает ли Inno изменение внешнего курсора |
-- похоже да. раньше таким вопросом не задавался, но попробовал - работает.
Код:
Const
GCL_HCURSOR = (-12);
OCR_NORMAL = 32512;
var
OldCursor, NewCursor: Longint;
function LoadCursorFromFile(FileName: String): Longint;
external 'LoadCursorFromFileA@user32 stdcall';
function SetClassLong(hWnd: HWND; Index, NewLong: Longint): Longint;
external 'SetClassLongA@user32 stdcall';
function SetCursor(Cursor: Longint): Longint;
external 'SetCursor@user32 stdcall';
function SetSystemCursor(Cursor, CurType: Longint): Longint;
external 'SetSystemCursor@user32 stdcall';
function GetCursor(): Longint;
external 'GetCursor@user32 stdcall';
procedure InitializeWizard;
begin
OldCursor:= GetCursor;
NewCursor:= LoadCursorFromFile('C:\TEMP\BeOS2.cur');
SetSystemCursor(NewCursor, OCR_NORMAL);
end;
procedure DeinitializeSetup();
begin
SetSystemCursor(OldCursor, OCR_NORMAL);
end; |
Либо изменить курсор только для отдельных типов компонент:
Код:
procedure InitializeWizard;
begin
NewCursor:= LoadCursorFromFile('C:\TEMP\BeOS2.cur');
OldCursor:= SetClassLong(WizardForm.NextButton.Handle, GCL_HCURSOR, NewCursor);
end; |
Но "правильность" кода гарантировать не могу - не программист
Добавлено:
NightW0lf
Цитата:| возможность проверки файловой системы [FAT32, NTFS] выбранного локального диска |
-- можешь попробовать использовать GetVolumeInformation В старой ветке я выкладывал исходники длл-ки с ее использованием. |
