uniGui的使用一（修改uniGUIServer的标题）

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

initialization

RegisterServerModuleClass(TuniServerModule);

//uses Vcl.Consts,行编辑(GridsRowEditor)按钮汉化
ResStr(@SMsgDlgConfirm, '保存');
ResStr(@SMsgDlgCancel, '取消');
ResStr(@SMsgDlgWarning, '注意');
ResStr(@SMsgDlgInformation, '信息');
ResStr(@SMsgDlgConfirm, '确认');
ResStr(@SMsgDlgError, '错误');
ResStr(@SMsgDlgYes, '是');
ResStr(@SMsgDlgNo, '否');
ResStr(@SMsgDlgOK, '确定');
ResStr(@SMsgDlgCancel, '取消');
//uses 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, '确定要删除此条记录?');

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