以下红字部分是比一般程序多加入的部分,在编写时把相应部分加入工程文件的原代码并替换相应部分即可: program HotelSMS; uses  Windows,  Forms,  fmHotelSMS in 'fmHotelSMS.pas' {fmHotelSMSF},  dmData in 'dmData.pas' {dmDataM: TDataModule},  uReadWriteReg in 'uReadWriteReg.pas',  uProgLog in 'uProgLog.pas'; {$R *.res} const  strCaption = '酒店系统短信发送';var  MainHWnd,ChildHWnd: THandle;begin  //以查找窗口以保证只能同时启动一个实例  MainHWnd := FindWindow('TApplication', strCaption);  if IsWindow(MainHWnd) then  begin    ChildHWnd := GetLastActivePopUp(MainHWnd);    //激活已有的实例    SetForeGroundWindow(MainHWnd);    if (IsWindow(ChildHWnd)) and (ChildHWnd <> MainHWnd) and       IsWindowVisible(ChildHWnd) and IsWindowEnabled(ChildHWnd) then    begin      SetForeGroundWindow(ChildHWnd);    end;    Halt;  end;   Application.Initialize;  Application.Title := '酒店系统短信发送';  Application.CreateForm(TdmDataM, dmDataM);  Application.CreateForm(TfmHotelSMSF, fmHotelSMSF);  Application.Run;end.

评论