[Inno Setup]: How to Pin Program to TaskBar in Win 7... ;-)

[alfreire]

After much search in internet I found a way to Pin Program to TaskBar in Win 7 with Inno Setup or other installers... There is a program called TaskBar Pinner here http://winaero.com/comment.php?comment.news.108 can be used with this command as example:

 

taskbarpinner.exe "c:\windows\explorer.exe"

 

I've simplified the files, this is the link

https://mega.co.nz/#!p1RXGIIZ!O_jo4xPZu_wTp2bNsVuvbXb3jEUJwUO2PTC7CMOKqOk

Use in Inno Setup:

[Files]Source: "{tmp}\TaskPin\*.dll"; DestDir: "{tmp}\TaskPin"; Check: "IsWin7"Source: "{tmp}\TaskPin\TaskPin_x86.exe"; DestDir: "{tmp}\TaskPin"; Check: "IsWin786"Source: "{tmp}\TaskPin\TaskPin_x64.exe"; DestDir: "{tmp}\TaskPin"; Check: "IsWin764"[Run]Filename: "{tmp}\TaskPin\TaskPin_x86.exe"; Parameters: """{pf}\Program.exe"""; Description: "Pin Program to TaskBar"; Check: "IsWin786"; Flags: postinstall Filename: "{tmp}\TaskPin\TaskPin_x64.exe"; Parameters: """{pf}\Program.exe"""; Description: "Pin Program to TaskBar"; Check: "IsWin764"; Flags: postinstall [code]function IsWin7: Boolean;var  ver: TWindowsVersion;begin  GetWindowsVersionEx(ver);  Result := UsingWinNT and (ver.Major = 6) and (ver.Minor <= 1);end;function IsWin786: Boolean;var  ver: TWindowsVersion;begin  GetWindowsVersionEx(ver);  Result := UsingWinNT and (ver.Major = 6) and (ver.Minor <= 1) and Not IsWin64;end;function IsWin764: Boolean;var  ver: TWindowsVersion;begin  GetWindowsVersionEx(ver);  Result := UsingWinNT and (ver.Major = 6) and (ver.Minor <= 1) and IsWin64;end;

 

I hope you find it helpful...

Regards... ;-)

 

p.d.: If a moderator thinks this is the wrong section, you can move it to where you think... ;-)

Edited February 26, 2014 by alfreire

[ricktendo]

This is great, thanks

[alfreire]

Improved code...

Regards... ;-)