inno setup win7任务栏图标

[Icons]
Name: "{userdesktop}\D8Test"; Filename: "{win}\notepad.exe"

[code]
var
  ErrorCode: Integer;
  
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep=ssDone then
    ShellExec('taskbarpin', ExpandConstant('{userdesktop}\D8Test.lnk'), '','', SW_SHOWNORMAL, ewNoWait,ErrorCode);
end;

procedure DeinitializeUninstall();
begin
ShellExec('taskbarunpin', ExpandConstant('{userdesktop}\D8Test.lnk'), '', '', SW_SHOWNORMAL, ewNoWait,ErrorCode);
end;