100 ICON "100.ico"

with MainWindow do

 begin

{©Drkb v.3(2007): www.drkb.ru}

  cbSize := SizeOf(MainWindow);

  style := CS_HREDRAW or CS_VREDRAW;

  lpfnWndProc := @WindowProc;

  cbClsExtra := 0;

  cbWndExtra := 0;

  hIcon := LoadIcon(0, IDI_APPLICATION);

  hCursor := LoadCursor(0, IDC_ARROW);

  hbrBackground := COLOR_BTNFACE + 1;

  lpszMenuName := nil;

  lpszClassName := 'TDeliveryInstaller';

 end;

 MainWindow.hInstance := HInstance;

 if RegisterClassEx(MainWindow) = 0 then Exit;

 Width := 360;

 Height := 200;

 InitCommonControls;

 Handle := CreateWindowEx(0, 'TDeliveryInstaller',

  PChar(TXT_CAPTION), WS_OVERLAPPED or WS_SYSMENU,

  Left, , Width, Height, 0, 0, HInstance, nil);

 SendMessage(Handle, WM_SETICON, 1, LoadIcon(HInstance, MAKEINTRESOURCE(100)));