修改uniGUIServer的标题

procedure ResStr(rs: PResStringRec; newStr: PChar);
var
  oldprotect: DWORD;
begin // 修改资源词条，uses windows,
  VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldprotect);
  rs^.Identifier := Integer(newStr);
  VirtualProtect(rs, SizeOf(rs^), oldprotect, @oldprotect);
end;

initialization

RegisterServerModuleClass(TuniServerModule);

// Vcl.Consts,行编辑(GridsRowEditor)按钮汉化
ResStr(@SMsgDlgConfirm, '保存');
ResStr(@SMsgDlgCancel, '取消');
ResStr(@SMsgDlgWarning, '注意');
ResStr(@SMsgDlgInformation, '信息');
ResStr(@SMsgDlgConfirm, '确认');
ResStr(@SMsgDlgError, '错误');
ResStr(@SMsgDlgYes, '是');
ResStr(@SMsgDlgNo, '否');
ResStr(@SMsgDlgOK, '确定');
ResStr(@SMsgDlgCancel, '取消');
// UniDBNavigator，in Vcl.VDBConsts.pas
ResStr(@SFirstRecord, '首记录');
ResStr(@SPriorRecord, '上一条记录');
ResStr(@SNextRecord, '下一条记录');
ResStr(@SLastRecord, '尾记录');
ResStr(@SInsertRecord, '插入记录');
ResStr(@SDeleteRecord, '删除记录');
ResStr(@SEditRecord, '编辑');
ResStr(@SPostEdit, '确认');
ResStr(@SCancelEdit, '取消');
ResStr(@SRefreshRecord, '刷新数据');
ResStr(@SApplyUpdates, '应用更新');
ResStr(@SCancelUpdates, '取消更新');
ResStr(@SDeleteRecordQuestion, '确定要删除此条记录?');

ResStr(@UNI_GUI_SERVER, 'KinglandSoft服务器'); //uniGUIConst