fhaddr.~dpr

1、通过串口连接手机或短信终端发送短信； 2、内置Access数据库

program FHAddr;

uses
  Forms,
  windows,
  ShellAPI,
  SysUtils,
  UntMain in 'UntMain.pas' {FrmMain},
  UntMaintain in 'UntMaintain.pas' {FrmMaintain},
  UntMaintainVS in 'UntMaintainVS.pas' {FrmMaintainVS},
  UntDM in 'UntDM.pas' {DM1: TDataModule},
  UntLogin in 'UntLogin.pas' {FrmLogin},
  UntSQL in 'UntSQL.pas',
  UntInit in 'UntInit.pas',
  NetFun in 'NetFun.pas';

{$R *.res}
var
  hMutex:THandle;
  nd:NotifyIconData;

begin
  hMutex := CreateMutex(Nil, True, 'SoleFhAddr');
  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    try
      ReadLocalINI;
    except
      Application.MessageBox('缺少INI配置文件！','错误')
    end;
    ReadLocalMsg;
    Application.CreateForm(TDM1, DM1);
    if Passed then
    begin
      Application.CreateForm(TfrmMain, frmMain);
      nd.cbSize := sizeof(NotifyIconData);
      nd.Wnd := frmMain.Handle;
      nd.uID := 0;
      nd.uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
      nd.uCallbackMessage := WM_TRAYNOTIFY ;
      StrPLCopy(nd.szTip, '院内短信', 63);
      nd.hIcon := frmMain.Icon.Handle;
      Shell_NotifyIcon(NIM_ADD, @nd);
      frmMain.ShowModal;
    end;
    Application.Run;
  end else
  begin
    Application.MessageBox('通讯录系统已经启动！' , '消息', MB_OK);
  end;
  ReleaseMutex(hMutex);
end.