[adelina.dragonborn@vk]

Всем привет. Хочу добавить ярлык в обозреватель игр в Windows 7. Это уже, конечно, обсуждалось, однако, как бы я ни старался, не могу создать ярлык.

Делал по инструкции

Код:

#define GDFBinary "{app}\GDF.dll"  
 
[Tasks] 
Name: Gameux; Description: "Добавить ссылки в Game Explorer"; GroupDescription: "Game Explorer:"; MinVersion: ,6.0.6000;  
 
[Files] 
Source: include\GDF.dll; DestDir: {app}; 
Source: include\GameuxInstallHelper.dll; DestDir: {app}; Flags: overwritereadonly 
 
[_Code] 
type 
TGUID = record D1: Cardinal; D2: Word; D3: Word; D4: Array [0..8] of Byte; end; 
  
function AddToGameExplorer(BinaryPatch: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal; external 'AddToGameExplorerA@files:GameuxInstallHelper.dll stdcall setuponly';  
function RetrieveGUIDForApplication(BinaryPatch: String; var GUID: TGUID): Cardinal; external 'RetrieveGUIDForApplicationA@{app}\GameuxInstallHelper.dll stdcall uninstallonly';  
function RemoveFromGameExplorer(var GUID: TGUID): Cardinal; external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly';  
 
var GUID: TGUID;  
procedure CurStepChanged(CurStep: TSetupStep);  
var GDFBinary: String;  
  begin  
    if (CurStep = ssPostInstall) and IsTaskSelected('Gameux') then 
      begin  
        GDFBinary:=ExpandConstant('{#GDFBinary}');  
        AddToGameExplorer(GDFBinary, ExpandConstant('{app}'), 3, GUID);  
      end;  
  end; 
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);  
var GDFBinary: String; GUID: TGUID;  
  begin  
    if (CurUninstallStep=usUninstall) then  
      begin  
        GDFBinary:=ExpandConstant('{#GDFBinary}');  
        RetrieveGUIDForApplication(GDFBinary, GUID);  
        RemoveFromGameExplorer(GUID);  
        UnloadDll(ExpandConstant('{app}\GameuxInstallHelper.dll'));  
      end;  
  end;

Естественно, подправив. Однако, на этапе компилляции выскакивает ошибка Duplicate identifier 'TGUID'

Порывшись, узнал, что это из-за версии компиллятора. Чтобы не менять версию, закомменторовал строчку type TGUID = record D1: Cardinal; D2: Word; D3: Word; D4: Array [0..8] of Byte; end;

Может ли это являться причиной моих неудач?

Конечно, есть также вероятность, что я неправильно сконструировал GDF.dll

Инструкции нормальной таки не нашел. Если такая имеется, то подскажите, где ее брать...

[adelina.dragonborn@vk]

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

P.S. последняя поправка проблему не решает. Ошибка на строке TGUID = record
- Duplicate identifier 'TGUID'

[adelina.dragonborn@vk]

saurn, ох, ковыряю уже давно...Явно что-то там не так)

[adelina.dragonborn@vk]

saurn, спасибо, проверю!

saurn, не создается, зараза...

[saurn]

adelina.dragonborn@vk, а так:

читать дальше »

Код:

[Code]
#define A = (Defined UNICODE) ? "W" : "A"
#define GDFBinary "{app}\GDF.dll"

type
    TGUID_ID = record
      DATA1: Cardinal;
      DATA2: Word;
      DATA3: Word;
      DATA4: Array [0..8] of Byte;
    end;


function AddToGameExplorer(BinaryPatch: String; Path: String; InstallType: Integer; var GUID: TGUID_ID): Cardinal; external 'AddToGameExplorer{#A}@files:GameuxInstallHelper.dll stdcall setuponly';
function RetrieveGUIDForApplication(BinaryPatch: String; var GUID: TGUID_ID): Cardinal; external 'RetrieveGUIDForApplication{#A}@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveFromGameExplorer(var GUID: TGUID_ID): Cardinal; external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly';


var
    GUID: TGUID_ID;

    
procedure CurStepChanged(CurStep: TSetupStep);
var
    GDFBinary: String;
begin
    case CurStep of
        ssPostInstall:
        begin
            if isTaskSelected('Gameux') then
            GDFBinary:=ExpandConstant('{#GDFBinary}');
            AddToGameExplorer(GDFBinary, ExpandConstant('{app}'), 3, GUID);
        end;
    end;
end;


procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
    GDFBinary: String;
    GUID: TGUID_ID;
begin
    case CurUninstallStep of
        usUninstall:
        begin
            GDFBinary:=ExpandConstant('{#GDFBinary}');
            RetrieveGUIDForApplication(GDFBinary, GUID);
            RemoveFromGameExplorer(GUID);
            UnloadDll(ExpandConstant('{app}\GameuxInstallHelper.dll'));
        end;
    end;
end;

[mat_y@vk]

добавим следующее (красным выделил имплиментацию новой страницы) »

Спасибо огромное, хотя это я и так понял... этот принцип... но загвоздка в том, что у нас появляется 2 "if PrevCurPageID=wpSelectDir" - первое IF и третье... и получается билиберда... я решил это следующим способом... я пришил эту функцию к Кнопке "Далее":

Код:

procedure OKBtnClick(h:HWND);
begin
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
begin HideWelcomePage; HideSelectDirPage;  ShowSelectComponentsPage;
     end;
  end;

необходимо удалить директиву DisableReadyPage=yes из раздела [Setup] »

А причем тут ReadyPage? Мне же нужен wpSelectComponents = 7;
Объясните пожалуйста.

Это все (вышеописанное) я уже сделал... а как добавить то само поле с выбором компонентов... ему же надо задать координаты на форме и его размер... как его описать в скрипте?

[nik1967]

mat_y@vk,

Как вариант

Код:

[Setup]
AppName=Приложение
AppVerName=Приложение
DefaultDirName={pf}\123
OutputDir=.

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

[Types]
Name: full; Description: Full installation; Flags: iscustom

[Components]
Name: Game; Description: Game_Component;
Name: Game\Lokal; Description: Game_Local_Component; Flags: exclusive; Types: full;
Name: Game\Full; Description: Game_Full_Component; Flags: exclusive; 

[_Code]
var
  NewForm: TWizardPage;

procedure InitializeWizard();                       
begin
  NewForm:= CreateCustomPage(wpSelectComponents, 'Выбор компонентов', 'Что нибудь ещё');
  with WizardForm.ComponentsList do begin
    Parent:= NewForm.Surface;
  end;
end;

А, не. Ты же делаешь на ботве. Советую скачать Need for Speed™ Undercover.iss v 2.4c [Final] от YURSHAT модернизированный мной, и посмотреть, как там реализованы компоненты.

Лишние символы

Код:

procedure OKBtnClick(h:HWND);
begin
  WizardForm.NextButton.OnClick(WizardForm.NextButton);
begin HideWelcomePage; HideSelectDirPage;  ShowSelectComponentsPage;
     end;
  end;

[adelina.dragonborn@vk]

saurn, гениально! It Works! Сам бы никогда не додумался)

Теперь другая проблема...Resource Hacker не слушается. Может есть другой аналог-заменитель? Restorator боюсь ставить - один раз он уже сыграл со мной злую шутку.

[saurn]

adelina.dragonborn@vk, оффтоп, ну да ладно...

читать дальше »

О рестораторе плохого не скажу, пользуюсь только им уже невесть сколько лет. Есть еще PE Explorer. Из бесплатных, пожалуй, только Resource Hacker, - а в чем проблема, он тоже справится с этой задачей.

[adelina.dragonborn@vk]

saurn, проблемы:
1) отсутствует оценка игры (хотя в xml-е присутствуют оценки - <Rating ratingSystemID="{768BD93D-63BE-46A9-8994-0B53C4B5248F}" ratingID="{78D8CC82-372F-44e4-B70C-8944DB7BCC24}">
2) Издатель и разработчик присутствуют, однако должна быть ссылка на них - ее нету (хотя ссылка прописана в xml-е - <Publisher URI="http://www.activision.com">Activision, Inc.</Publisher>
3) В GDF-Maker'e есть опция - Thumbnail (логотип игры). Как его запихать в dll? Action -> Add new resource -> выбираю изображение -> а дальше куда его? (Type, name в частности) - Решено.
4) Задана папка сейвов (Saved Game Folder), где она должна отображаться в проводнике игр?

P.S. Если есть xml - был бы благодарен, если поделитесь