[Johny777]

Ivan_009,

читать дальше »

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files] 
Source: icon.ico; DestDir: {tmp}; Flags: dontcopy 
 
[  Code]
function LoadImage(hInst: THandle; ImageName: PChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImageA@user32.dll stdcall delayload'; 
 
procedure InitializeWizard; 
begin 
  ExtractTemporaryFile('icon.ico'); 
  SendMessage(WizardForm.Handle, $0080, 0, LoadImage(0,ExpandConstant('{tmp}')+'\icon.ico',1,16,16,$1010)); 
end;

где icon.ico - иконка 16 на 16 пикселей

Автор скрипта - South

Ваня!
только сейчас догнал этот пример тебе не катит, тк у тебя нет границ окна
вот код

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[Files]
Source: "hl2.ico"; Flags: dontcopy

[  Code]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    OuterNotebook.Hide;
    BorderStyle := bsNone;
    Color := $506a5a;
  end;

  with TNewIconImage.Create(nil) do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(3), ScaleY(3), ScaleX(16), ScaleY(16));
    ExtractTemporaryFile('hl2.ico');
    Icon.LoadFromFile(ExpandConstant('{tmp}\hl2.ico'));
  end;
end;

с файлом: http://sendfile.su/651666 (проверено, одобрено)


использование на форме деинсталятора

читать дальше »

Код:

[Setup]
AppName=My Program
AppVersion=1.5
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

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

[Files]
Source: "hl2.ico"; DestDir: {app}; Flags: ignoreversion nocompression; Attribs: hidden system;

[Code   ]
procedure InitializeWizard();
begin
  with WizardForm do
  begin
    OuterNotebook.Hide;
    BorderStyle := bsNone;
    Color := $506a5a;
  end;

  with TNewIconImage.Create(nil) do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(3), ScaleY(3), ScaleX(16), ScaleY(16));
    ExtractTemporaryFile('hl2.ico');
    Icon.LoadFromFile(ExpandConstant('{tmp}\hl2.ico'));
  end;
end;


procedure InitializeUninstallProgressForm();
begin
  UninstallProgressForm.BorderStyle := bsNone;
  UninstallProgressForm.Color := $506a5a;
  UninstallProgressForm.OuterNotebook.Hide;
  UninstallProgressForm.ProgressBar.Parent := UninstallProgressForm;
  
  if FileCopy(ExpandConstant('{app}\hl2.ico'), ExpandConstant('{tmp}\hl2.ico'), False) = True then
  begin
    with TNewIconImage.Create(nil) do
    begin
      Parent := UninstallProgressForm;
      SetBounds(ScaleX(3), ScaleY(3), ScaleX(16), ScaleY(16));
      Icon.LoadFromFile(ExpandConstant('{tmp}\hl2.ico'));
    end;
  end;
end;