[nik1967]

dracosha,

Пример

Код:

[Setup] 
AppName=AppName 
AppVerName=AppVerName 
DefaultDirName={pf}\AppName 

[_Code] 
var 
MouseLabel,SiteLabel: TLabel; 

procedure SiteLabelOnClick(Sender: TObject); 
var 
ErrorCode: Integer; 
begin 
ShellExec('open', 'http://forum.ru-board.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end; 

procedure SiteLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
SiteLabel.Font.Color:=clRed;
SiteLabel.Font.Style:=[fsUnderline, fsBold];
end; 

procedure SiteLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
begin 
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
end; 

procedure SiteLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
begin 
SiteLabel.Font.Color:=clGreen;
SiteLabel.Font.Style:=[fsUnderline, fsBold];
end; 

procedure SiteLabelMouseMove2(Sender: TObject; Shift: TShiftState; X, Y: Integer); 
begin 
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
end; 

procedure InitializeWizard(); 
begin 
MouseLabel:=TLabel.Create(WizardForm);
MouseLabel.Width:=WizardForm.Width;
MouseLabel.Height:=WizardForm.Height;
MouseLabel.Autosize:=False;
MouseLabel.Transparent:=True;
MouseLabel.OnMouseMove:=@SiteLabelMouseMove2;
MouseLabel.Parent:=WizardForm;

SiteLabel:=TLabel.Create(WizardForm);
SiteLabel.Left:=10;
SiteLabel.Top:=330;
SiteLabel.Cursor:=crHand;
SiteLabel.Font.Color:=clBlue;
SiteLabel.Font.Style:=[fsBold];
SiteLabel.Caption:='Forum Ru-Board';
SiteLabel.OnClick:=@SiteLabelOnClick;
SiteLabel.OnMouseDown:=@SiteLabelMouseDown;
SiteLabel.OnMouseUp:=@SiteLabelMouseUp;
SiteLabel.OnMouseMove:=@SiteLabelMouseMove;
SiteLabel.Parent:=WizardForm;
end; 

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then
begin
// DelTree использовать не рекомендуется,
// так как будут удалены все вложенные папки!
 DelTree(ExpandConstant('{app}\Backup'), True, True, True);
end;
end;