-
Notifications
You must be signed in to change notification settings - Fork 7
/
OPC.dpr
37 lines (30 loc) · 805 Bytes
/
OPC.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program OPC;
uses
Forms,
Windows,
Dialogs,
MainForm in 'MainForm.pas' {Form1},
Server_SerialPort in 'Server_SerialPort.pas',
Server_Devices in 'Server_Devices.pas',
Server_Protocol_Modbus in 'Server_Protocol_Modbus.pas',
Server_UDP in 'Server_UDP.pas',
Server_protocol_DCOM in 'Server_Protocol_DCOM.pas',
UHelper in 'UHelper.pas',
Server_Protocol_Mercury in 'Server_Protocol_Mercury.pas',
Server_DA2 in 'Server_DA2.pas';
{$R *.res}
var
H: THandle;
begin
// Çàïðåò íà çàïóñê êîïèè
H := CreateMutex(nil, True, 'opc3857439824239');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
showmessage('Ïðîãðàììà óæå ðàáîòàåò!');
Exit;
end;
Application.Title := 'OPC BSU';
Application.CreateForm(TForm1, Form1);
Application.Initialize;
Application.Run;
end.