[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes
OutputBaseFilename=Yours ip

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

[Code]
{===============================================================================}
{ Script name: GetMyIP.iss                     
{ Script version: 1.1                     
{ Author: Serega, http://forum.oszone.net/member.php?userid=88670                 
{ Finishings: Habetdin, nik1967                     
{                     
{ This script shows how to learn your IP                     
{ Этот скрипт показывает, как узнать свой IP                     
{===============================================================================}
var
    lbl: TLabel;
    Button: TButton;

function GetHtmlSource(const url: string): string;
var
    vHttp: Variant;
begin
    try
      vHttp := CreateOleObject('Microsoft.XMLHTTP');
      vHttp.open('GET', url, False);
      vHttp.send;
      Result := vHttp.responseText;
      lbl.Font.Color:= clGreen;
    except
      Result := 'интернет отключен';
      lbl.Font.Color:= clRed;
    end;
end;

procedure ButtonClick(Sender: TObject);
var
    strHtml: string;
begin
    strHtml := GetHtmlSource('http://automation.whatismyip.com/n09230945.asp');
    lbl.Caption := 'Ваш IP адрес: ' + Trim(strHtml);
end;

procedure InitializeWizard();
var
    strHtml: string;
begin
    with WizardForm do begin
      ClientWidth := ScaleX(260);     
      ClientHeight:= ScaleX(80);
      BorderStyle := bsDialog;
      OuterNotebook.Hide;
      Center;
      Caption := 'Ваш IP адрес';
    end;

    WizardForm.CancelButton.SetBounds(ScaleX(150), ScaleY(47), ScaleX(85), ScaleY(23));
    WizardForm.CancelButton.Parent := WizardForm;

    Button := TButton.Create(WizardForm);
    with Button do begin
        Parent := WizardForm;
        SetBounds(ScaleX(25), ScaleY(47), ScaleX(85), ScaleY(23));
        Caption := 'Узнать IP';
        OnClick := @ButtonClick;
    end;

    lbl := TLabel.Create(WizardForm);
    with lbl do begin
        Alignment:= taCenter;
        WordWrap:= true;
        Parent := WizardForm;
        AutoSize := False;
        Left := ScaleX(-5);
        Top := ScaleY(17);
        Width := ScaleX(270);
        Height:= ScaleX(80);
        Font.Size := 12;
    end;

    strHtml := GetHtmlSource('http://automation.whatismyip.com/n09230945.asp');
    lbl.Caption := 'Ваш IP адрес: ' + Trim(strHtml);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
    Confirm := False;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
    WizardForm.CancelButton.Caption := 'Закрыть';
end;