编译WinCE时出错InitCommonControlsEx(@init)

mustapha

我下载了lazarus-0.9.26.2-fpc-2.2.2-win32.exe和lazarus-0.9.26.2-fpc-2.2.2-cross-arm-wince-win32.exe
安装后，写个demo，编译win32可以生成exe文件，也能执行。
但选择wince(beta)来编译时出错：
E:\lazarus\lcl\interfaces\wince\wincewscalendar.pp(65,29) Error: Call by var for arg no. 1 has to match exactly: Got &quotointer" expected "tagINITCOMMONCONTROLSEX"

在这行:
class function TWinCEWSCustomCalendar.CreateHandle(const AWinControl: TWinControl;
  const AParams: TCreateParams): HWND;
var
  Params: TCreateWindowExParams;
  init : TINITCOMMONCONTROLSEX;
begin
  init.dwSize := Sizeof(TINITCOMMONCONTROLSEX);
  init.dwICC := ICC_DATE_CLASSES;
InitCommonControlsEx(@init);      //试把@去掉，能编译过，但没有看到exe文件出现。
  // general initialization of Params
  PrepareCreateWindow(AWinControl, Params);

yunyong

试试下个0.9.27版本试试看。