slserver.dpr

三層源碼,DELPHI寫的三層源碼,三層源碼,

program slserver;

uses
  Forms,
  windows,
  slserver_TLB in 'slserver_TLB.pas',
  sl_server in 'sl_server.pas' {slsvr: TRemoteDataModule} {slsvr: CoClass},
  main in 'main.pas' {mainform},
  shareunit in 'shareunit.pas';

{$R *.TLB}

{$R *.RES}

var handle: hwnd;
begin
  handle := findwindow('slserver', nil);
  if handle > 0 then
  begin
    postmessage(handle, cm_restore, 0, 0);
    exit;
  end;
  Application.Initialize;
  Application.Title := '服务端';
  Application.CreateForm(Tmainform, mainform);
  Application.Run;
end.