Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для ZVSRus

Старожил


Сообщения: 292
Благодарности: 90

Профиль | Отправить PM | Цитировать


Цитата vadjliss:
как закрепить ярлык на панели задач
Пример от saurn
Скрытый текст
Код: Выделить весь код
 #define MyAppName "MyProg"
 #define MyAppVersion "1.5"
 #define MyAppExeName "MyProg.exe"

[Setup]
 AppId={{C3296BC8-00E4-4112-A1FB-4E710F84662C}
 AppName={#MyAppName}
 AppVersion={#MyAppVersion}
 ;AppVerName={#MyAppName} {#MyAppVersion}
 DefaultDirName={pf}\{#MyAppName}
 DefaultGroupName={#MyAppName}
 DisableProgramGroupPage=yes
 OutputBaseFilename=setup
 Compression=lzma
 SolidCompression=yes

[Languages]
 Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
 Source: "C:\Program Files (x86)\Inno Setup v.5.5.1\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion

[ Code]
const                                                                                                         
    LOAD_LIBRARY_AS_DATAFILE = $2;                                                                           
                                                                                                              
#define A = (Defined UNICODE) ? "W" : "A"
                                                                                                             
function LoadLibraryEx(lpFileName: String; hFile: THandle; dwFlags: DWORD): THandle; external 'LoadLibraryEx{#A}@kernel32.dll stdcall';
function LoadString(hInstance: THandle; uID: SmallInt; var lpBuffer: Char; nBufferMax: Integer): Integer; external 'LoadString{#A}@user32.dll stdcall';
function SHGetNewLinkInfo(pszLinkTo, pszDir: String; var pszName: Char; var pfMustCopy: Longint; uFlags: UINT): BOOL; external 'SHGetNewLinkInfo{#A}@shell32.dll stdcall';
                                                                                                              
function PinToTaskbar(const szFilename: String; IsPin: Boolean): Boolean;                                     
// szFilename : full path to executable file                                                                  
// IsPin......: False - unpin from TaskBar, True - pin to TaskBar                                             
var                                                                                                           
    hInst: THandle;                                                                                           
    buf: array [0..255] of Char;                                                                              
    i, res: Integer;                                                                                          
    strLnk, strVerb: String;                                                                                  
    objShell, colVerbs: Variant;                                                                              
begin                                                                                                         
    Result := False;                                                                                          
    if (GetWindowsVersion < $06010000) or not FileExists(szFilename) then Exit; { below Windows 7 }           
                                                                                                              
    { String resources }                                                                                      
    if IsPin then                                                                                             
    begin                                                                                                     
        if SHGetNewLinkInfo(szFilename, ExpandConstant('{tmp}'), buf[0], res, 0) then                         
        begin                                                                                                 
            while buf[Length(strLnk)] <> #0 do Insert(buf[Length(strLnk)], strLnk, Length(strLnk)+1);        
            if FileExists(ExpandConstant('{userappdata}\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\') + ExtractFileName(strLnk)) then Exit;
        end;                                                                                                  
        res := 5386;        { Pin to Tas&kbar }                                                               
    end else res := 5387;   { Unpin from Tas&kbar }                                                           
                                                                                                              
  { Load string resource }                                                                                    
  hInst := LoadLibraryEx(ExpandConstant('{sys}\shell32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);                   
  if hInst <> 0 then                                                                                          
  try                                                                                                         
    for i := 0 to LoadString(hInst, res, buf[0], 255)-1 do Insert(buf[i], strVerb, i+1);                     
    try                                                                                                       
      objShell := CreateOleObject('Shell.Application');                                                       
      colVerbs := objShell.Namespace(ExtractFileDir(szFilename)).ParseName(ExtractFileName(szFilename)).Verbs;
      for i := 1 to colVerbs.Count do if CompareText(colVerbs.Item[i].Name, strVerb) = 0 then                 
      begin                                                                                                   
          colVerbs.Item[i].DoIt;                                                                              
          Result := True;                                                                                     
          Break;                                                                                              
      end;                                                                                                    
      except                                                                                                  
        Exit;                                                                                                 
      end;                                                                                                    
  finally                                                                                                     
      FreeDLL(hInst);                                                                                         
  end;                                                                                                        
end;                                                                                                         

procedure CurStepChanged(CurStep: TSetupStep);                                                                                
var                                                                                                                           
  ResultCode: Integer;                                                                                                        
  r: integer;                                                                                                                 
begin                                                                                                                         
  case CurStep of                                                                                                            
    ssPostInstall:                                                                                                            
    begin                                                                                                                     
     PinToTaskbar(ExpandConstant('{app}\MyProg.exe'), True);
    end;                                                                                                                     
  end;                                                                                                                        
end;                                                                                                                          
                                                                                                                              
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);                                                          
                                                                                                                              
{ UnPin }                                                                                                                     
begin                                                                                                                        
  case CurUninstallStep of                                                                                                    
       usUninstall: PinToTaskbar( ExpandConstant( '{app}\MyProg.exe' ), False );
  end;                                                                                                                        
end;

                                                                                                                          

-------
Inno Setup 5.5.1.ee2 Ultra ANSI Unicode

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:59, 09-07-2016 | #1610