避免服务端程序重复启动

admin6个月前unigui76
procedure TUniServerModule.UniGUIServerModuleBeforeInit(Sender: TObject);
begin
  CreateMutex(nil, FALSE, 'Project1');   //uses Winapi.Windows
  if GetLastError = ERROR_ALREADY_EXISTS then
  begin
    //Application.Terminate;
    ExitProcess(0); //新版本有效
  end;
end;


标签: unigui_Pc

相关文章

在uniDbgrid列中显示图片

procedure TFNewsMan.UniDBGrid1FieldImageURL(const Column: TUniDBGridColumn; const&nb...

替换默认加载动画成自己的gif图片

加入以下css样式内容#loading .loading-indicator{       background: u...

设置文件下载类型

有些文件浏览器禁止下载,在uniservermodule中的onbeforeinit设置类型就可以下载该类型文件了。MimeTable.AddMimeType('xlsm', '...

调整uniDBGrid标题栏的高度

一、在UniServerModule的CustomCSS属性中写入以下样式内容。.x-column-header{ color:black;/*字体颜色*/ font-size:13px;/*字体...

用代码设置控件样式

UniSession.SetStyle('#' + UniTreeView1.JSName + '_id .x-tree-vi...

禁止指定IP访问

设置TUniServerModule的"BlockedIPList" 属性,在里面填要禁止访问的IP...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。