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

Kashtan007 · Отправлено: **18:09, 22-05-2014** | #**731**

Shkutu, добавил это в свой скрипт. Чекбоксы появились, но функции не работают.

Антон_Мураткин@vk · Отправлено: **18:10, 22-05-2014** | #**732**

Dodakaedr, ДА пробовал, ошибка уже получается на
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash piratbit.png',700,1000,700,0,255,False,$FFFFFF,10);

Shkutu · Отправлено: **18:12, 22-05-2014** | #**733**

Приветствую всех!
Ситуация следующая: в коде используется функция из dll. Выглядит примерно так

Код:

[Files]
...
Source: "mslib.dll"; Flags: dontcopy
Source: "dblib.dll"; Flags: dontcopy
Source: "libiconv.dll"; Flags: dontcopy
;2 последние длл требуются для работы функции из 1й длл, я их просто кладу рядом с 1й 

[Сode]

function GetCRMUserGuid(dbname, host, user, pass:PansiChar):PansiChar; 
 external 'GetCRMUserGuid@files:mslib.dll stdcall delayload setuponly';

procedure InitializeWizard;
var s: string;
begin
 ExtractTemporaryFile('dblib.dll');
 ExtractTemporaryFile('libiconv.dll');
 s:=GetCRMUserGuid('DB', '127.0.0.1:1433', 'sa', '111');
...
end;

Когда доходит до строчки, где происходит вызов функции, падает с ошибкой "Could not call proc". Похоже на ошибку инициализации, но если смотреть в дебагере, то на этот момент все длл уже извлечены.
Не подскажете, в чем может быть проблема?

Антон_Мураткин@vk,

не очень понимаю, в чем проблема скопировать то, что в функции в 1м тексте между begin и end и вставить в procedure InitializeWizard из второго текста?

Код:

procedure InitializeWizard;

begin
  ExtractTemporaryFile('BASS.dll');
  ExtractTemporaryFile('CallbackCtrl.dll');
  ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('MusicButton.png');
  ExtractTemporaryFile('Music.mp3');

  BASS_Init('{tmp}\Music.mp3') //Çàïóñêàåì ìóçûêó
  //Ìîæíî äîáàâèòü â èíñòàëë íåñêîëüêî ïåñåí
  //BASS_Init(ExpandConstant('{tmp}\*'))        //Ïîèñê ïî ìàñêå
  BASS_CreateOnOffButton(WizardForm, '{tmp}\MusicButton.png', 20, 320, 36, 36, 4) //Ñîçäàåì êíîïêó  âêë/âûêë
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash piratbit.png',700,1000,700,0,255,False,$FFFFFF,10);

ExtractTemporaryFile('Splash WhiteSmoke.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash WhiteSmoke.png',700,1000,700,0,255,False,$FFFFFF,10);

ExtractTemporaryFile('Splash Game.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash Game.png',700,1000,700,0,255,False,$FFFFFF,10);
WizardForm.Position:=poScreenCenter;
IsMyFont;
wzform;
btn;
welcom;
SelectDir;
Components;
ProgramGroup;
ProgramTask;
CreateControls;
Finish;
end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall delayload setuponly';
procedure UnloadSkin(); external 'UnloadSkin@files:isskin.dll stdcall delayload setuponly';

procedure LoadSkinU(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';
procedure UnloadSkinU(); external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload uninstallonly';


function InitializeSetup:boolean;
var
  ResCode: integer;
begin
  ExtractTemporaryFile('Skin.cjstyles');
  LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
  Result:= true

  if not FileExists(ExpandConstant('{tmp}\b2p.dll')) then ExtractTemporaryFile('b2p.dll');
  if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
  ExtractTemporaryFile('IsMyFont.dll');
  Result:=True;
end;

Не уверена, что вставлять надо именно в начало, ибо не знаю, что за функции у вас используются и, соответственно, в каком порядке их лучше выполнять.

Kashtan007,

Kashtan007 · Отправлено: **18:25, 22-05-2014** | #**734**

Shkutu, спасибо.
Я указывал, что мне нужно не только чекбоксы а еще чтобы они выполняли функции. Удаления и бекапа.

Есть ли полный код на бекап папки и удаление папки. Заранее спасибо!

Антон_Мураткин@vk · Отправлено: **18:32, 22-05-2014** | #**735**

Shkutu, Если было бы так просто я бы не написал чтобы помогли. Пробовал я так ошибка идёт на end;

Shkutu · Отправлено: **18:52, 22-05-2014** | #**736**

Kashtan007, у меня к сожаление полного кода на подобные вещи нету. Попробуйте поискать по форуму, потому что, насколько я помню, подобный вопрос уже обсуждался.
http://forum.oszone.net/post-2307050-2242.html - здесь что-то похожее, но можно еще поискать.
Антон_Мураткин@vk,

Kashtan007 · Отправлено: **18:55, 22-05-2014** | #**737**

Shkutu, ок спасибо поищу.

Irenis · Отправлено: **19:19, 22-05-2014** | #**738**

Всем привет)) Вроде бы немного научилась создавать установщики. Но опять возникли трудности. Объясню на примере. Есть игровая компания Game Net. При установке их игр, сначала устанавливается игровой клиент GameNet, а через него уже грузится игра. Подскажите пожалуйста, как создавать такие установщики? Пробовала отдельно делать установщик GameNet и установщик нужной мне игры. Но они естественно друг друга не видят. То есть, если зайти в клиент GameNet, то он просто начинает загружать игру снова. Клиент же самой игры так же работает не корректно.

Другой пример. Игры от компании Game XP. Тут в принципе так же, сначала устанавливается клиент Game XP, а из него уже–игра. Сделала установщик самой игры. Игра запускается только если запускать ее из папки с игрой. Если же запускать с рабочего стола, то постоянно не хватает какого то файла ***.dll и игра не запускается. Если поместить этот ***.dll на рабочий стол, то требует какого то другого ***.dll. В общем как то так

И как с этим бороться не знаю, и в инете что то ничего не могу найти по этому поводу.

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

Цитата Irenis:

То есть, если зайти в клиент GameNet, то он просто начинает загружать игру снова. Клиент же самой игры так же работает не корректно. »

надо наверняка отследить какие изменения вносит в реестр веб установщик- (я делаю так, просто в реестре ищу по поиску искомое значение -например название издателя или название самой игры)

Цитата Irenis:

Игра запускается только если запускать ее из папки с игрой. Если же запускать с рабочего стола, то постоянно не хватает какого то файла ***.dll и игра не запускается. Если поместить этот ***.dll на рабочий стол, то требует какого то другого ***.dll. В общем как то так И как с этим бороться не знаю, и в инете что то ничего не могу найти по этому поводу. »

было у меня такое года 3 -4 назад, со сталкером, нужно было "правильно" указать рабочую папку для файла запуска, в свойствах ярлыка (проще говоря изменить ее)
параметр = WorkingDir: {app} указывает на то, что рабочая папка для создаваемого ярлыка будет как и по умолчанию, то есть это папка приложения, но во многих играх особенно на движке unreal, папка где хранится файл запуска находится в подпапке, обычно Bin, Binaries и тд

[Icons]

Name: {userdesktop}\Название игры; Filename: {app}\файл запуска игры; WorkingDir: место где расположен файл запуска игры

Irenis · Отправлено: **21:24, 22-05-2014** | #**740**

audiofeel, спасибо

Только вроде бы и понятно, но не совсем. Я честно говоря, обычно создаю установщик через мастера, а в получившемся скрипте уже дописываю то что мне нужно, точнее копирую и вставляю необходимые коды. У меня сейчас вот так

[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: quicklaunchicon

То есть ничего не убирать, а просто ниже дописать эту строчку?
Игра World of Dragons. Значит просто написать World of Dragons?
Не совсем поняла, что писать там, где файл запуска игры.
Место где расположен файл запуска игры: "C:\GameXP\AccessPoint\installed\World of Dragons\WOD.exe". То есть так и прописать путь?