s7com.dpr

来自「西门子与计算机通讯程序包括源代码 程序说明 控件 及控件使用手册 使用西门子p」· DPR 代码 · 共 35 行

program s7com;

uses
  Forms,
  windows,
  scom in 'scom.pas' {Form1},
  errmes in 'errmes.pas',
  datalog in 'datalog.pas' {Form2},
  Unit4 in 'Unit4.pas' {Form4},
  Unit3 in 'Unit3.pas' {Form3};

var
  rr:boolean;

{$R *.res}

begin
  //if OpenMutex(MUTEX_ALL_ACCESS,False,PChar('s7comwsx')) <> 0 then
 //  rr := True
 // else
  //  rr := (CreateMutex(nil,False,PChar('s7comwsx')) = 0);

 // if rr then     Application.Terminate;
    
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm3, Form3);
  Application.BringToFront;
  Application.Run;
  

end.