opeclient.dpr

来自「开发呼叫中心时」· DPR 代码 · 共 32 行

program OpeClient;

uses
  Forms,
  Windows,
  Controls,
  sys_main in 'sys_main.pas' {FSys_main},
  Occp in 'Occp.pas',
  Exch in 'Exch.pas' {FExch};

{$R *.res}

var
  hWnd_ESPS: hWnd;

begin

  hWnd_ESPS := FindWindow('TApplication','话务台');
  if hWnd_ESPS>0 then
  begin
    ShowWindow(hWnd_ESPS, SW_SHOW);
    SetForegroundWindow(hWnd_ESPS);
    Exit;
  end;
  
  Application.Initialize;
  Application.Title:='话务台';
  Application.CreateForm(TFSys_main, FSys_main);
  //Application.CreateForm(TFExch, FExch);
  Application.Run;
end.