anchor.diff:  procedure CreateMainWindow;
   var
     screenw, screenh: longint;
  +  iconhandle: thandle;
   begin
     { This call is required for common control 6 DLL to be correctly imported.
       Without it strange things happen on windows XP }
     InitCommonControls;
   
  +  { Load the icon to assign to our window }
  +  iconhandle := LoadIcon(hInstance, 'icon.ico');
  +
     { We need the screen size to centre the window later }
     screenw := GetSystemMetrics(SM_CXSCREEN);
     screenh := GetSystemMetrics(SM_CYSCREEN);
  
positive.code:   progressbar.Visible := true;
  
    btncancel := NewButton(frmmain, 'Cancel').SetPosition(progressbar.Left +
      progressbar.width - 60, progressbar.Top + progressbar.Height + 14);
    btncancel.SetSize(60, 24);
  
    label1 := NewLabel(frmmain, 'Downloading Java Runtime Environment').SetPosition(16, 16);
  
negative.code: 
  // If defined the JRE will always be downloaded as if it didn't exist. Used for
  // testing the JRE download dialog.
  // {$DEFINE FORCEJREDOWNLOAD}
  
  uses
    kol, shared, Vista, Windows, SysUtils, classes, registry;
  