[Stealthmax]

Где скины можно качнуть не подскажешь... »

А ты скачал установщик со страницы проекта? Мой пост читал? Внимательно?
Установи программу или распакуй её программой UniversalExtraxtor и там увидишь папку Styles, в ней все скины доступные + сам редактор скинов + демо для просмотра скинов.

Интересно почему вверху крестик неактивен на инсталле не заметил случаем... »

Закрывай, пробуй

Код:

//****************************** Закрытие без подтверждений *******************//
#define A = (Defined UNICODE) ? "W" : "A"
const
  SC_CLOSE = 61536;
var
  OldProc: Longint;

function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProc{#A}@user32.dll stdcall delayload';
function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLong{#A}@user32.dll stdcall delayload';
// вызов процедуры закрытия
procedure ExitProcess(exitCode:integer); external 'ExitProcess@kernel32.dll stdcall';

function FProc(h: hwnd; Msg, wParam, lParam: Longint): Longint;
begin
  if (Msg = $0112) then
  begin
    if (wParam = SC_CLOSE) then
    begin {действие при нажатии крестика}
    // параметр процедуры закрытия процесса
    ExitProcess(0);
    // также можно добавить сообщение при нажатии
      //MsgBox('вы нажали крестик', mbInformation, MB_OK);
      wParam := 0;
    end;
  end;
  Result := CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
  OldProc := SetWindowLong(WizardForm.Handle, -4, CallbackAddr('FProc'));
end;
procedure DeinitializeSetup();
begin
  SetWindowLong(WizardForm.Handle, -4, OldProc);
end;