Advertisement
Guest User

Untitled

a guest
Feb 3rd, 2015
534
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.53 KB | None | 0 0
  1. [Tasks]
  2. Name: pintotaskbar; Description: "&Pin to taskbar"; GroupDescription: "Other tasks:"; Flags: unchecked
  3.  
  4. [Code]
  5. procedure CurStepChanged(CurStep: TSetupStep);
  6. begin
  7.   // if the installation just finished and the user selected our 'pintotaskbar'
  8.   // task, then try to pin the app. to taskbar (there's no error handling shown
  9.   // here because you can't do anything when this attempt fails)
  10.   if (CurStep = ssPostInstall) and IsTaskSelected('pintotaskbar') then
  11.     PinAppTo(ExpandConstant('{app}\MyApp.exe'), pdTaskbar);
  12. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement