insombia, извиняй iswin7 и Isdone не знаю.
==================================================================================================== ==================
habib2302,
Цитата habib2302:
|
люди.подскажите как создать несколько разделов на последней завершающей странице инсталлятора. »
|
Нужно создавать чекбоксы и проверять при нажатии на кнопку "Завершить" их статус, писать булев переменные, тк скорей всего они, чекбоксы, разрушатся и выполнять действия в зависимости от True значения перемнной. Тексты (TNewStaticText или TLabel), как и чекбоксы можешь создать в дизайнере расширенной версии.
Делай, будут непонятки - спрашивай!
и убирай пожалуйста длинные коды (как здесь
http://forum.oszone.net/post-2098750-1760.html) под спойлер
==================================================================================================== ==================
Tco 03,
Цитата Tco 03:
|
Возможно ли как-то загрузить этот самый INI-файл с хоста (из интернета) »
|
да
Цитата Tco 03:
|
сразу в оперативную память »
|
не знаю как
, а процедуру
El Sanchez-а боюсь модифицировать, тк скорее всего накосячу!
Поэтому предлагаю такой вариант
используя WinApi функцию URLDownloadToFile(
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx )
вот пример простого скачивания файла (любого) куда хочешь:
читать дальше »
Код:
function DownloadFile(const URL, FileName: String): Boolean; /// простое скачивание файла
begin
try
Result := UrlDownloadToFile(0, URL, FileName, 0, 0) = 0;
except
Result := False;
end;
end;
но мы будем качать в темп, потом загружать из текстового файла текст в переменную типа String и удалять файл вот таким вот чудо-макаром:
читать дальше »
Код:
function TextFileFromInternetToString(const URL: String): String;
begin
try /// если файл скачался (функция UrlDownloadToFile возвращает 0) в папку темп, в файл uTextFile, то грузим его в строку, в данном случае сразу в зарезервированную переменную Result
if UrlDownloadToFile(0, URL, ExpandConstant('{tmp}\uTextFile'), 0, 0) = 0 then LoadStringFromFile(ExpandConstant('{tmp}\uTextFile'), Result);
finally
DeleteFile(ExpandConstant('{tmp}\uTextFile')); /// в конечном итоге удаляем файл
end;
end;
полный пример:
читать дальше »
Код:
[Setup]
AppName=Download-File-Demo
AppVerName=777
CreateAppDir=no
InfoBeforeFile=compiler:license.txt
[ code]
#ifdef UNICODE
#define A "W"
#else
#define A "A"
#endif
function URLDownloadToFile(Caller: DWORD; URL, FileName: String; Reserved, StatusCB: DWORD): Longint; external 'URLDownloadToFile{#A}@UrlMon.dll stdcall';
function DownloadFile(const URL, FileName: String): Boolean; /// простое скачивание файла
begin
try
Result := UrlDownloadToFile(0, URL, FileName, 0, 0) = 0;
except
Result := False;
end;
end;
function TextFileFromInternetToString(const URL: String): String;
begin
try /// если файл скачался (функция UrlDownloadToFile возвращает 0) в папку темп, в файл uTextFile, то грузим его в строку, в данном случае сразу в зарезервированную переменную Result
if UrlDownloadToFile(0, URL, ExpandConstant('{tmp}\uTextFile'), 0, 0) = 0 then LoadStringFromFile(ExpandConstant('{tmp}\uTextFile'), Result);
finally
DeleteFile(ExpandConstant('{tmp}\uTextFile')); /// в конечном итоге удаляем файл
end;
end;
procedure InitializeWizard();
begin
DownloadFile('http://tululu.org/txt.php?id=38061', 'C:\Свихнувшееся время (Филип Дик).txt');
WizardForm.InfoBeforeMemo.Text := TextFileFromInternetToString('http://tululu.org/txt.php?id=38061');
end;
для чтения ини используй сразу вложенность функций Ini := ConvertStringToIniFile(TextFileFromInternetToString('http://tululu.org/txt.php?id=38061'));
PS: в данном случае качается не ини. Это просто пример
Подскажите, пожалйтста, если такое возможно 
