www.pudn.com > modbus_udp.rar > UDPClient.~dpr, change:2012-07-20,size:496b


program UDPClient; 
 
uses 
  QForms, 
  Forms, 
  Windows, 
  Dialogs, 
  Messages, 
  UDPClientMain in 'UDPClientMain.pas' {UDPMainForm}; 
 
{$R *.res} 
const iAtom='cdh'; 
 
begin 
  if GlobalFindAtom(iAtom)<>0 then             //程序防重入 
  begin 
//    MessageBox(0,'程序已在运行............','不能运行2次!',mb_OK); 
//    exit; 
  end; 
 
  GlobalAddAtom(iAtom); 
  Application.CreateForm(TUDPMainForm, UDPMainForm); 
  Application.Run; 
  GlobalDeleteAtom(GlobalFindAtom(iAtom)); 
end.