как этот значок динамика прикрепить к определенному компоненту?
Для меня это сложная задача. Честно не знаю.
Цитата Slivvki:
Ну а с смайл аймагом чего делать?
И этого я не знаю.
Код: Выделить всё
[Tasks]
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: uncheckedКод: Выделить всё
Name: "{commondesktop}\Моя программа"; Filename: "{app}\MyProg.exe";Код: Выделить всё
[Setup]
AppName=My programm
AppVersion=1.0
DefaultDirName={pf}\My programm
OutputDir=.
[Files]
Source: "C:\Program Files\Inno Setup 5 Ultra\Examples\MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
[Icons]
Name: "{commondesktop}\My Programm"; Filename: "{app}\MyProg.exe";Код: Выделить всё
[Run]
Filename: "{app}\MyProg.exe"; Flags: nowait skipifsilentКод: Выделить всё
[Files]
Source: "isgsg.dll"; Flags: "DontCopy";
Source: "Splash.png"; Flags: "DontCopy";
[КОД]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer);
external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
procedure InitializeWizard;
begin
ExtractTemporaryFile('Splash.png');
ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\Splash.png',{#SplS},{#SplR},{#SplE},0,2 55,False,$FFFFFF,10);
end;Код: Выделить всё
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
begin
DelTree(ExpandConstant('{app}') + '\aaa\aaa1\*.fr3.exe', False, True, False);
end;
end;
или посмотрите на