sm_msg.~dpr

SM_Msg.rar 手机短信发送程序

program SM_Msg;

uses
  ShareMem,
  Forms,
  SysUtils,
  Windows,
  SM_Msgp in 'SM_Msgp.pas' {frmSM_Msg},
  SM_MsgDLL in 'SM_MsgDLL.pas',
  ParSet in 'ParSet.pas' {frmParSet},
  ADOSM_Data in 'ADOSM_Data.pas' {frmSM_Data: TDataModule},
  Search in 'Search.pas' {frmSearch},
  CustLogin in 'CustLogin.pas' {frmCustLogin},
  MsgDB in 'MsgDB.pas' {DataModule1: TDataModule};

{$R *.res}
var
 RvHandle:hWnd;

begin
  RvHandle := FindWindow(scWinClassName, NIL);
  if RvHandle > 0 then
  begin
    PostMessage(RvHandle, CM_RESTORE, 0, 0);
    Exit;
  end;
  Application.Initialize;
  Application.CreateForm(TfrmSM_Msg, frmSM_Msg);
  Application.CreateForm(TfrmSM_Data, frmSM_Data);
  Application.CreateForm(TfrmCustLogin, frmCustLogin);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Title:='短信精灵';
  if not frmCustLogin.GetPar(Reg_Phone) then
   begin
    Application.Terminate;
    Exit;
   end;
  Application.Run;
end.