Ok, i'm trying to force my inno setup installer to add a shortcut of my game to Vista
Games Explorer.
Theoretically this should do the trick:
[Files]
Source: "GameuxInstallHelper.dll"; DestDir: "{app}"; Flags: ignoreversion overwritereadonly;
[Registry]
Root: HKLM; Subkey: SOFTWARE\dir\dir; Flags: uninsdeletekeyifempty
Root: HKLM; Subkey: SOFTWARE\dir\dir; ValueName: Path; ValueType: String; ValueData: {app}; Flags: uninsdeletekey
Root: HKLM; Subkey: SOFTWARE\dir\dir; ValueName: AppFile; ValueType: String; ValueData:{app}\executable.exe ; Flags: uninsdeletekey
[CustomMessages]
en.Local=en
en.removemsg=Do you wish to remove game saves and settings?
en.taskentry=Play
[Code]
const
PlayTask = 0;
AllUsers = 2;
Current = 3;
type
TGUID = record
Data1: Cardinal;
Data2,
Data3: Word;
Data4: array [0..7] of char;
end;
var
GUID: TGUID;
function GetDC(HWND: DWord): DWord;
external '
[email protected] stdcall';
function GetDeviceCaps(DC: DWord; Index: Integer): Integer;
external '
[email protected] stdcall';
function ReleaseDC(HWND: DWord;DC: DWord): Integer;
external '
[email protected] stdcall';
function ShowWindow(hWnd: DWord; nCmdShow: Integer): boolean;
external '
[email protected] stdcall';
function SetWindowLong(hWnd: DWord; nIndex: Integer; dwNewLong: Longint):Longint;
external '
[email protected] stdcall';
function GenerateGUID(var GUID: TGUID): Cardinal;
external 'GenerateGUID@files:GameuxInstallHelper.dll stdcall setuponly';
function AddToGameExplorer(Binary: String; Path: String; InstallType: Integer; var GUID: TGUID): Cardinal;
external 'AddToGameExplorerW@files:GameuxInstallHelper.dll stdcall setuponly';
function CreateTask(InstallType: Integer; var GUID: TGUID; TaskType: Integer; TaskNumber: Integer; TaskName: String; Binary: String; Parameters: String): Cardinal;
external 'CreateTaskW@files:GameuxInstallHelper.dll stdcall setuponly';
function RetrieveGUIDForApplication(Binary: String; var GUID: TGUID): Cardinal;
external 'RetrieveGUIDForApplicationW@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveFromGameExplorer(var GUID: TGUID): Cardinal;
external 'RemoveFromGameExplorer@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function RemoveTasks(var GUID: TGUID): Cardinal;
external 'RemoveTasks@{app}\GameuxInstallHelper.dll stdcall uninstallonly';
function InitializeSetup(): Boolean;
var
appath: string;
ResultCode: Integer;
begin
if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE\dir\dir') then
begin
RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE\dir\dir', 'Path', appath)
Exec((appath +'\unins000.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode)
end else
begin
Result := TRUE
end;
end;
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
if GetWindowsVersion shr 24 > 5 then
begin
RetrieveGUIDForApplication(ExpandConstant('{app}\AWL_Release.dll'), GUID);
RemoveFromGameExplorer(GUID);
RemoveTasks(GUID);
UnloadDll(ExpandConstant('{app}\GameuxInstallHelper.dll'));
end;
end;
if CurUninstallStep = usPostUninstall then
begin
if MsgBox(ExpandConstant('{cm:removemsg}'), mbConfirmation, MB_YESNO)=IDYES then
begin
DelTree(ExpandConstant('{app}'), True, True, True);
end;
end;
end;
procedure CurStepChanged(CurStep: TSetupStep);
begin
if GetWindowsVersion shr 24 > 5 then
begin
if CurStep = ssInstall then
GenerateGUID(GUID);
if CurStep = ssPostInstall then
begin
AddToGameExplorer(ExpandConstant('{app}\AWL_Release.dll'), ExpandConstant('{app}'), Current, GUID);
CreateTask(3, GUID, PlayTask, 0, ExpandConstant('{cm:taskentry}'), ExpandConstant('{app}\executable.exe'), '');
CreateTask(3, GUID, 1, 0, 'Game Website', 'http://www.gamewebsite.com/', '');
end;
end;
end;
The installer works just fine, but it doesn't place a shortcut of my game to
Games explorer. Since i believe that the problem is on the binary file i guess for that part i should ask for some help.
So, can anyone please give me a hand here?
