function Test(

  hWnd: Integer;

  hInstance: Integer;

  lpCmdLine: PChar;

  dummy: Longint

  ): Integer; stdcall; export;

  Windows.MessageBox(hWnd, lpCmdLine, 'Command Line', MB_OK);

  Result := 0;

end;