unigui改服务标题

unigui改服务标题

uses
windows, uniGUIConst,

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);
ResStr(@UNI_GUI_SERVER, '服务器'); //uniGUIConst