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;

评论

1 楼 showrock 2017-09-29  

找遍全网就你这个能用，多谢了，大佬！