unigui改服务标题

 前面的New Application在 ServerModule 里的Title   修改   https://www.cnblogs.com/tulater/p/12258708.html

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