delphi 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

来源：https://www.cnblogs.com/hnxxcxg/p/14499541.html